VBA 将已读电子邮件移动到特定文件夹

Question

我正在努力寻找一个相当普遍的问题的明确答案？

我的老板在收件箱中有团队成员的文件夹，但不想将电子邮件移到那里，直到它们从收件箱中读出。所以我正在尝试编写一个遵循这些逻辑步骤的宏：

For each mailitem in inbox:
    Check if read
      Check sender name
      select case True
        sender name like existing folder name
        move item to corresponding folder name
next mailitem

你能帮我把这个放在一起吗，我在这上面迷路了！！

菲尔

Answer 1

遍历收件箱文件夹中的所有项目不是一个好主意。您需要使用Items 类的Find/FindNext 或Restrict 方法来查找与您的条件相对应的所有项目（阅读和发件人姓名）。在以下文章中详细了解这些方法：

• How To: Use Find and FindNext methods to retrieve Outlook mail items from a folder (C#, VB.NET)
• How To: Use Restrict method to retrieve Outlook mail items from a folder

然后您可以使用 MailItem 类的 Move 方法将 Microsoft Outlook 项目移动到新文件夹。例如：

Sub MoveItems() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myInbox As Outlook.Folder 
 Dim myDestFolder As Outlook.Folder 
 Dim myItems As Outlook.Items 
 Dim myItem As Object 

 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) 
 Set myItems = myInbox.Items 
 Set myDestFolder = myInbox.Folders("Personal Mail") 
 Set myItem = myItems.Find("[SenderName] = 'Eugene Astafiev'") 
 While TypeName(myItem) <> "Nothing" 
  myItem.Move myDestFolder 
  Set myItem = myItems.FindNext 
 Wend 
End Sub

Getting Started with VBA in Outlook 2010 文章可能对您有所帮助。