Hallo liebe Forumgemeinde!

Ich möchte ein Makro schreiben, das AppointmentItems im Kalender farbig hinterlegt, je nachdem ob sie zugesagt oder abgesagt, usw. wurden.

Jetzt hab ich das Problem, dass für den Ersteller des Termins die Variable "ResponseStatus" immer gleich "1" ist.

Doch gerade für den Autor des Termins wäre es interessant, den Status des Termins abrufen zu können.

Kann man da irgendwas machen? Vielleicht mit Vererbung?

Der Code sieht momentan so aus:

Private WithEvents Items As Outlook.Items 

Private Sub Application_Startup() 'Diese Sub wählt den Standardkalender an bei Event Startup 
  Dim Ns As Outlook.NameSpace 
  Set Ns = Application.GetNamespace("MAPI") 
  Set Items = Ns.GetDefaultFolder(olFolderCalendar).Items 
End Sub 

Private Sub Items_ItemChange(ByVal Item As Object)  'Das auslösende Event 

Dim Appt As Outlook.AppointmentItem 

If TypeOf Item Is Outlook.AppointmentItem Then 'Prüfen, ob das Event ein Termin ist 
    Set Appt = Item                             ' Wenn ja, dann erstelle Appt als Object von Outlook.AppointmentItem 
        
        If Appt.ResponseStatus = olResponseAccepted Then ' Alle Statusmöglichkeiten scannen und entsprechende Kategorie einstellen 
        Appt.Categories = "zugesagt" 
        Appt.Save 
        End If 
        
        If Appt.ResponseStatus = olResponseDeclined Then 
        Appt.Categories = "abgelehnt" 
        Appt.Save 
        End If 
        
        If Appt.ResponseStatus = olNotResponded Then 
        Appt.Categories = "nicht zugesagt" 
        Appt.Save 
        End If 
        
        If Appt.ResponseStatus = olResponseTentative Then 
        Appt.Categories = "mit Vorbehalt" 
        Appt.Save 
        End If 

        If Appt.ResponseStatus = olResponseOrganized Then 
        Appt.Categories = 
        Appt.Save 
        End If 

        
End If 
End Sub 

Vielen Dank,

Georg