TSendMail

[philipp.hofmann]

Hier mal eine Beispielklasse, wie ich auf allen Betriebssystemen Mails versende,
dies nutzt aber nicht deinen E-Mail-Client, sondern verschickt Mails im Hintergrund über einen SMTP-Server:

Delphi-Quellcode:

unit EmailUtils;

interface

uses
  IdSMTP, IdMessage, IdEMailAddress, IdAttachmentFile,
  IdSSL, IdSSLOpenSSL, IdExplicitTLSClientServerBase, IdIOHandlerStack,
  IdSMTPBase, IdTCPClient, IdIOHandler, IdIOHandlerSocket,
  System.Classes, System.UITypes;

type
  TEMailUtils = class(TObject)
  public
    class function sendEmail(receiver,subject,body,attachment:String):boolean;
  end;

implementation


{$IFDEF IOS}
  uses System.SysUtils,IdSSLOpenSSLHeaders_Static;
{$ELSE}
  uses System.SysUtils;
{$ENDIF}

class function TEMailUtils.sendEmail(receiver,subject,body,attachment:String):boolean;
var IDSMTP1:TIDSMTP;
    IdIOHandler:TIdIOHandler;
    IdMessage: TIdMessage;
    errorInfo:String;
begin
  Result:=false;
  try
    IDSMTP1:=TIDSMTP.Create();
    IdIOHandler:=TIdSSLIOHandlerSocketOpenSSL.Create();
    try
      errorInfo:='fill IDSMTP1';
      IDSMTP1.Host := '[smtp-server]';
      IDSMTP1.Port := [Port];
      IDSMTP1.IOHandler := IdIOHandler;
      IDSMTP1.AuthType := satDefault;
      IDSMTP1.UseTLS := utUseRequireTLS;
      IDSMTP1.Username := '[username]';
      IDSMTP1.Password := '[password]';
      IdMessage := TIdMessage.Create(nil);
      try
        errorInfo:='fill IdMessage';
        IdMessage.From.Name:='[From]';
        IdMessage.From.Address:='[From-Emailaddress]';
        IdMessage.Subject:=subject;
        IdMessage.Body.Add(body);
        IdMessage.Recipients.EMailAddresses:=receiver;
        if (attachment<>'') then
          TIdAttachmentFile.Create(IdMessage.MessageParts,attachment);
        errorInfo:='check IDSMTP1';
        if not IDSMTP1.Connected then
        begin
          errorInfo:='conect IDSMTP1';
          IDSMTP1.Connect;
        end;
        errorInfo:='send IdMessage';
        IDSMTP1.Send(IdMessage);
        Result:=true;
      finally
        IdMessage.Free;
      end;
    finally
      IDSMTP1.Free;
      IdIOHandler.Free;
    end;
  except on E: Exception do
    //do something
  end;
end;

end.

P.S.: Es müssen natürlich die SMTP-Email-Infos eingetragen werden.
P.P.S. : Ich habe meinen Logging-Code entfernt, damit es kompilierbar ist, kann aber nicht ausschließen, dabei etwas übersehen zu haben.

[markedfee]

Zitat von HiWieGehts:

hallo,
ich versuche seit Tagen in Delphi 10 eine Mail mit vorangestellten Werten zu erzeugen. Ich finde im WWW keine brauchbare Info, wie die TSendMail-Komponente zu verwenden ist. Wer kann mir helfen? Bekomme immer die Fehlermeldung UserAbort ohne dass das Mail-Fenster geöffnet wird. Codeauszug:

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    ActionList1: TActionList;
    [B] InternetSendMail1: TSendMail;[/B]
…
procedure TForm2.Button1Click(Sender: TObject);
var
  OK: Boolean;
// RC: TRecipientCollection;
// RI: TRecipientItem;
// CI: TCollectionItem;
begin
  // RI := TRecipientItem.Create(RC);
  // InternetSendMail1.Recipients := rc;
  // RC := TRecipientCollection.Create(InternetSendMail1);
  // RC.Clear;
//  InternetSendMail1.Recipients.Clear;
  // ri.Create(CI);
  InternetSendMail1.OnMailSendStatus := SendStatus;
  InternetSendMail1.Recipients.Add;
//  InternetSendMail1.Recipients.Count;
  InternetSendMail1.Recipients[0].Address       := 'Empfä[e-mail]';
  InternetSendMail1.Recipients[0].RecipientType := rtPrimary;
  InternetSendMail1.Recipients[0].DisplayName   := 'Name';
  InternetSendMail1.Subject := 'Test';
  InternetSendMail1.Text.Add('Testtext');
//  // rc..Assign(ri);
  // InternetSendMail1.Recipients.Assign(RC);
  // RC.Add;
  // RC.                        := InternetSendMail1.Recipients;
//  InternetSendMail1.Visible := True;
  OK := InternetSendMail1.Execute;
end;

Win 10 64 Bit
Outlook 365

Das Problem liegt wahrscheinlich daran, dass Outlook 365 MAPI-Zugriffe blockiert oder eingeschränkt. Versuche, InternetSendMail1.Visible := True; vor Execute zu setzen. Außerdem prüfe in Outlook unter Trust Center die Einstellungen für MAPI-Zugriff! Viel Erfolg!