错误：操作失败 - 800401f3 - 从vbscript控制不在办公室

Question

我写了一个vbscript，以便能够为其他人控制外出（OOO）。我们都在同一家公司，同一个网络。代码在我的电脑上运行完美，但是在它上面弹出了错误信息：

以下是我的代码的第一行，包括第44行（如错误消息中所示）：

Sub olOutOfOffice(ActivateOOO)

    Dim olApp
    Set olApp = WScript.CreateObject("Outlook.Application")

    Dim olNameSpace
    Set olNameSpace = olApp.GetNamespace("MAPI")

    Dim olFolder
    Set olFolder = olNameSpace.GetDefaultFolder(6)

    Dim olSession
    Set olSession = olApp.CreateObject("MAPI.Session") 'Line #44

    olSession.Logon "", "", False, False

请注意，即使我在我的其余脚本中未使用olNameSpace和olFolder，这些行Set olNameSpace...和Set olFolder...也是必需的PC。但是，在我的同事的PC上，从代码中删除这些行会出现与它们存在时相同的错误。