☰

Outlook の起動/終了時に不在通知をオン/オフにするように通知するマクロ

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2007 automation macros out-of-office
Outlook の起動/終了時に不在通知をオン/オフにするように通知するマクロ

Outlook 2007 にマクロを追加して、Outlook をシャットダウンするときに不在時アシスタントをオンにするかどうかを尋ね、Outlook を開いたときに不在時アシスタントをオフにするかどうかを尋ねたいと思っています。閉じるときにプロンプ​​トを作成する手順は、次のとおりです (Outlook 2010: Outlook が閉じているときに不在通知を自動的にオンにする方法を教えてください。そしてhttp://itknowledgeexchange.techtarget.com/itanswers/automating-out-of-office/) ですが、開いたときのプロンプトのマクロの書き方がわかりません。

答え1

こちらをご覧ください 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

ここがあなたが興味を持っている部分です。

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

「Outlook 2010 ではコードをテストしていません」という注記があります。

また、「CDO (Collaboration Data Objects) がコンピューターにインストールされている必要があります。CDO がインストールされていない場合は、この Microsoft ページからダウンロードできます。」

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

関連情報