Outlook - Ansteuerung

[renekr]

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;