VBA rule to forward messages from specific folder and forward

gmayor · #2 09-20-2015, 12:09 AM

What you ask is quite straightforward. You need to set up events for adding to the various folders. e.g. Put the following code in the ThisOutlookSession module and then run the macro Application_Startup (this will normally run when you restart Outlook, but you can run it manually).
Then when you move an item into the Newsletters or Officers folders (sub folders of Inbox) it will create a forward message for the moved item.

Because we don't know who you want to send the messages to, the messages are merely displayed so that you can add a recipient and any text, but these can be added in code to olItem and the message sent instead of being displayed.

Code:

Option Explicit
Private WithEvents NewsLetters As Outlook.Items
Private WithEvents Officers As Outlook.Items
Private olItem As Outlook.MailItem

Private Sub Application_Startup()
Dim olApp As Outlook.Application
    Set olApp = Outlook.Application
    Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).folders("NewsLetters").Items
    Set Officers = GetNS(olApp).GetDefaultFolder(olFolderInbox).folders("Officers").Items
lbl_Exit:
    Exit Sub
End Sub

Private Sub Newsletters_ItemAdd(ByVal item As Object)
    On Error GoTo err_Handler
    Set olItem = item.Forward
    olItem.Display
lbl_Exit:
    Exit Sub
err_Handler:
    MsgBox Err.Number & " - " & Err.Description
    GoTo lbl_Exit
End Sub

Private Sub Officers_ItemAdd(ByVal item As Object)
    On Error GoTo err_Handler
    olItem.Display
lbl_Exit:
    Exit Sub
err_Handler:
    MsgBox Err.Number & " - " & Err.Description
    GoTo lbl_Exit
End Sub

Function GetNS(ByRef app As Outlook.Application) As Outlook.NameSpace
    Set GetNS = app.GetNamespace("MAPI")
lbl_Exit:
    Exit Function
End Function

Save the changes at the prompt on leaving Outlook.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Rule to move sent messages to a specific folder	LouisOscar	Outlook	1	08-17-2011 05:42 AM
Auto Forward Emails - Specific Time Periods Only	Dav	Outlook	0	06-22-2011 12:03 PM
Create Rule to forward message to mobile#	JoyConner	Outlook	1	04-21-2011 05:44 PM
Forward Unread Messages after X Minutes?	BamaBrad	Outlook	2	03-13-2011 07:57 AM
Code to auto-forward weekend messages	Whang	Outlook	0	06-16-2010 02:18 PM