![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
#1
|
|||
|
|||
Ayuda con SMTP
Hola a todos, estoy realizando un programa para enviar correo electronico mediante comandos TCP. Me conecto al servidor y envio el correo, de hecho me llega a la cuenta, pero me llega sin remitente, sin asunto y sin texto dentro.
TCPClient.Connect; continuar:=false; while continuar=false do Application.ProcessMessages; TCPClient.WriteLn('HELO '+ Form2.LabeledEdit3.Text); Memo1.Lines.Add('--> '+'HELO '+ Form2.LabeledEdit3.Text); Memo1.Lines.Add(''); continuar:=false; while continuar=false do Application.ProcessMessages; TCPClient.WriteLn('MAIL FROM:<'+ Form2.LabeledEdit1.Text+'>'); Memo1.Lines.Add('--> '+'MAIL FROM:<'+ Form2.LabeledEdit1.Text+'>'); Memo1.Lines.Add(''); continuar:=false; while continuar=false do Application.ProcessMessages; TCPClient.WriteLn('RCPT TO:<'+ Form2.LabeledEdit2.Text+'>'); Memo1.Lines.Add('--> '+'RCPT TO:<'+ Form2.LabeledEdit2.Text+'>'); Memo1.Lines.Add(''); continuar:=false; while continuar=false do Application.ProcessMessages; TCPClient.WriteLn('DATA'); Tras esto introduzco el texto, termino con el '.' y luego QUIT. Se os ocurre que le puede pasar? Muchas gracias |
|
|
![]() |
|