Hallo zusammen,
ich habe nun herrausgefunden wie ich die obersten Ordner durchlaufen lassen kann.
Wenn ich jetzt den Ordner "Postfach" gefunden habe, wie kann ich dann dort die Ordner weiter nach dem Ordner "Gesendete Elemente" durchsuchen ?
Delphi-Quellcode:
var
TOA:TOutlookApplication;
MI: MailItem;
NS: NameSpace;
Ordner:
String;
Folder: MAPIFolder;
I: Integer;
begin
TOA:= TOutlookApplication.Create(Form_Email.Outlook);
TOA.ConnectKind := ckRunningOrNew;
TOA.Connect;
NS := TOA.GetNamespace('
MAPI');
NS.Logon('
', '
', False, False);
Folder := NS.GetDefaultFolder(olFolders);
For I := 1
to NS.Folders.Count
do
begin
If NS.Folders.Item(I).
Name = '
Postfach'
then
begin
...
end;
end;
Gruss
Holger