将邮件移动到“垃圾邮件”文件夹并创建垃圾邮件规则

【问题标题】：Move mail to "Junk Email" folder and create a spam rule将邮件移动到“垃圾邮件”文件夹并创建垃圾邮件规则
【发布时间】：2022-04-28 08:45:02
【问题描述】：

我想将选定的电子邮件移至“垃圾邮件”文件夹，并为该电子邮件地址创建垃圾邮件规则，自动将以后从该地址发送的所有电子邮件发送到我的垃圾邮件。

【问题讨论】：

欢迎来到 Stack Overflow！为了得到一些好的回应和帮助，请向我们展示您已经尝试过的内容。

标签： vba outlook

【解决方案1】：

要移动消息，请尝试以下操作（在我的脑海中）

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 对象模型不公开垃圾邮件设置。如果使用Redemption（我是它的作者）是一个选项，它会公开RDOJunkEmailOptions.BlockedSenders.Add 方法。

【讨论】：

谢谢德米特里，不幸的是它不是，但知道没有解决方案仍然是一个答案。很抱歉延迟回复。