如何解决如何更改 Outlook 脚本中的文件夹以转发电子邮件
我收到了大量的 OSAT 电子邮件和需要采取行动的电子邮件,我想转发给我的商店经理。我在 Outlook 中过滤了特定电子邮件,以便根据电子邮件正文中的商店编号将其移入文件夹。我可以让这个脚本只处理从特定发件人进入我的收件箱的所有电子邮件,但我无法搜索电子邮件正文并转发给特定的人。所以我首先过滤到文件夹并尝试更改脚本中的文件夹,但我无法让脚本查找进入此文件夹的电子邮件。
我还想在转发后删除该电子邮件。这是我一直在使用的代码
Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInbox.Items
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objForward As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
If (Item.SenderEmailAddress = "Test@gmail.com") And (objMail.Subject = "test") Then
Set objForward = Item.Forward
With objForward
.Subject = "test"
.HTMLBody = "<HTML><BODY> We have successfully tested </BODY></HTML>" & Item.HTMLBody
.Recipients.Add ("test@test.com")
.Recipients.Add ("Test@gmail.com")
.Recipients.ResolveAll
.Importance = olImportanceHigh
.Send
End With
End If
End If
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。