Makro, damit Outlook mich beim Öffnen / Schließen zum Ausschalten / Deaktivieren von Office auffordert

1809
zomigi

Ich möchte Outlook 2007 ein Makro hinzufügen, das mich beim Herunterfahren des Computers fragt, ob ich den Abwesenheitsassistenten aktivieren möchte, und fragt mich beim Öffnen von Outlook, ob ich den Office-Assistenten deaktivieren möchte. Ich habe Anweisungen zum Erstellen der Eingabeaufforderung beim Schließen gefunden (bei Outlook 2010: Deaktivieren von Outlook automatisch beim Schließen von Outlook) und http://itknowledgeexchange.techtarget.com/itanswers/automating-out-of-office/ ) aber ich weiß nicht, wie man beim Öffnen ein Makro für die Eingabeaufforderung schreibt.

3

1 Antwort auf die Frage

1
niton

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, an dem Sie interessiert sind.

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

Es gibt einen Hinweis "den 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=de

Verwandte Probleme