Thema Datum  Von Nutzer Rating
Antwort
Rot AppointmentItems in Kategroien einteilen
03.07.2012 13:13:09 Georg Funk
NotSolved

Ansicht des Beitrags:
Von:
Georg Funk
Datum:
03.07.2012 13:13:09
Views:
1601
Rating: Antwort:
  Ja
Thema:
AppointmentItems in Kategroien einteilen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot AppointmentItems in Kategroien einteilen
03.07.2012 13:13:09 Georg Funk
NotSolved