Andrew


I've received details on creating emails from Excel using macros. Can
anyone tell me how to assign a Category from the Options Tab to an Outlook
email message created with an Excel macro?


Use the Categories property.

Sub test()

Dim olapp As Outlook.Application
Dim olmail As Outlook.MailItem

Set olapp = New Outlook.Application
Set olmail = olapp.CreateItem(olMailItem)

With olmail
.To = "
.Subject = "Test Category"
.Body = "This is a category test"
.Categories = "Phone Calls"
.Send
End With

Set olmail = Nothing
Set olapp = Nothing

End Sub

See more on sending emails here

http://www.dicks-clicks.com/excel/olSending.htm

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

Dick,

Thanks for your note. I'm sorry that I missed it when you replied. But
I'll give it a go later today. I'll even try it with an autosignature.

Thanks again
Andrew.


Dick Kusleika wrote in message ...
Andrew


I've received details on creating emails from Excel using macros. Can
anyone tell me how to assign a Category from the Options Tab to an
Outlook
email message created with an Excel macro?


Use the Categories property.

Sub test()

Dim olapp As Outlook.Application
Dim olmail As Outlook.MailItem

Set olapp = New Outlook.Application
Set olmail = olapp.CreateItem(olMailItem)

With olmail
.To = "
.Subject = "Test Category"
.Body = "This is a category test"
.Categories = "Phone Calls"
.Send
End With

Set olmail = Nothing
Set olapp = Nothing

End Sub

See more on sending emails here

http://www.dicks-clicks.com/excel/olSending.htm

--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.