I use categories to sort emails (and rules to automatically assign
categories to incoming email), and have custom search folders to
display emails from each category. For those emails that I haven't
assigned a category yet, I have a search folder that looks for emails
with no category. This works great...unless other people have rules on
outgoing email to assign categories that I don't have.

Unfortunately, I can't create a search folder who's filter is "Category
my_category 1 OR my_category2", etc. So, I want to create a
script-driven rule that first removes all categories on incoming email,
then I can let my other rules run to assign my categories.

I am an absolute Outlook macro beginner, but cobbled together the
following code from samples in this group and other websites...
(this is just test code to see if I can manipulate the categories
correctly)

Sub test2(Item As Outlook.MailItem)
MsgBox "Mail message arrived: " & Item.Subject
Item.Categories = "Greg"
Item.Save

End Sub

I have a rule to run this script first on every incoming email.
However, it doesn't appear to work - I don't even get the msgBox (a
test line), let along the test category assignment. Can someone help?

Thanks

Am 27 Jul 2006 13:37:22 -0700 schrieb :

Did you write that code into the module "ThisOutlookSession"? Additionally,
the security setting must be medium at least to allow scripts, then please
restart Outlook.

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


I use categories to sort emails (and rules to automatically assign
categories to incoming email), and have custom search folders to
display emails from each category. For those emails that I haven't
assigned a category yet, I have a search folder that looks for emails
with no category. This works great...unless other people have rules on
outgoing email to assign categories that I don't have.

Unfortunately, I can't create a search folder who's filter is "Category
my_category 1 OR my_category2", etc. So, I want to create a
script-driven rule that first removes all categories on incoming email,
then I can let my other rules run to assign my categories.

I am an absolute Outlook macro beginner, but cobbled together the
following code from samples in this group and other websites...
(this is just test code to see if I can manipulate the categories
correctly)

Sub test2(Item As Outlook.MailItem)
MsgBox "Mail message arrived: " & Item.Subject
Item.Categories = "Greg"
Item.Save

End Sub

I have a rule to run this script first on every incoming email.
However, it doesn't appear to work - I don't even get the msgBox (a
test line), let along the test category assignment. Can someone help?

Thanks

Hi Michael-

1) OK, I hadn't previously been editing "ThisOutlookSession". I copied
my code to there.

2) I changed the zone to Medium. Now it's working.

Thanks for the tip!


Michael Bauer wrote:
Am 27 Jul 2006 13:37:22 -0700 schrieb :

Did you write that code into the module "ThisOutlookSession"? Additionally,
the security setting must be medium at least to allow scripts, then please
restart Outlook.

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


I use categories to sort emails (and rules to automatically assign
categories to incoming email), and have custom search folders to
display emails from each category. For those emails that I haven't
assigned a category yet, I have a search folder that looks for emails
with no category. This works great...unless other people have rules on
outgoing email to assign categories that I don't have.

Unfortunately, I can't create a search folder who's filter is "Category
my_category 1 OR my_category2", etc. So, I want to create a
script-driven rule that first removes all categories on incoming email,
then I can let my other rules run to assign my categories.

I am an absolute Outlook macro beginner, but cobbled together the
following code from samples in this group and other websites...
(this is just test code to see if I can manipulate the categories
correctly)

Sub test2(Item As Outlook.MailItem)
MsgBox "Mail message arrived: " & Item.Subject
Item.Categories = "Greg"
Item.Save

End Sub

I have a rule to run this script first on every incoming email.
However, it doesn't appear to work - I don't even get the msgBox (a
test line), let along the test category assignment. Can someone help?

Thanks