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

Question

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

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?

Answer 1

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