Changing the flag status

[Mark J]

Hi

I've written some code to automatically save an outlook message from our
Exchange Public Folders to a particular location (whcih works like a dream)
but would like to add some code to mark the flag as complete once the macro
has run.

I can get a coloured flag to appear, but not a completed tick or checkmark.
I've tried this:

Dim objApp As Outlook.Application
Set objApp = CreateObject("Outlook.Application")
Set CurrentItem = objApp.ActiveExplorer.Selection.Item(1)
....
Dim objMail As Outlook.MailItem
Set objMail = CurrentItem
objMail.FlagIcon = olFlagComplete

and also objMail.FlagStatus = olFlagComplete

but to no avail.
Any ideas - I've probably missed somethin blindingly obvious!!

M

 

[Mark J]

and I'm using 2003!

 

[Sue Mosher [MVP-Outlook]]

Unless you also have an objMail.Save statement, your changes to the item will
be discarded. Your Outlook version might also be useful information.