|
Hallo Gast66692,
vielen Dank. Folgendes habe ich ausprobiert:
Sub OrdnerAusblenden()
Dim olNamespace As Outlook.Namespace
Dim olFolder As Outlook.Folder
Dim olPropertyAccessor As Outlook.PropertyAccessor
' Zugriff auf das Namespace-Objekt und den gewünschten Ordner
Set olNamespace = Application.GetNamespace("MAPI")
Set olFolder = olNamespace.Folders("email@anbieter.de").Folders("Outlook")
' Zugriff auf die Eigenschaften des Ordners
Set olPropertyAccessor = olFolder.PropertyAccessor
' Ausblenden des Ordners durch Setzen der PR_ATTR_HIDDEN-Eigenschaft
Const PR_ATTR_HIDDEN As String = "http://schemas.microsoft.com/mapi/proptag/0x10F4000B"
olPropertyAccessor.SetProperty PR_ATTR_HIDDEN, True
MsgBox "Der Ordner wurde erfolgreich ausgeblendet."
End Sub
Bei "email@anbieter.de" stehe meine eigene E-Mail-Adresse. Aber wenn diese Zeile abgearbeitet wird, erhalte ich den folgenden Fehler:
 Laufzeitfehler -2147221233 (8004010f): Der versuchte Vorgang konnte nicht ausgeführt werden. Ein Objekt wurde nicht gefunden.
Was mache ich falsch?
Freundlichen Gruß, Noepes
|