Ayuda con mail plx!

[K4RL0S]

Hola, que tal:

Primero que nada agradecerles el apoyo que me han dado, ya hace tiempo que no me paraba por aqui, pero me llego la hora de volver un poco a Delphi. Bueno pasando al motivo de mi post es el siguiente:

Un amigo me ha pedido apoyo para hacer un programa que envie mails a partir de una lista, pero para empezar no puedo siquiera enviar un mail (he intentado con los ejemplos de Delphi pero siempre obtengo Connection failed, aunque he hecho ping a yahoo y si recibo respuesta) el firewall lo tengo desactivado y ademas tengo conexion inalambrica (esto me imagino que debe influir) he hecho uso de la busqueda en los viejos temas y nada =/.

Me he basado en el siguiente ejemplo que encontre en los foros:

//'--------------Comienza envío--------------------'
// Elementos fijos del componente
NMSMTP.Host := EditHost.Text;
NMSMTP.PostMessage.Body.AddStrings(MemoCuerpo.Lines);
NMSMTP.PostMessage.FromAddress := EditFromAdress.Text;
NMSMTP.PostMessage.FromName := EditFromNAme.Text;
NMSMTP.PostMessage.ReplyTo := EditReplyTo.Text;
NMSMTP.PostMessage.Subject := EditSubject.Text;
// Error en la direccion
if (EditDireccion.Text = '') then begin
//... tratar error
end;

// Optativos
NMSMTP.PostMessage.ToAddress.Add(EditDireccion.Text);
// Añadir fichero adjunto
NMSMTP.PostMessage.Attachments.Add(EditFichero.Text);

// Enviar
NMSMTP.Connect;
// conectado correctamente?
if (NMSMTP.Connected) then begin
// Bloque de proteccion
try
NMSMTP.SendMail;
except
on E:Exception do begin
// 'ERROR: Se ha producido un error en el envío: '
end; // on
end; // try
end // if
else begin
//--MessageDlg('No conectado', mtError, [mbOK], 0)
end;
NMSMTP.Disconnect;

Les agradezco de antemando su ayuda

[Neftali [Germán.Estévez]]

¿Qué parámetros está usando para configurar el componnte NMSMTP?

[K4RL0S]

lo estoy haciendo de la sig. manera:

NMSMTP1.Host := 'mx.yahoo.com';
NMSMTP1.PostMessage.Body.AddStrings(Memo1.Lines);
NMSMTP1.PostMessage.FromAddress := 'xxxxxxxx@yahoo.com.mx';
NMSMTP1.PostMessage.ToAddress.Add('xxxxxxxxxxx@yahoo.com.mx');
NMSMTP1.PostMessage.FromName := 'K4RL0S';
NMSMTP1.PostMessage.ReplyTo := 'xxxxxxxx@yahoo.com.mx';
NMSMTP1.PostMessage.Subject := 'Prueba de programa para enviar mails';

NMSMTP1.Connect;

if (NMSMTP1.Connected) then
begin
try
NMSMTP1.SendMail;
except
on E:Exception do begin

end; // on
end; // try
end // if
else begin
MessageDlg('No conectado', mtError, [mbOK], 0)
end;
NMSMTP1.Disconnect;

Que puede ser?

[Julián]

Yo creo que necesitas proporcionar un username y un password al servidor SMTP.

.