Einzelnen Beitrag anzeigen

Retterman

Registriert seit: 2. Okt 2006
Ort: München
1 Beiträge
 
Delphi 2006 Professional
 
#1

Mail mit MAPI und MAPIWrap senden

  Alt 2. Okt 2006, 14:29
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, 'empfaengername@irgendwo.de');
    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."

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
  Mit Zitat antworten Zitat