Enviar e-mail
Olá pessoal!
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!!!!
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
Curtidas 0
Respostas
Ricardo_ascii
29/07/2008
Olá,
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;
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
Chrismiller
29/07/2008
Então, mas eu não tenho este endereço de e-mail. Dependo do usuário que está logado neste sistema, preciso que pegue o endereço dele que está configurado no outlook, entendeu ?
GOSTEI 0
Ricardo_ascii
29/07/2008
Então, mas eu não tenho este endereço de e-mail. Dependo do usuário que está logado neste sistema, preciso que pegue o endereço dele que está configurado no outlook, entendeu ?
Ah tá! Entendi! Mas e se o usuário estiver com mais de uma conta de e-mail cadastrada?
Ricardo
GOSTEI 0
Cleiflavio
29/07/2008
Simples, coloque um campo para a pessoa deigitar o email dele e faço o codigo ler esse email dele.
tipo
IdMessage1.CCList.EMailAddresses := campoemailcopia.text;
tipo
IdMessage1.CCList.EMailAddresses := campoemailcopia.text;
GOSTEI 0
Chrismiller
29/07/2008
Olá,
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!!!
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
Cleiflavio
29/07/2008
Vc quer acessar o Outlook Express ou o Microsoft Outlook ?
GOSTEI 0