Question

我收到包含链接的电子邮件。该链接不起作用，因为我不在该公司的网络上。我可以更改部分链接供外部使用，以使其正常工作。

例如，电子邮件具有以下链接：

https：// ipdms.web .companyname.com / ipdms / itemlocation

我将其更改为：

https：// companyVPN .companyname.com / ipdms / itemlocation

我能够创建一个脚本，但是我需要打开电子邮件，运行宏，然后在电子邮件上单击保存。

Sub Change2VPN()

Application.ActiveInspector.CurrentItem.body = _
  Replace(Application.ActiveInspector.CurrentItem.body, "ipdms.web", "companyVPN")

End Sub

我进行了搜索，但无法进行任何操作。有没有办法我可以在文件夹中的所有项目上完成此操作，然后将电子邮件保存在原位置，还是至少从阅读窗格中完成？

我可以将宏按钮添加到功能区。
由于公司政策的限制，我通常无法在收到的电子邮件上运行脚本。

Answer 1

基本上，您需要获得一个当前选择的文件夹，在该文件夹中单击一个功能区按钮，然后遍历该文件夹中的所有项目以完成工作：

Sub Change2VPN()

Dim olFolder As Outlook.Folder
Dim Item As Object
Dim explorer as Outlook.Explorer


Set explorer = Application.ActiveExplorer()
Set olFolder = explorer.CurrentFolder

For Each Item In olFolder.Items
    If TypeOf Item Is Outlook.MailItem Then 
        Dim oMail As Outlook.MailItem: Set oMail = Item
        oMail.HTMLBody = Replace(oMail.HTMLBody, "ipdms.web", "companyVPN")
        oMail.Save()
    End If
Next

End Sub

替换正文中的文本并保存

1 个答案: