VBA Excel, im Outlook Kalender Kategorien in verschiedenen Postfächer erstellen
Guten Tag zusammen. Ich habe schon wieder ein Problem, wobei ich mit meinen minimalen VBA Kenntnisse am Scheitern bin.
Folgendes habe ich vor:
Im C1 steht die Mailadresse für das Postfach, indem ich neue Kategorien erstellen möchte. Mit dem Folgenden Code, eröffne ich leider immer nur, neue Kategorien in meinem Standard Postfach und nicht im ausgwählten vom C1.
Ich hoffe, dass mir jemand helfen kann.
Beste Grüsse us de Schwiiz
Folgendes habe ich vor:
Im C1 steht die Mailadresse für das Postfach, indem ich neue Kategorien erstellen möchte. Mit dem Folgenden Code, eröffne ich leider immer nur, neue Kategorien in meinem Standard Postfach und nicht im ausgwählten vom C1.
Sub Testxy()
Dim oOutlookApp As Object
Dim Mapi As Object, oCat As Object
Set oOutlookApp = CreateObject("Outlook.Application")
Set objCal = oOutlookApp.Session.Stores.Item(Range("C1").Value).GetDefaultFolder(9)
'Kategorie erstellen'
Set Mapi = oOutlookApp.GetNamespace("Mapi")
If Range("g2").Value <> "" Then
For Each oCat In Mapi.Categories
If oCat.Name = Range("g2").Value Then
Exit For
End If
Next
If oCat Is Nothing Then
Set oCat = Mapi.Categories.Add(Range("g2").Value, enuCatColor.Schwarz)
End If
End If
End Sub
Ich hoffe, dass mir jemand helfen kann.
Beste Grüsse us de Schwiiz
Please also mark the comments that contributed to the solution of the article
Content-Key: 391037
Url: https://administrator.de/contentid/391037
Printed on: April 23, 2024 at 07:04 o'clock
2 Comments
Latest comment
Mit dem Folgenden Code, eröffne ich leider immer nur, neue Kategorien in meinem Standard Postfach und nicht im ausgwählten vom C1.
Weil du hier auf das Standardpostfach verweist:Set Mapi = oOutlookApp.GetNamespace("Mapi")
und auch hier dieses verwendest statt den jeweiligen Store zu verwendenFor Each oCat In Mapi.Categories
Du musst das des Stores verwenden auf das du im ersten Schritt hier verweist:oOutlookApp.Session.Stores.Item(Range("C1").Value)
Alsoset oStore = oOutlookApp.Session.Stores.Item(Range("C1").Value)
For Each oCat In oStore.Categories
....
....
Next
Gruß l.