☰

macro para fazer com que o Outlook me avise para abrir/fechar para ativar/desativar a ausência temporária

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2007 automation macros out-of-office
macro para fazer com que o Outlook me avise para abrir/fechar para ativar/desativar a ausência temporária

Gostaria de adicionar uma macro ao Outlook 2007 que me pergunte, quando eu o encerrar, se desejo ativar o Assistente de ausência temporária e, quando eu abrir o Outlook, pergunte se desejo desativar o Assistente de ausência temporária. Encontrei instruções para criar o prompt no fechamento (emOutlook 2010: Como ativar a ausência temporária automaticamente quando o Outlook é fechado?ehttp://itknowledgeexchange.techtarget.com/itanswers/automating-out-of-office/), mas não sei como escrever uma macro para o prompt aberto.

Responder1

Veja aqui 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

Esta é a parte que lhe interessa.

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

Há uma nota "não testei o código com o Outlook 2010".

Também "CDO (Collaboration Data Objects) deve estar instalado no computador. Se você descobrir que o CDO não está instalado, poderá baixá-lo nesta página da Microsoft."

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

informação relacionada