我想将选定的电子邮件移动到“垃圾邮件”文件夹,并为该电子邮件地址创建垃圾邮件规则,该规则将将来所有从该地址发送到我的垃圾邮件中的电子邮件自动发送出去。
要移动消息,请尝试以下操作(不在我的头上)
if Application.ActiveExplorer.Selection.Count > 0 Then
set Folder = Application.Session.GetDefaultFolder(olFolderJunk)
set Msg = Application.ActiveExplorer.Selection.Item(1)
Msg.Move(Folder)
End If
Outlook对象模型不公开垃圾邮件设置。如果使用“兑换”是一个选项,则它将公开RDOJunkEmailOptions .BlockedSenders.Add方法。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句