大佬教程收集整理的这篇文章主要介绍了如何更改 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 (将#修改为@)
以上是大佬教程为你收集整理的如何更改 Outlook 脚本中的文件夹以转发电子邮件全部内容,希望文章能够帮你解决如何更改 Outlook 脚本中的文件夹以转发电子邮件所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。