署名後に発生するイベントが追加されました
-
21-12-2019 - |
質問
合成メールの署名を変更するための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イベントを使用してみてください - インスペクタが表示された後に起動します。
所属していません StackOverflow