.oftのオープン時にコードを実行

Question

以下のコードを.oftファイル/電子メールで開くようにします。

ランタイム91エラーが発生しました。

Public WithEvents myItem As Outlook.MailItem 
Public EventsDisable As Boolean 

Private Sub Application_ItemLoad(ByVal Item As Object) 
    If EventsDisable = True Then Exit Sub 
    Set myItem = Item 
End Sub 


Private Sub myItem_Open(Cancel As Boolean) 
    EventsDisable = True 
    Dim Insp As Inspector 
    Dim obj As Object 
    Set Insp = Application.ActiveInspector 
    Set obj = Insp.CurrentItem 

    obj.HTMLBody = Replace(obj.HTMLBody, "XXXX", Format(Now + 14, "MMMM dd, yyyy")) 

    Set obj = Nothing 
    Set Insp = Nothing 

    EventsDisable = False 
End Sub 

最後のSub myItem_Openをパブリックサブとして手動で実行すると、完全に機能します。

Answer 1

代わりにInspectors.NewInspectorイベントを使用する必要があります（InspectorsはApplication.Inspectorsから取得できます）。

更新。トップ私の頭のオフ

Public WithEvents myInspectors As Outlook.Inspectors 

Private Sub Application_Startup() 
    set myInspectors = Application.Inspectors 
    MsgBox "Application_Startup" 
End Sub 

Private Sub myInspectors_NewInspector(ByVal insp As Inspector) 
    MsgBox "myInspectors_NewInspector" 
    Set obj = Insp.CurrentItem 
    obj.HTMLBody = Replace(obj.HTMLBody, "XXXX", Format(Now + 14, "MMMM dd, yyyy")) 
    Set obj = Nothing 
End Sub