Hola de nuevo.
De antemano gracias por la atención.
Intente mandar el mail tambien con el siguiente codigo:
procedure TEnviarCorreo.TbEnviarClick(Sender: TObject);
var
Host, ElQueManda, ElQueRecibe, Asunto: string;
begin
host:= 'smtp.live.com';
smtp.Host:= host;
smtp.Port:= 587;
ElQueManda:= 'paty@hotmail.com';
ElQueRecibe:= 'pat@live.com.mx';
Asunto:= 'Hola';
idMensaje.From.Address:= ElQueManda;
idMensaje.ReceiptRecipient.Address:= ElQueRecibe;
idMensaje.Subject:= Asunto;
idMensaje.Body:= TmCuerpo.Lines;
smtp.Connect;
smtp.Send(idMensaje);
end;
procedure TEnviarCorreo.SMTPConnected(Sender: TObject);
begin
if smtp.Connected = true then
showmessage('Conexión exitosa');
end;
end.
Y si me conecta con el host de hotmail utilizando el componente TidSMTP de Indy Clients, pero me aparece el siguente error y marca en el codigo esta parte "smtp.Send(idMensaje);"
"raised exception class EIdProtocolReplyError with message '530 5.7.0 Must issue a STARTTLS command first'."
Como resolver esto?
|