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
|