Mail mit MAPI und MAPIWrap senden

[Retterman]

Hallo,

ich versuche, über MAPI und die MAPIServices.pas (bzw. die MAPIWrap.pas) eine E-Mail zu erzeugen und falls möglich gleich zu senden. Leider habe ich keinerlei Doku über MAPIServices bzw. MAPIWrap gefunden. Ein Beispiel zum Nachschauen, welche Mails im In- bzw. Out-Ordner sind, läuft einwandfrei.

In meinem jugendlichen Leichtsinn habe ich sowas gebastelt, weil mir das schlüssig erschien:

Delphi-Quellcode:

procedure TForm1.SendeTestmail;
var
  OutBox: TOutbox;
  MailItem: TMapiMailItem;
begin
  OutBox := nil;
  MailItem := nil;
  try
    OutBox := TOutBox.Create('MeinMailAccountName');  // <-- hier was reinschreiben hat bei mir keinen Effekt

    MailItem := OutBox.NewMailItem;
    MailItem.AddRecipient(mrrTo, '[e-mail]');
    MailItem.Body := 'Hallo, dies ist eine Testmail.';
    MailItem.Subject := 'Testmail';

    MailItem.Submit(true);
  finally
    MailItem.Free;
    OutBox.Free;
  end;
end;

Beim Ausführen der Zeile "MailItem.Submit(true)" (auch wenn ich "false" reinschreibe) kommt eine "Zugriffsverletzung bei Adresse sowieso in Modul 'MSMAPI32.DLL'. Lesen von Adresse 00000014." :wall:

Kann mir jemand einen Tipp geben, wie ich das machen muß? (Ich weiß, dass einige Könner hier im Forum mitlesen. Übrigens: Forumssuche hab ich schon gemacht, aber nix gefunden.)

Servus, Retterman