问题描述
我收到了大量的 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 (将#修改为@)