I flag certain messages that I get with a certain color flag. I would
like to create a button that could remove that color flag from those
messages all at once. The end result would be the messages would no
longer have a flag. How would I accomplish this?

Am 23 Apr 2006 11:36:07 -0700 schrieb :

This sample deletes the text and icon. You only need to write yourself the
constant for the FlagIcon that you´re looking for. Simply place the mouse at
the end of the line "If Mail.FlagIcon=", right click and chose "show
constants" (or something similiar).

Public Sub UnflagItems()
Dim Items As Outlook.Items
Dim Mail as Outlook.MailItem
Dim obj as Object
Set Items = Application.Session.GetDefaultFolder(olFolderInbox ).Items
For Each obj in Items
If Typeof Item is Outlook.MailItem Then
Set Mail=Item
If Mail.FlagIcon=
Mail.FlagIcon=olNoFlagIcon
Mail.FlagRequest=vbNullString
Mail.Save
Endif
Endif
Next
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


I flag certain messages that I get with a certain color flag. I would
like to create a button that could remove that color flag from those
messages all at once. The end result would be the messages would no
longer have a flag. How would I accomplish this?

I tried this code but I am getting an error for the line that states"If
Mail.FlagIcon=olYellowFlagIcon"

Public Sub RemoveYellowFlagFromMessages()

Dim Items As Outlook.Items
Dim Mail As Outlook.MailItem
Dim obj As Object
Set Items = Application.Session.GetDefaultFolder(olFolderInbox ).Items
For Each obj In Items
If TypeOf Item Is Outlook.MailItem Then
Set Mail = Item
If Mail.FlagIcon=olYellowFlagIcon
Mail.FlagIcon = olNoFlagIcon
Mail.FlagRequest = vbNullString
Mail.Save
End If
End If
Next
End Sub

Am 2 May 2006 09:02:06 -0700 schrieb :

Simply add a "then" at the end of that line. The syntax is: If ... Then ...

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


I tried this code but I am getting an error for the line that states"If
Mail.FlagIcon=olYellowFlagIcon"

Public Sub RemoveYellowFlagFromMessages()

Dim Items As Outlook.Items
Dim Mail As Outlook.MailItem
Dim obj As Object
Set Items = Application.Session.GetDefaultFolder(olFolderInbox ).Items
For Each obj In Items
If TypeOf Item Is Outlook.MailItem Then
Set Mail = Item
If Mail.FlagIcon=olYellowFlagIcon
Mail.FlagIcon = olNoFlagIcon
Mail.FlagRequest = vbNullString
Mail.Save
End If
End If
Next
End Sub

Thanks. I added that and tried it again. I don't get an error now,
but nothing seems to happen. I have 10 messages in my inbox with a
yellow flag. When I ran the macro, I expected it to clear the flag
from those items, but nothing happened. Here is the code I have. Do I
need to change anything else? I even tried selecting the messages
first, but that didn't help.

Public Sub RemoveYellowFlagFromMessages()

Dim Items As Outlook.Items
Dim Mail As Outlook.MailItem
Dim obj As Object
Set Items = Application.Session.GetDefaultFolder(olFolderInbox ).Items
For Each obj In Items
If TypeOf Item Is Outlook.MailItem Then
Set Mail = Item
If Mail.FlagIcon = olYellowFlagIcon Then
Mail.FlagIcon = olNoFlagIcon
Mail.FlagRequest = vbNullString
Mail.Save
End If
End If
Next
End Sub

Am 3 May 2006 17:08:24 -0700 schrieb :

For Each obj In Items
If TypeOf Item Is Outlook.MailItem Then
Set Mail = Item

"Item" is not a declared variable. Replace it please by "obj".

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


Thanks. I added that and tried it again. I don't get an error now,
but nothing seems to happen. I have 10 messages in my inbox with a
yellow flag. When I ran the macro, I expected it to clear the flag
from those items, but nothing happened. Here is the code I have. Do I
need to change anything else? I even tried selecting the messages
first, but that didn't help.

Public Sub RemoveYellowFlagFromMessages()

Dim Items As Outlook.Items
Dim Mail As Outlook.MailItem
Dim obj As Object
Set Items = Application.Session.GetDefaultFolder(olFolderInbox ).Items
For Each obj In Items
If TypeOf Item Is Outlook.MailItem Then
Set Mail = Item
If Mail.FlagIcon = olYellowFlagIcon Then
Mail.FlagIcon = olNoFlagIcon
Mail.FlagRequest = vbNullString
Mail.Save
End If
End If
Next
End Sub

I made that change.....still not working. Is there something else I'm
missing?

Public Sub RemoveYellowFlagFromMessages()

Dim Items As Outlook.Items
Dim Mail As Outlook.MailItem
Dim obj As Object
Set Items = Application.Session.GetDefaultFolder(olFolderInbox ).Items
For Each obj In Items
If TypeOf Item Is Outlook.MailItem Then
Set Mail = obj
If Mail.FlagIcon = olYellowFlagIcon Then
Mail.FlagIcon = olNoFlagIcon
Mail.FlagRequest = vbNullString
Mail.Save
End If
End If
Next
End Sub

Am 4 May 2006 18:59:57 -0700 schrieb :



No, you didn´t. See:

If TypeOf Item Is Outlook.MailItem Then


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


I made that change.....still not working. Is there something else I'm
missing?

Public Sub RemoveYellowFlagFromMessages()

Dim Items As Outlook.Items
Dim Mail As Outlook.MailItem
Dim obj As Object
Set Items = Application.Session.GetDefaultFolder(olFolderInbox ).Items
For Each obj In Items
If TypeOf Item Is Outlook.MailItem Then
Set Mail = obj
If Mail.FlagIcon = olYellowFlagIcon Then
Mail.FlagIcon = olNoFlagIcon
Mail.FlagRequest = vbNullString
Mail.Save
End If
End If
Next
End Sub

I'm not understanding what you're saying I should change. I have a
line that states If TypeOf Item Is Outlook.MailItem Then. What part
do I need to fix? I don't have any skill with Outlook VBA, so I'm
basically looking to just copy and paste the code.

Reread Michael's earlier post, in which he said:

"Item" is not a declared variable. Replace it please by "obj".

You also need to remove the flag itself:

Mail.FlagStatus = olNoFlag

--
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

wrote in message ups.com...
I'm not understanding what you're saying I should change. I have a
line that states If TypeOf Item Is Outlook.MailItem Then. What part
do I need to fix? I don't have any skill with Outlook VBA, so I'm
basically looking to just copy and paste the code.

"Michael Bauer" wrote in message ...
Am 4 May 2006 18:59:57 -0700 schrieb :



No, you didn´t. See:

If TypeOf Item Is Outlook.MailItem Then


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


I made that change.....still not working. Is there something else I'm
missing?

Public Sub RemoveYellowFlagFromMessages()

Dim Items As Outlook.Items
Dim Mail As Outlook.MailItem
Dim obj As Object
Set Items = Application.Session.GetDefaultFolder(olFolderInbox ).Items
For Each obj In Items
If TypeOf Item Is Outlook.MailItem Then
Set Mail = obj
If Mail.FlagIcon = olYellowFlagIcon Then
Mail.FlagIcon = olNoFlagIcon
Mail.FlagRequest = vbNullString
Mail.Save
End If
End If
Next
End Sub