Link to home
Start Free TrialLog in
Avatar of Shawn Janes
Shawn JanesFlag for United States of America

asked on

Outlook 2007 - Mark Email in Folders/Sub-Folders as Automatically Read

I am using Outlook 2007. I have a series of folders and subfolders I sort messages into. Some of these messages are not being marked as read, even though I check that box in the Rules wizard.

Is there another way to monitor the folders and the sub-folders and mark any messages in there as read?

Thank you.

Shawn.
Avatar of Chris Bottomley
Chris Bottomley
Flag of United Kingdom of Great Britain and Northern Ireland image

Hello shawnjanes,

Ideally you want to resolve the issue about the rules which I can't understand, (Assuming that's the only way that mails are moved there.  As a backup though it would be possible to do something with VBA to mark them automatically ... idf acceptable then please identify teh folder paths affected.

Regards,

chris_bottomley
Avatar of Shawn Janes

ASKER

I was getting ready to drop that information since I read some where else VBA would be an option.

Mailbox Name = Mailbox - Shawn Janes
Folder Path = GCA\00 Platform Emails - Automated\CFP Applications

Under the folder 00 Platform Emails - Automated there are 10 folders that need to be monitored.

Possible?
These ten folders is it only the 10 or is it all folders under that parent

Chris
BAsically if it is a variable then I believe each time a folder is added there will be some work ... if it is 'fixed' then we should be able to take care of it in one swoop.

Chris
The path for the 10 would be:

Mailbox - Shawn Janes\GCA\00 Platform Emails - Automated\ - the 10 folders would be under this last directory.

Make sense?

Shawn.
Yes and the following can be used as follows:

1. At the top of thisoutlooksession, (after option statments IF present) place 10 lines as:

Dim WithEvents olkSpecial_1 As Outlook.items
...
Dim WithEvents olkSpecial_10 As Outlook.items

2. In the application_startup sub place 10 lines as:

    Set olkSpecial_1 = Session.folders("Mailbox - Shawn Janes").folders("GCA").folders("00 Platform Emails - Automated").folders("FOlder_1_Name").items
...
    Set olkSpecial_10 = Session.folders("Mailbox - Shawn Janes").folders("GCA").folders("00 Platform Emails - Automated").folders("Folder_Ten_Name").items

3. Create 10 subs somewhere, (can be thisoutlooksession if you want as:

Private Sub olkSpecial_1_ItemAdd(ByVal Item As Object)
    Item.UnRead = False
End Sub
...
Private Sub olkSpecial_10_ItemAdd(ByVal Item As Object)
    Item.UnRead = False
End Sub

Chris
Ok, maybe somewhere in here I gave the impression I know about the subs and all that, but I do not.

I do understand where this stuff is supposed to be copied to, but I am unsure about the 'application_startup sub' etc.

Would you mind elaborating please?

Shawn.
ASKER CERTIFIED SOLUTION
Avatar of Chris Bottomley
Chris Bottomley
Flag of United Kingdom of Great Britain and Northern Ireland image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial