Hi Heiko,
Also ich habe einiges in der
DP gefunden heut morgen und getestet unter Vista,Ot07 und Symantec Antivirus.
Mapi Wrapper.pas
Also mit dem Code habe ich unter meinen Bedingungen die Inbox Items ausgelesen ohne Fehler,oder Outlook Sicherheitsmeldung.
Einen Kalender Eintrag habe ich auch per
Mapi schon gemacht.
Und da ging auch alles ohne Meldungen.
Delphi-Quellcode:
procedure TForm1.bGetMailsClick(Sender: TObject);
var
InBox: TInbox;
MailItem: TMapiMailItem;
begin
InBox := TInBox.Create('Doe, John');
try
MailItem := InBox.GetFirst;
while Assigned(MailItem) do begin
mMails.Lines.Add(Format('From: %s <%s>'#13#10'Subject: %s'#13#10'%s'#13#10,
[MailItem.Sender,
MailItem.SenderEmail,
MailItem.Subject,
Copy(MailItem.Body, 1, Min(50, Pos(#13, MailItem.Body)))]));
MailItem.Free;
MailItem := InBox.GetNext;
end;
finally
InBox.Free;
end;
end;