Vba 如何根据Outlook项目的文件夹采取不同的操作？

我想标记和标记要操作的项目

如果该项目位于任何收件箱或普通邮件文件夹中，请标记该项目，将该项目标记为“#Action”，然后将其移动到“#Action”文件夹中

如果项目位于“已发送”文件夹中，请标记该项目并将其移动到“#查询”文件夹

在采取行动之前，如何检查项目所在的文件夹

我想我可以先声明已发送文件夹，如下所示：

Dim SentItems As Folder  
Set SentItems = Outlook.Application.GetNamespace("MAPI")>GetDefaultFolder(olFolderSentMail)

如何检查项目是否在SentItems中

差不多

Dim obj As Object Dim msg As Outlook.MailItem
For Each obj In ActiveExplorer.Selection

    If obj In SentItems Then
        do the sent item stuff
    Else
        do the all other folder stuff
    End If

你可以用

obj.Parent.Name

或许

---

obj.Parent.FullFolderPath

您的代码如何获取/接收项目

obj

？从用户选择中？

Dim obj As Object

Dim msg As Outlook.MailItem

用于ActiveExplorer中的每个对象。选择

If obj.Parent.Name = "Sent Items" Then 
stuff 
Else
other stuff 
End If