This VBA example might work:
Public Sub ExpandFolder(Mail as Outlook.MailItem)
Dim F1 as Outlook.Mapifolder
Dim F2 as Outlook.Mapifolder
Set F1=Application.ActiveExplorer.CurrentFolder
Set F2=Mail.Parent
Set Application.ActiveExplorer.CurrentFolder=F2
DoEvents
Set Application.ActiveExplorer.CurrentFolder=F1
End Sub
Open the VBA environment (alt+f11), strg+r, open "ThisOutlookSession" and
copy the code into that module and save it. Then edit your rule, and add
another action: After the message has been moved to the folder, add to run a
script.
--
Best regards
Michael Bauer - MVP Outlook
: VBOffice Reporter for Data Analysis & Reporting
: Outlook Categories? Category Manager Is Your Tool
: <http://www.vboffice.net/product.html?pub=6&lang=en>
Am Mon, 21 Jul 2008 11:18:06 -0700 schrieb ShafersLittleHelper:
> I have created several rules to move incoming messages to designated
> subfolders, but now I am unaware of new messages because they do not
trigger
> a new message alert since they are moved from the Inbox upon arrival. Is
it
> possible to setup a group to automatically expand if a new message arrives
in
> a subfolder? Any other suggestions to "see" new messages arriving into a
> subfolder? Thank you!
|