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