前景启动代码不起作用

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")