ich möchte meine im Outlook-Kalender angelegten Kategorien gerne per Excel-VBA auslesen und die ComboBox3 der Userform1 damit füllen. Über eine Antwort wäre ich sehr dankbar. Hintergrund ist, daß ich Termine direkt per Excel anlegen möchte. Wenn ich im Code die Kategorie direkt anlege, funktioniert es. Code steht weiter unten.
LG
Dirk
Private Sub CommandButton1_Click()
Dim myOLApp As Object
Dim myItem As Object
Dim myCat As String
Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.CreateItem(1)
Set myCat = Me.ComboBox3.Value
With myItem
.Subject = "Datei: " & ActiveWorkbook.Name
.Body = "Ich teste das mal..."
.Attachments.Add "C:\Test.pdf"
.Location = "Schule"
.Categories = "Auslieferung"
.Start = Format(Range("A1").Value, "dd.mm.yyyy") & " " & _
Format(Range("B1").Value, "hh:mm")
.Duration = "1500"
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
MsgBox "Termine an Outlook übertragen!"
Set myOLApp = Nothing
Set myItem = Nothing
Set myCat = Nothing
End Sub