Setting Flag in Outlook

[michelle]

Hello Vb users and Ishamel,

In Outlook 97 is a flag button for setting a kind of note:

Call,
Do not forward,
Follow up,
For your information,

etc etc

How can I set the flag to for example "For your information"?


Source:
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = "q@q"
. ???? set flag property ????
End With


Nice greetings,

Michelle.

[Ishamel]

I'm working with Outlook 98, but I think this is what you are after.

You are wanting to set the FlagRequest property before you send a MailItem.

Dim objOutlook As New Outlook.Application 

Dim objOutlookMsg As Outlook.MailItem 

Set objOutlookMsg = objOutlook.CreateItem(olMailItem) 

With objOutlookMsg 
    .To = "q@q" 

    'Set the FlagRequest property as appropriate.
    .FlagRequest = "Call"
    'or
    .FlagRequest = "Do Not Forward"
    'or
    .FlagRequest = "Follow Up"  'This can also be set through FlagStatus property.
    'or
    .FlagRequest = "For Your Information"
End With