Makro, damit Outlook mich beim Öffnen/Schließen auffordert, die Abwesenheitsfunktion ein-/auszuschalten

Question

Ich möchte Outlook 2007 ein Makro hinzufügen, das mich beim Herunterfahren fragt, ob ich den Abwesenheitsassistenten einschalten möchte, und mich dann beim Öffnen von Outlook fragt, ob ich den Abwesenheitsassistenten ausschalten möchte. Ich habe Anweisungen zum Erstellen der Eingabeaufforderung beim Schließen gefunden (unterOutlook 2010: Wie aktiviere ich die Abwesenheitsfunktion automatisch, wenn Outlook geschlossen wird?Undhttp://itknowledgeexchange.techtarget.com/itanswers/automating-out-of-office/), aber ich weiß nicht, wie ich ein Makro für die Eingabeaufforderung beim Öffnen schreiben soll.

Answer 1

Siehe hier http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/A_3487-Automating-Out-of-Office-in-Outlook.html

Private Sub Application_Quit()
    OutOfOffice True
End Sub

Dies ist der Teil, der Sie interessiert.

Private Sub Application_Startup()
    OutOfOffice False
End Sub

Sub OutOfOffice(bolState As Boolean)
Const PR_OOF_STATE = "http://schemas.microsoft.com/mapi/proptag/0x661D000B"
Dim olkIS As Outlook.Store, olkPA As Outlook.PropertyAccessor
For Each olkIS In Session.Stores
    If olkIS.ExchangeStoreType = olPrimaryExchangeMailbox Then
        Set olkPA = olkIS.PropertyAccessor
        olkPA.SetProperty PR_OOF_STATE, bolState
    End If
Next
Set olkIS = Nothing
Set olkPA = Nothing
End Sub 

Dort gibt es den Hinweis „Code nicht mit Outlook 2010 getestet.“

Außerdem muss „CDO (Collaboration Data Objects) auf dem Computer installiert sein. Wenn Sie feststellen, dass CDO nicht installiert ist, können Sie es von dieser Microsoft-Seite herunterladen.“

http://www.microsoft.com/downloads/details.aspx?familyid=2714320d-c997-4de1-986f-24f081725d36&displaylang=en