Prompt Title: Outlook: Kalender bearbeiten.

Gerne! Hier ist ein Beispielcode, der einen Termin aus einem anderen Kalender öffnet und den BusyStatus auf 0 setzt:

vbCopy code
Sub BearbeiteTermin()
    Dim objNamespace As Outlook.NameSpace
    Dim objOtherCal As Outlook.Folder
    Dim objAppointment As Outlook.AppointmentItem
    
    ' Kalender öffnen
    Set objNamespace = Application.GetNamespace("MAPI")
    Set objOtherCal = objNamespace.Folders("[email protected]").Folders("Kalendername")
    
    ' Termin auswählen und öffnen
    Set objAppointment = objOtherCal.Items.Find("[Subject]='Terminbetreff'")
    objAppointment.Display
    
    ' BusyStatus auf 0 setzen
    objAppointment.BusyStatus = olFree
    
    ' Änderungen speichern
    objAppointment.Save
    
    ' Aufräumen
    Set objAppointment = Nothing
    Set objOtherCal = Nothing
    Set objNamespace = Nothing
End Sub

Bitte passen Sie den Code an Ihre Bedürfnisse an, indem Sie die E-Mail-Adresse und den Namen des Kalenders sowie den Betreff des Termins ersetzen.