有没有办法在 VBA 中添加特定类别并标记电子邮件？

Is there any way to add a specific category and flag an email in VBA?

提问by leora

I normally go through my email and flag anything for follow up and categorize for:

我通常会浏览我的电子邮件并标记任何内容以进行跟进和分类：

1. Phone Call
2. Email
3. Talk To
4. Setup meeting

1. 电话
2. 电子邮件
3. 与人交谈
4. 设置会议

Is there any way in a Outlook VBA macro, I can (in a single macro), both flag an item for follow and set one of the above categories on it?

在 Outlook VBA 宏中有什么方法吗，我可以（在单个宏中）标记一个项目以供关注并在其上设置上述类别之一？

回答by leora

I have found the answer . .listed below . . .

我找到了答案。。下面列出 。. .

Private Sub TagArchived1(category As String)

    Dim objOutlook As Outlook.Application
    Dim objInspector As Outlook.Inspector

    Dim strDateTime As String

    ' Instantiate an Outlook Application object.
    Set objOutlook = CreateObject("Outlook.Application")

    ' The ActiveInspector is the currently open item.
    Set objExplorer = objOutlook.ActiveExplorer

    ' Check and see if anything is open.
    If Not objExplorer Is Nothing Then
        ' Get the current item.
        Dim arySelection As Object
        Set arySelection = objExplorer.Selection

        For x = 1 To arySelection.Count
            Dim m As MailItem
            Set m = arySelection.Item(x)
            m.Categories = category
            m.FlagStatus = olFlagMarked
            m.FlagIcon = 6
            m.Save
        Next x

    Else
        ' Show error message with only the OK button.
        MsgBox "No explorer is open", vbOKOnly
    End If

    ' Set all objects equal to Nothing to destroy them and
    ' release the memory and resources they take.
    Set objOutlook = Nothing
    Set objExplorer = Nothing
End Sub