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

Question

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

Answer 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方法。