我收到包含链接的电子邮件。该链接不起作用,因为我不在该公司的网络上。我可以更改部分链接供外部使用,以使其正常工作。
例如,电子邮件具有以下链接:
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
我进行了搜索,但无法进行任何操作。有没有办法我可以在文件夹中的所有项目上完成此操作,然后将电子邮件保存在原位置,还是至少从阅读窗格中完成?
我可以将宏按钮添加到功能区。
由于公司政策的限制,我通常无法在收到的电子邮件上运行脚本。
答案 0 :(得分:0)
基本上,您需要获得一个当前选择的文件夹,在该文件夹中单击一个功能区按钮,然后遍历该文件夹中的所有项目以完成工作:
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