程序问答   发布时间:2022-06-01  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了如何更改 Outlook 脚本中的文件夹以转发电子邮件大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。

如何解决如何更改 Outlook 脚本中的文件夹以转发电子邮件?

开发过程中遇到如何更改 Outlook 脚本中的文件夹以转发电子邮件的问题如何解决?下面主要结合日常开发的经验,给出你关于如何更改 Outlook 脚本中的文件夹以转发电子邮件的解决方法建议,希望对你解决如何更改 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,请注明来意。
标签: