How to change status of a mail marked as a task (VBA)

[kradam]

I like Outlook feature of combining tasks and marked as task emails in a
single task view. I can change status of tasks and THESE EMAILS in a table
view.

If I send an email and I flag it then it means for me that the status of
this Task should be set to olTaskWaiting. I do it manualy in a task view but
I decided to create a code snippet to change the status automatically.

I catch ItemAdd event in SentMail folder:

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
If Item.FlagStatus = olFlagMarked Then
Item.Status = olTaskWaiting ' ERROR!
End If
End Sub


When I send a marked email I get an error message" "Object doesn't support
this property or method.". It isn't actually suprising cause MailItem object
doesn't support Status property. How could I change Status of my marked as
tasks emails using VBA?

Outlook 2007, WIN 7

 

[Ken Slovak - [MVP - Outlook]]

Get the MailItem.PropertyAccessor object and use
PropertyAccessor.SetProperty("http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}/81010003")
to set the value you want, which would be a Long.

Note that the property tag value supplied for Status is a DASL property tag
string and not an URL.

 

[kradam]

Thank you Ken, it was very helpful