Das Erstellen eines neuen Ordners unter Kontakte funktioniert in Outlook nicht einwandfrei.
Das Erstellen führe ich wie folgt aus:
Delphi-Quellcode:
const
olFolderContacts = $0000000A;
procedure AddNewFolderTest;
var
aOutlook: Variant;
aMapi : Variant;
aFolder : Variant;
begin
aOutlook := CreateOleObject('
Outlook.Application');
try
aMAPI := FOutlook.GetNameSpace('
MAPI');
aFolder := aMapi.GetDefaultFolder(olFolderContacts);
aFolder.Folders.Add('
Wichtig');
finally
aOutlook := Unassigned;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AddNewFolderTest;
end;
Danach wird auch erwartungsgemäß ein neuer Ordner unter Kontakte mit Namens 'Wichtig' erstellt.
Ich kann auch Kontakte (Adressen) in den Ordner Wichtig schieben. Funktioniert soweit alles.
Wenn ich bei einer neuen email auf den Button "An" klicke, dann erscheint das Fenster "Namen auswählen".
Soweit alles in Ordnung.
Jetzt möchte ich in der Combobox meinen neuen Ordner "Wichtig" auswählen.
Dieser Ordner wird aber in der Combobox nicht angezeigt.
Jetzt zu meiner Frage:
Warum nicht?
Was mache ich falsch?