TSendMail

[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!