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 |
|
|
|