前景啓動代碼不起作用

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