macro para fazer com que o Outlook me avisar sobre abrir / fechar para desligar / ligar o Office

Question

Eu gostaria de adicionar uma macro ao Outlook 2007 que me pergunta quando eu desligá-lo se eu quiser desligar o Assistente de Ausência Temporária e, em seguida, me pergunta quando eu abro o Outlook se eu quiser desligar o Assistente do Office fora. Eu encontrei instruções para criar o prompt de perto (em Outlook 2010: Como desativar o Office automaticamente quando o Outlook é fechado? e link ) mas eu não sei como escrever uma macro para o prompt em aberto.

    

Answer 1

Veja aqui link

Private Sub Application_Quit()
    OutOfOffice True
End Sub

Esta é a parte em que você está interessado.

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 observação "não testei o código no Outlook 2010".

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

link