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:
Cita:
//'--------------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