Envia mail

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

Te envío parte de un código que he hecho hace poco para enviar mails utilizando el componente TNMSMTP; Está comentado, pero si tienes dudas ya dirás...

Código Delphi [-]
//'--------------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;

He retirado código que había entre medio para no entorpecer la comprensión de ésta parte, espero no haber quitado nada de más; Si hay algun error ya me lo dirás...