vba - 如何创建脚本以将收件箱中当前事件的电子邮件移动到 Outlook 2007 中的另一个文件夹

Question

我有时会收到想要保留的电子邮件，但将它们移动到适当的文件夹可能会很痛苦。例如，如何执行一个脚本，将我正在查看的电子邮件移动(例如使用 C-S-v)到某个名为“缓冲区”的文件夹中？

我使用的是 Outlook 2007。

谢谢。

---

编辑:没有任何标准可以像通过规则一样自动执行此过程。这只是我盯着它做的判断。

Answer 1

此代码可能会更好。

在您的代码中，objFolder 可能等于 Nothing，但您继续该过程。此外，For Each 循环假定每个项目都是邮件项目。

Sub MoveSelectedMessagesToFolder()
  Dim objNS As Outlook.NameSpace
  Dim objFolder As Outlook.MAPIFolder
  Dim obj As Object
  Dim msg As Outlook.mailItem

  Set objNS = Application.GetNamespace("MAPI")
  On Error Resume Next
  Set objFolder = objNS.Folders.item("Personal Folders").Folders.item("Buffer")
  On Error GoTo 0

  If objFolder Is Nothing Then
    MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
    Exit Sub
  End If

  For Each obj In ActiveExplorer.Selection
    If TypeName(obj) = "MailItem" Then
      Set msg = obj
      msg.Move objFolder
    End If
  Next obj

End Sub