元の電子メールからテキストを検索し置換するためのOutlookVBA

Question

元の電子メールのテキストを見つけて新しい電子メールに置き換えて、利害関係者の束にするためにOutlook VBAを実行しようとしています。

スクリプトを実行するのが困難であることを見つける。 シナリオでは、会社名のリストを持つメールが届きます。だから私はこのスクリプトを実行しているときは、元の電子メールに記載されている会社名に置き換えてください。

以下は私のスクリプトです。

Sub Test() 

Dim origEmail As MailItem 

Dim replyEmail As MailItem 

Dim oRespond As Outlook.MailItem 

Dim strcompany As String 

Dim strHTML As String 


Set origEmail = Application.ActiveWindow.Selection.Item(1) 

Set replyEmail = Application.CreateItemFromTemplate("C:\Users\test-.oft") 

strcompany = InputBox("Issue : ", "Replace %company%") 

strHTML = Replace(replyEmail.HTMLBody, "Company:", strissue) 

replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody 

replyEmail.Subject = replyEmail.Subject & origEmail.Reply.Subject 


replyEmail.Display 

End Sub 

Answer 1

1. 使用Explorer.SelectionChange（Application.ActiveExplorerを使用）、選択した電子メールにイベントハンドラを設定する選択変更
2. を追跡します。
3. MailItem.Replyイベントが発生すると、元のメッセージからプロパティを読み取り、パラメータとしてイベントハンドラに渡された新しいメッセージのプロパティを読み込むことができます。
4. 開いているインスペクタから返信されたメッセージに対しても同じことができます（Inspectors.NewInspectorイベントを使用して、インスペクタで開いたメッセージを追跡します）。