Fórum E-mail com Anexo !!!! #269522
21/02/2005
0
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.
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
Curtir tópico
+ 0
Responder
Posts
21/02/2005
Massuda
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...
Alguns servidores exigem que você conecte primeiro no servidor POP3 para poder usar o servidor SMTP.
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?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)