outlook启动代码不起作用

Question

我在“ThisOutlookSession”中有这段代码

Private Sub Application_Startup()
    Set objInspectors = Outlook.Inspectors
Dim oNamespace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim folder As Outlook.MAPIFolder
Set oNamespace = Outlook.GetNamespace("MAPI")
 MsgBox ("startup works")

然后是很多代码......

但它没有启动，我根本没有获得msgbox“启动工作”。如果我用F5手动启动Sub，一切都很顺利。

任何想法，为什么这不起作用？

由于 最大

Answer 1

出现这种情况很不寻常：

Set oNamespace = Outlook.GetNamespace("MAPI")

尝试：

Set oNamespace = Application.GetNamespace("MAPI")