Catagorizing email using Excel VBA

[DSB0099]

Hi Team,

I need to automatically categorize all the email which I send through below VBA in excel. Please can you assist to modify/edit the code below to accomodate categorzing the email evreytime to "Personal" category.
It may be very simple code for you.

Dim olApp As Object
Dim olMailItm As Object
Dim SDest As String

Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)

With olMailItm
SDest = “XX@XX.com”
.To = SDest
.Subject = "TEST"
.Body = " TESTING "
.Send

End With


Many Thanks in Advance

 

[RoryA]

Add:

.Categories = "Personal"

before the .Send line.

 

[DSB0099]

Perfect! works great. Thanks Rory

Add:

.Categories = "Personal"

before the .Send line.