Fórum como enviar e-mail pelo delphi??? #343565
24/07/2007
0
[color=red:9bbee22cc6]Erro: Socket Error # 10053
Software caused connection abort.[/color:9bbee22cc6]
1 procedure TForm1.Button1Click(Sender: TObject);
2 begin
3 with IdMessage1 do //Composição da mensagem:
4 begin
5 Body.Assign(Memo1.Lines); //Corpo da mensagem
6 From.Text := ´seuemail@servidor.com.br´; //Seu E-mail
7 Recipients.EMailAddresses := EdDestinatarios.text; //Destinatários
8 Subject := EdAssunto.Text; //Assunto
9 CCList.EMailAddresses := EdCc.Text; //Com cópia para
10 end;
11 //Informações de Autenticação:
12 IdSMTP1.Host:=´smtp.servidor.com.br´; //endereço SMTP do servidor
13 IdSMTP1.Port:= 25; //Porta do Servidor
14
15 IdSMTP1.Username := ´seunome´; //Sua conta no servidor
16 IdSMTP1.Password := ´senha´; //sua senha no servidor
17 //Enviando a mensagem:
[color=red:9bbee22cc6]18 IdSMTP1.Connect; //conecta ao servidor[/color:9bbee22cc6]
19 try
20 IdSMTP1.Send(IdMessage1); //envia a mensagem
21 finally //quando terminar de enviar
22 IdSMTP1.Disconnect; //disconecta
23 end;
24 end;
Motoqueiro10
Curtir tópico
+ 0Posts
24/07/2007
Rjun
Gostei + 0
24/07/2007
Motoqueiro10
Gostei + 0
24/07/2007
Rjun
Gostei + 0
24/07/2007
Motoqueiro10
Gostei + 0
24/07/2007
Henrique.florencio
Ja ocorreu esse problema comigo, dai liberei a porta e o email foi enviado.
verifique tambem o fluxo de emails que vc vai enviar, se no caso vc for só fazer envios, em grande quantidades, dependendo do provedor de emails, o envio será rejeitado pois o provedor ´pensará que é spam´, tive esse problema tambem, caso isso aconteça será necessario uma autenticação POP e depois faça a conexão SMTP, ou configure o Outlook, para receber os emails, e o seu sistema para fazer os envios...
Espero que tenha colaborado.
Gostei + 0
24/07/2007
Motoqueiro10
Gostei + 0
24/07/2007
Massuda
Gostei + 0
24/07/2007
Motoqueiro10
Gostei + 0
24/07/2007
Massuda
Gostei + 0
25/07/2007
Motoqueiro10
Galera Liberei a porta 25 no antivírus e consegui enviar os e-mail.
flw pela ajuda dos demais.
Gostei + 0
26/07/2007
Vitor Alcantara
Gostei + 0
27/07/2007
Motoqueiro10
aguarde!!!
Gostei + 0
27/07/2007
Motoqueiro10
Gostei + 0
27/07/2007
Motoqueiro10
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)