为组织内部和外部自动设置 Outlook 2010 的外出办公时间

Question

我目前能够在 Outlook 关闭时自动启用 OOO（外出办公）。

我有以下代码，当我关闭 Outlook 时，它会启用 OOO，它目前仅适用于内部电子邮件（回复从组织内部收到的电子邮件），但不适用于从组织外部收到的电子邮件（例如，如果我从我的 hotmail 帐户发送电子邮件进行测试，我不会收到自动回复）。

有想法该怎么解决这个吗？

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

非常感谢您提供的任何帮助...

Olga ps原文出处： http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/A_3487-Automating-Out-of-Office-in-Outlook.html