Fórum Enviar e-mail #361783
29/07/2008
0
Tenho um sistema no Delphi 7 para envio de e-mail, utilizo o componente TIdSMTP e o TIdMessage. Está funcionando bem.
Mas eu preciso que seja tambem enviado uma cópia deste e-mail para quem utiliza o sistema. Então, eu preciso pegar o perfil do e-mail do outlook. Como faço isso?
Eu utilizei o seguinte código:
[i:d61e7d810c]objSession := OutlookApp.GetNamespace(´MAPI´);
objAddressEntry := objSession.CurrentUser;
showmessage(objAddressEntry.Address)[/i:d61e7d810c]
Mas não aparece o email e sim uma msg mais ou menos assim :
/oEmpresa/ou=Dominio/cn=Recipients/cn=Usuario
Como faço pra pegar o email ?
Valeww!!!!
Chrismiller
Curtir tópico
+ 0Posts
30/07/2008
Ricardo_ascii
Se eu entendi direito, para o envio de e-mail com cópia para outra pessoa eu faço assim:
IdMessage1.CCList.EMailAddresses := nome do e-mail;
Gostei + 0
30/07/2008
Chrismiller
Gostei + 0
30/07/2008
Ricardo_ascii
Ah tá! Entendi! Mas e se o usuário estiver com mais de uma conta de e-mail cadastrada?
Ricardo
Gostei + 0
30/07/2008
Cleiflavio
tipo
IdMessage1.CCList.EMailAddresses := campoemailcopia.text;
Gostei + 0
31/07/2008
Chrismiller
Eu realmente preciso pegar este endereço no outlook, não posso colocar este campo pra pessoa digitar .....
E se tiver mais de uma conta, posso pegar qq uma....
Alguma solução ???
Valew!!!
Gostei + 0
04/08/2008
Cleiflavio
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)