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事件來跟蹤在檢查員中打開的消息）。