質問

合成メールの署名を変更するためのAddinを書いています。私はプライベートサブインスペクタ_newinspectorを試しました。これが呼び出されたときに署名が郵送されていないが、メール本文は答えている元のメールのメール本文であるため、機能しません。 署名が追加された後にコードを呼び出すにはどうすればいいですか?

私は

を試してみました
Private Sub inspectors_activate(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector
.

Private Sub inspectors_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector
.

両方の火災署名が追加されました(MSGBOX(mailitem.body)をサブに追加することで、私は私が答えているメールと同一であることがわかります。

編集 Activate - イベントが動作しないようです - 私は試しました:

    Public Sub inspector_activate(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector)_
       Handles inspector.activate
        Dim mailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, Outlook.MailItem)
        Msgbox("test activate has fired")
        If Not TypeOf MailItem Is Outlook.MailItem Then Exit Sub
     end sub

Thanks
Max
.

役に立ちましたか?

解決

Inspector.Activateイベントを使用してみてください - インスペクタが表示された後に起動します。

ライセンス: CC-BY-SA帰属
所属していません StackOverflow
scroll top