Hello all. I am currently emailing from Excel (Outlook 2003), but am
interested in finding out if there is a way to set the color of the
follow-up flag in Outlook with VB. Outlook 2003 gives the option of
setting the color of the follow up flag to Red, Blue, Yellow, Green,
Orange, or Purple. I've looked around but have been unable to find any
info on this. Thank you for your help.

object.FlagIcon = olYellowFlagIcon or olBlueFlagIcon, etc.

"rrmando" wrote:

Hello all. I am currently emailing from Excel (Outlook 2003), but am
interested in finding out if there is a way to set the color of the
follow-up flag in Outlook with VB. Outlook 2003 gives the option of
setting the color of the follow up flag to Red, Blue, Yellow, Green,
Orange, or Purple. I've looked around but have been unable to find any
info on this. Thank you for your help.

Thanks for the info. I'm a rookie with VB, can you please show me how
to adapt to this code? I've tried unsuccessfully. Thank you.

Dim EmailTo As String
Dim oApp As Object
Dim oItem As Object
Dim recipients As String
recipients = "

EmailTo = recipients

Set oApp = CreateObject("Outlook.Application", "localhost")

Set oItem = oApp.CreateItem(0)
With oItem
..To = EmailTo
..CC = .SenderEmailAddress
..Subject = NewName
..Attachments.Add ActiveWorkbook.FullName
..Body = "Please approve this purchase requisition by replying directly
to this email. If you have question about this Req, please email or
call the requester separately. Do not reply to this message if you do
not approve it. Thanks"
..HTMLBody = SheetToHTML(ActiveSheet)
..Importance = 1
..Send
End With
Set oItem = Nothing
Set oApp = Nothing

What didn't work? I don't see that you incorporated KePaHa's suggestion into your code yet. That suggestion tells you what property to set and what values are valid.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"rrmando" wrote in message oups.com...
Thanks for the info. I'm a rookie with VB, can you please show me how
to adapt to this code? I've tried unsuccessfully. Thank you.

Dim EmailTo As String
Dim oApp As Object
Dim oItem As Object
Dim recipients As String
recipients = "

EmailTo = recipients

Set oApp = CreateObject("Outlook.Application", "localhost")

Set oItem = oApp.CreateItem(0)
With oItem
.To = EmailTo
.CC = .SenderEmailAddress
.Subject = NewName
.Attachments.Add ActiveWorkbook.FullName
.Body = "Please approve this purchase requisition by replying directly
to this email. If you have question about this Req, please email or
call the requester separately. Do not reply to this message if you do
not approve it. Thanks"
.HTMLBody = SheetToHTML(ActiveSheet)
.Importance = 1
.Send
End With
Set oItem = Nothing
Set oApp = Nothing

"KePaHa" wrote in message ...
object.FlagIcon = olYellowFlagIcon or olBlueFlagIcon, etc.

"rrmando" wrote:

Hello all. I am currently emailing from Excel (Outlook 2003), but am
interested in finding out if there is a way to set the color of the
follow-up flag in Outlook with VB. Outlook 2003 gives the option of
setting the color of the follow up flag to Red, Blue, Yellow, Green,
Orange, or Purple. I've looked around but have been unable to find any
info on this. Thank you for your help.