Niet leuk...
exception class : EOleException
exception message : De bewerking is mislukt. Kan een object niet vinden.
Code:
fOutlook := TOutlookApplication.Create(Self);
fNameSpace := fOutlook.Session;
//.......
Code:
if Node = nil then
aFolders := fNameSpace.Folders
else begin
aNodeMapi := GetMap(Node)^.fMapi;
aFolders := aNodeMapi.Folders;
end;
// als getfirst misgaat kunnen we absoluut niet verder
try
Mapi := aFolders.GetFirst;
except
on E: System.SysUtils.Exception do
begin
ShowMessage('Fout bij het uitlezen van de eerste folder.' + CRLF + E.Message);
Exit;
end;
end;
while Assigned(Mapi) do // bij mij gaat het hier ergens fout
begin
if (Mapi.DefaultItemType = olMailItem) then
begin
Child := fTree.AddChild(Node);
Map := GetMap(Child);
Map^.fText := Mapi.Name;
Map^.fMapi := Mapi;
// set expandable
fTree.HasChildren[Child] := Mapi.Folders.Count > 0;
end;
Mapi := aFolders.GetNext;
end;
Bookmarks