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

En alguna ocasión lo he hecho utilizando el componente TNMSMTP; Un código de ejemplo podría ser éste:

Código Delphi [-]
var
  TSFiles:TStringList;
begin
  // Elementos fijos del componente
  NMSMTP.Host := EditHost.Text;
  _debugLog(EditHost.Text, False);
  NMSMTP.PostMessage.Body.AddStrings(MemoCuerpo.Lines);
  _debugLog(MemoCuerpo.Lines.Text, False);
  NMSMTP.PostMessage.FromAddress := EditFromAdress.Text;
  _debugLog(EditFromAdress.Text, False);
  NMSMTP.PostMessage.FromName := EditFromNAme.Text;
  _debugLog(EditFromNAme.Text, False);
  NMSMTP.PostMessage.ReplyTo := EditReplyTo.Text;
  _debugLog(EditReplyTo.Text, False);
  NMSMTP.PostMessage.Subject := EditSubject.Text;
  _debugLog(EditSubject.Text, False);
  
  // Optativos
  NMSMTP.PostMessage.ToAddress.Add(EditDireccion.Text);
  // Añadir los ficheros
  NMSMTP.PostMessage.Attachments.AddStrings(TSFiles);
  // Enviar
  NMSMTP.Connect;
  if (NMSMTP.Connected) then begin
    try
      NMSMTP.SendMail;
    except
      on E:Exception do begin
        // Tratamiento de excepcion... 
      end;
    end;
  end
  else begin
     //--    MessageDlg('No conectado', mtError, [mbOK], 0)
  end;
  NMSMTP.Disconnect;