macro để làm cho Outlook nhắc tôi mở / đóng để tắt / bật Office

Tôi muốn thêm một macro vào Outlook 2007 để hỏi tôi khi tôi tắt nó nếu tôi muốn bật Trợ lý ngoài văn phòng, rồi hỏi tôi khi tôi mở Outlook nếu tôi muốn tắt Trợ lý văn phòng. Tôi đã tìm thấy hướng dẫn để tạo dấu nhắc ở gần (tại Outlook 2010: Làm cách nào để tự động tắt Office khi đóng Outlook? và http://itledgeledgeexchange.techtarget.com/itanswers/automating-out-of-office/ ) nhưng tôi không biết cách viết macro cho dấu nhắc mở.

— zomigi
nguồn

Xem tại đây http://www.experts-exchange.com/Software/Office_Sản phẩm / Groupware / Oplook / A_3487-Tự động-

Private Sub Application_Quit()
    OutOfOffice True
End Sub

Đây là phần bạn quan tâm.

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

Có một lưu ý "không được kiểm tra mã với Outlook 2010".

Cũng như "CDO (Đối tượng dữ liệu cộng tác) phải được cài đặt trên máy tính. Nếu bạn phát hiện ra rằng CDO chưa được cài đặt, thì bạn có thể tải xuống từ trang Microsoft này."

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

— niton
nguồn