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