E-mail com Anexo !!!!

Delphi

21/02/2005

Pessoal,

Boa tarde!

Alguém por gentilileza pode me ajudar e explicar como eu faço para madar um arquivo em anexo...passei a tarde de hoje toda tentando e já não sei o que faço mais...
Agradeço desde já.


Obs: Utilizo os componenetes TIdSMTP e TIdMessage.

Abaixo segue o código que estou utilizando.





IdSMTP1.Host := ´den.ufpe.br´;
winexec(pchar(comando),sw_show);
IdSMTP1.Connect;
IdMessage1.From.Address := ´conee@ig.com.br´;
IdMessage1.CCList.EMailAddresses := ´marcone.maciel@ig.com.br´;
IdMessage1.BccList.EMailAddresses := ´marconemaciel@yahoo.com.br´;
IdMessage1.Subject := ´TESTANDO EMAIL´;
IdMessage1.From.Name := ´Marcone Maciel´;


try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;


ShowMessage(´E-Mail Enviado com Sucesso!´);


Valeu pessoal.


Mmbarros

Mmbarros

Curtidas 0

Respostas

Massuda

Massuda

21/02/2005

Esse assunto é meio frequente aqui... experimente [url=http://forum.clubedelphi.net/search.php]pesquisar o fórum[/url] por IdSmtp1 que acho que você encontrar alguns exemplos.

Mas tem alguns detalhes no código que você postou...

IdSMTP1.Host := ´den.ufpe.br´; ... IdSMTP1.Connect;
Hoje em dia a maioria dos servidores SMTP não permite conexão/login anônimo por causa dos spammers.

IdSMTP1.Host := ´den.ufpe.br´; ... IdMessage1.From.Address := ´conee@ig.com.br´;
Pelo mesmo motivo, alguns não aceitam mensagem onde o domínio do remetente difere do domínio do servidor.

Alguns servidores exigem que você conecte primeiro no servidor POP3 para poder usar o servidor SMTP.

winexec(pchar(comando),sw_show);
O que é isso?


GOSTEI 0
POSTAR