如何根据主题将收到的邮件移动到特定文件夹？答案

【问题标题】：How to move incoming mail to specific folder based on the subject?如何根据主题将收到的邮件移动到特定文件夹？
【发布时间】：2021-03-05 06:25:14
【问题描述】：

如何根据主题名称将收到的邮件从收件箱移动到特定文件夹？

如果主题包含 Urgent 字样，则将此邮件移至 QuickLook 子文件夹。收件箱中的现有邮件不需要。
我想在我的规则向导中使用 run as script 来创建新规则，以便它适用于我在收件箱中收到的每条消息。

我知道我可以通过 Outlook 规则实现它，但根据我的要求需要这个宏。

【问题讨论】：

请不要将其标记为重复，类似的问题没有给我正确的解决方案。

标签： vba outlook

【解决方案1】：

我得到了答案。将以下脚本另存为模块。

Public Sub MoveUrgentMails(myItem As Outlook.MailItem)

 Dim myNameSpace As Outlook.NameSpace
 Dim myInbox As Outlook.Folder
 Dim myDestFolder As Outlook.Folder
 
 Set myNameSpace = Application.GetNamespace("MAPI")
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
 Set myDestFolder = myInbox.Folders("QuickLook")
 
 If InStr(myItem.Subject, "Urgent") > 0 Then
    myItem.Move myDestFolder
 End If

End Sub

【讨论】：