Seeking rule/code to send emails which have been moved by rules to be autoforwarded

Hoxton118 · #1 02-16-2017, 04:27 PM

Over a long period, I have collected various subscriptions to email newsletters. Each has been forwarded by an Outlook rule to its own subfolder within a folder called "News".

Now I want to automatically forward any email in any folder within "News" to an email address. I do not want to amend each of the existing Rules.

It seems to me that Outlook does not support messages being subject to 2 rules in this way.

Grateful for any ideas for a solution, including VBA.

Thanks.

gmayor · #2 02-16-2017, 09:53 PM

Rules are run sequentially, so you should be able to create another rule that runs before the rule to move the message, to forward it somewhere, and then move it with the existing rule. Why don't you simply alter the existing rule to add the forwarding?

Hoxton118 · #3 02-18-2017, 03:07 PM

Quote:

Originally Posted by gmayor

Why don't you simply alter the existing rule to add the forwarding?

To be honest, it would be tedious to amend the large number of individual rules which feed into the News folder.

From what I can tell, there are no rules which act on the basis of the (sub)folder in which the email is situated.

So I am 1) trying to automate a tedious task and 2) seeking to understand a new aspect of Outlook functionality, if it exists.

I hope someone can assist. Thanks.

Hoxton118 · #4 02-18-2017, 03:36 PM

Graham, I think the thread which you solved may provide an answer to my question. I'm looking at it, but if you can adapt it to my question, that would be great.

gmayor · #5 02-18-2017, 10:27 PM

So you want me to do the tedious task

?

In the example you quoted an event is used to create a 'forward' e-mail, for any message posted into one of two sub folders of the default Inbox. If you are using a subfolder of a sub folder 'News' of Inbox then the syntax is slightly different e.g. for a sub-subfolder 'Newsletters':

Code:

Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).folders("News").folders("NewsLetters").Items

Using that example you would need to create an event for each of the sub-subfolders in question. It's just a matter of changing the names and adding others.

The individual event processes in the example simply create and display the message. You could of course do what you wish with the message 'olItem' including sending it to a particular individual e.g.

Code:

Private Sub Newsletters_ItemAdd(ByVal item As Object)
    On Error GoTo err_Handler
    Set olItem = item.Forward
    With olItem
        .To = "someone@somewhere.com"
        .Send
    End With
lbl_Exit:
    Exit Sub
err_Handler:
    MsgBox Err.Number & " - " & Err.Description
    GoTo lbl_Exit
End Sub

Hoxton118 · #6 02-19-2017, 02:58 AM

Thanks Graham. This is how I have attempted to make it work. However, testing the macro by putting new emails in the subfolders has not resulted in any change. The address to which the emails are being forwarded is on the same Microsoft Exchange server as the originating email address. Grateful for any help.

Code:

Option Explicit
Private WithEvents NewsLetters 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("Briefing").Folders("WSJ Evening Wrap").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Technology Update").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Real Time Economics").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Opinion").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Life And Arts").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("myFT").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ 10 point").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("FT UK Politics").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("FT Free Lunch").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("FT Brussels").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("FT Brexit").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("FirstFT").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Lex Europe").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("CN Breaking News").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("CN Daily News").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("CN Briefing").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("FT Energy").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("FT Editor's Choice").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Energy").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ CMO Today").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Lex").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("techFT").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("FT White House").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Today's Paper Europe").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Technology Alert").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Politics Alert").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ News Alert").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Europe Alert").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Brexit").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ City").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("IfG").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Upshot").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("#News").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ CIO Journal").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Personal Technology").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Infrastructure Intelligence").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("FT Weekend").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderNCEInbox).Folders("Briefing").Folders("FT Newsmine").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("CIC Brexit").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("FT other").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Communications Director").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Best of Web").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Economist").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("HBR").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("MRC").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("NAO").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("ONS").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("UK Parliament").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Open University").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("UK Defence Journal").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("ESRC").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("NDA").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("BEIS").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Wonkhe").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("MIT Sloan").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Building").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Department of Health").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Raconteur").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("CIC").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("NYT").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Politics Home").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("CN other").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Universities UK").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Innovate UK").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("Design Council").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("UK in a Changing Europe").Items
Set NewsLetters = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("NSAR").Items

lbl_Exit:
    Exit Sub
End Sub

Private Sub Newsletters_ItemAdd(ByVal item As Object)
    On Error GoTo err_Handler
    Set olItem = item.Forward
    With olItem
        .To = "xxxx.yyyy@zzz.org.uk"
        .Send
    End With
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

gmayor · #7 02-19-2017, 06:47 AM

Each folder needs its own unique variable name. You can only apply the variable 'Newsletters' to one of the folders - 'Newsletters' was the example used in the quoted link - more meaningful unique variable names would be required (e.g. the folder names with the spaces replaced by underscore characters).

Note that there were two folders in the quoted link, each with its own variable name and associated macro. You have more than 50 folders here?

If you set the same variable name to multiple folders, only the last folder to be set i.e. folder "NSAR" is the folder associated with that variable name.

You need to create an event for each of the 50+ folders.

Take another look at the link you quoted.

Hoxton118 · #8 02-19-2017, 10:31 AM

Graham, thanks for persisting. I've interpreted what you have advised in the following code, placed in "ThisOutlookSession", but it's returning a compile error message "Invalid Attribute in Sub or Function" at the line indicated below. Grateful for any further assistance.

Code:

Option Explicit

Sub MoveFolders()

Private WithEvents NewsLetters9 As outlook.Items <<<<<<<DEBUGGER FINDS COMPILE ERROR HERE
Private WithEvents NewsLetters10 As outlook.Items
Private WithEvents NewsLetters11 As outlook.Items
Private WithEvents NewsLetters12 As outlook.Items
Private WithEvents NewsLetters13 As outlook.Items
Private WithEvents NewsLetters14 As outlook.Items
Private WithEvents NewsLetters15 As outlook.Items
Private WithEvents NewsLetters16 As outlook.Items
Private WithEvents NewsLetters17 As outlook.Items
Private WithEvents NewsLetters18 As outlook.Items
Private WithEvents NewsLetters19 As outlook.Items
Private WithEvents NewsLetters20 As outlook.Items
Private WithEvents NewsLetters21 As outlook.Items
Private WithEvents NewsLetters22 As outlook.Items
Private WithEvents NewsLetters23 As outlook.Items
Private WithEvents NewsLetters24 As outlook.Items
Private WithEvents NewsLetters25 As outlook.Items
Private WithEvents NewsLetters26 As outlook.Items
Private WithEvents NewsLetters27 As outlook.Items
Private WithEvents NewsLetters28 As outlook.Items
Private WithEvents NewsLetters29 As outlook.Items
Private WithEvents NewsLetters30 As outlook.Items
Private WithEvents NewsLetters31 As outlook.Items
Private WithEvents NewsLetters32 As outlook.Items
Private WithEvents NewsLetters33 As outlook.Items
Private WithEvents NewsLetters34 As outlook.Items
Private WithEvents NewsLetters35 As outlook.Items
Private WithEvents NewsLetters36 As outlook.Items
Private WithEvents NewsLetters37 As outlook.Items
Private WithEvents NewsLetters38 As outlook.Items
Private WithEvents NewsLetters39 As outlook.Items
Private WithEvents NewsLetters40 As outlook.Items
Private WithEvents NewsLetters42 As outlook.Items
Private WithEvents NewsLetters43 As outlook.Items
Private WithEvents NewsLetters44 As outlook.Items
Private WithEvents NewsLetters45 As outlook.Items
Private WithEvents NewsLetters46 As outlook.Items
Private WithEvents NewsLetters47 As outlook.Items
Private WithEvents NewsLetters48 As outlook.Items
Private WithEvents NewsLetters49 As outlook.Items
Private WithEvents NewsLetters50 As outlook.Items
Private WithEvents NewsLetters51 As outlook.Items
Private WithEvents NewsLetters52 As outlook.Items
Private WithEvents NewsLetters53 As outlook.Items
Private WithEvents NewsLetters54 As outlook.Items
Private WithEvents NewsLetters55 As outlook.Items
Private WithEvents NewsLetters56 As outlook.Items
Private WithEvents NewsLetters57 As outlook.Items
Private WithEvents NewsLetters58 As outlook.Items
Private WithEvents NewsLetters59 As outlook.Items
Private WithEvents NewsLetters60 As outlook.Items
Private WithEvents NewsLetters61 As outlook.Items
Private WithEvents NewsLetters62 As outlook.Items
Private WithEvents NewsLetters63 As outlook.Items
Private WithEvents NewsLetters64 As outlook.Items
Private WithEvents NewsLetters65 As outlook.Items
Private WithEvents NewsLetters66 As outlook.Items
Private WithEvents NewsLetters67 As outlook.Items
Private WithEvents NewsLetters68 As outlook.Items
Private WithEvents NewsLetters69 As outlook.Items
Private WithEvents NewsLetters70 As outlook.Items
Private WithEvents NewsLetters71 As outlook.Items
Private WithEvents NewsLetters72 As outlook.Items
Private WithEvents NewsLetters73 As outlook.Items
Private WithEvents NewsLetters74 As outlook.Items
Private WithEvents NewsLetters75 As outlook.Items

Private olItem As outlook.MailItem

Private Sub Application_Startup()
Dim olApp As outlook.Application
    Set olApp = outlook.Application

SetNewsLetters9 = GetNS(olApp).GetDefaultFolder(WSJEveningWrap).Items
SetNewsLetters10 = GetNS(olApp).GetDefaultFolder(WSJTechnologyUpdate).Items
SetNewsLetters11 = GetNS(olApp).GetDefaultFolder(WSJRealTimeEconomics).Items
SetNewsLetters12 = GetNS(olApp).GetDefaultFolder(WSJOpinion).Items
SetNewsLetters13 = GetNS(olApp).GetDefaultFolder(WSJLifeAndArts).Items
SetNewsLetters14 = GetNS(olApp).GetDefaultFolder(myFT).Items
SetNewsLetters15 = GetNS(olApp).GetDefaultFolder(WSJ10point).Items
SetNewsLetters16 = GetNS(olApp).GetDefaultFolder(FTUKPolitics).Items
SetNewsLetters17 = GetNS(olApp).GetDefaultFolder(FTFreeLunch).Items
SetNewsLetters18 = GetNS(olApp).GetDefaultFolder(FTBrussels).Items
SetNewsLetters19 = GetNS(olApp).GetDefaultFolder(FTBrexit).Items
SetNewsLetters20 = GetNS(olApp).GetDefaultFolder(FirstFT).Items
SetNewsLetters21 = GetNS(olApp).GetDefaultFolder(LexEurope).Items
SetNewsLetters22 = GetNS(olApp).GetDefaultFolder(CNBreakingNews).Items
SetNewsLetters23 = GetNS(olApp).GetDefaultFolder(CNDailyNews).Items
SetNewsLetters24 = GetNS(olApp).GetDefaultFolder(CNBriefing).Items
SetNewsLetters25 = GetNS(olApp).GetDefaultFolder(FTEnergy).Items
SetNewsLetters26 = GetNS(olApp).GetDefaultFolder(FTEditorsChoice).Items
SetNewsLetters27 = GetNS(olApp).GetDefaultFolder(WSJEnergy).Items
SetNewsLetters28 = GetNS(olApp).GetDefaultFolder(WSJCMOToday).Items
SetNewsLetters29 = GetNS(olApp).GetDefaultFolder(Lex).Items
SetNewsLetters30 = GetNS(olApp).GetDefaultFolder(techFT).Items
SetNewsLetters31 = GetNS(olApp).GetDefaultFolder(FTWhiteHouse).Items
SetNewsLetters32 = GetNS(olApp).GetDefaultFolder(WSJTodaysPaperEurope).Items
SetNewsLetters33 = GetNS(olApp).GetDefaultFolder(WSJTechnologyAlert).Items
SetNewsLetters34 = GetNS(olApp).GetDefaultFolder(WSJPoliticsAlert).Items
SetNewsLetters35 = GetNS(olApp).GetDefaultFolder(WSJNewsAlert).Items
SetNewsLetters36 = GetNS(olApp).GetDefaultFolder(WSJEuropeAlert).Items
SetNewsLetters37 = GetNS(olApp).GetDefaultFolder(WSJBrexit).Items
SetNewsLetters38 = GetNS(olApp).GetDefaultFolder(WSJCity).Items
SetNewsLetters39 = GetNS(olApp).GetDefaultFolder(IfG).Items
SetNewsLetters40 = GetNS(olApp).GetDefaultFolder(Upshot).Items
SetNewsLetters42 = GetNS(olApp).GetDefaultFolder(WSJCIOJournal).Items
SetNewsLetters43 = GetNS(olApp).GetDefaultFolder(WSJPersonalTechnology).Items
SetNewsLetters44 = GetNS(olApp).GetDefaultFolder(InfrastructureIntelligence).Items
SetNewsLetters45 = GetNS(olApp).GetDefaultFolder(FTWeekend).Items
SetNewsLetters46 = GetNS(olApp).GetDefaultFolder(FTNewsmine).Items
SetNewsLetters47 = GetNS(olApp).GetDefaultFolder(CICBrexit).Items
SetNewsLetters48 = GetNS(olApp).GetDefaultFolder(FTother).Items
SetNewsLetters49 = GetNS(olApp).GetDefaultFolder(CommunicationsDirector).Items
SetNewsLetters50 = GetNS(olApp).GetDefaultFolder(WSJBestofWeb).Items
SetNewsLetters51 = GetNS(olApp).GetDefaultFolder(Economist).Items
SetNewsLetters52 = GetNS(olApp).GetDefaultFolder(HBR).Items
SetNewsLetters53 = GetNS(olApp).GetDefaultFolder(MRC).Items
SetNewsLetters54 = GetNS(olApp).GetDefaultFolder(NAO).Items
SetNewsLetters55 = GetNS(olApp).GetDefaultFolder(ONS).Items
SetNewsLetters56 = GetNS(olApp).GetDefaultFolder(UKParliament).Items
SetNewsLetters57 = GetNS(olApp).GetDefaultFolder(OpenUniversity).Items
SetNewsLetters58 = GetNS(olApp).GetDefaultFolder(UKDefenceJournal).Items
SetNewsLetters59 = GetNS(olApp).GetDefaultFolder(ESRC).Items
SetNewsLetters60 = GetNS(olApp).GetDefaultFolder(NDA).Items
SetNewsLetters61 = GetNS(olApp).GetDefaultFolder(BEIS).Items
SetNewsLetters62 = GetNS(olApp).GetDefaultFolder(Wonkhe).Items
SetNewsLetters63 = GetNS(olApp).GetDefaultFolder(MITSloan).Items
SetNewsLetters64 = GetNS(olApp).GetDefaultFolder(Building).Items
SetNewsLetters65 = GetNS(olApp).GetDefaultFolder(DepartmentofHealth).Items
SetNewsLetters66 = GetNS(olApp).GetDefaultFolder(Raconteur).Items
SetNewsLetters67 = GetNS(olApp).GetDefaultFolder(CIC).Items
SetNewsLetters68 = GetNS(olApp).GetDefaultFolder(NYT).Items
SetNewsLetters69 = GetNS(olApp).GetDefaultFolder(PoliticsHome).Items
SetNewsLetters70 = GetNS(olApp).GetDefaultFolder(CNother).Items
SetNewsLetters71 = GetNS(olApp).GetDefaultFolder(UniversitiesUK).Items
SetNewsLetters72 = GetNS(olApp).GetDefaultFolder(InnovateUK).Items
SetNewsLetters73 = GetNS(olApp).GetDefaultFolder(DesignCouncil).Items
SetNewsLetters74 = GetNS(olApp).GetDefaultFolder(UKinaChangingEurope).Items
SetNewsLetters75 = GetNS(olApp).GetDefaultFolder(NSAR).Items

lbl_Exit:
    Exit Sub
End Sub

Private Sub Newsletters_ItemAdd(ByVal item As Object)
    On Error GoTo err_Handler
    Set olItem = item.Forward
    With olItem
        .To = "external.affairs@apm.org.uk"
        .Send
    End With
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

gmayor · #9 02-19-2017, 10:09 PM

The particular error occurs because of the line

Code:

Sub MoveFolders()

before the variable declaration. Subs should go after the Private variable declarations.

I see you have given separate variable names to each folder, but you have changed the folder names. The foldernames should reflect exactly the names of the folders - complete with spaces. What I was suggesting was that you name the variables to match the folders e.g.

Code:

Set WSJEveningWrap = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Evening Wrap").Items

etc, however the numbered variable names you have used should work provided the folder names are correct.

You will need a separate sub for each of those folder variables

Code:

Private Sub Newsletters9_ItemAdd(ByVal item As Object)
etc

There should be a space between Set and each variable name and there is no default folder WSJEveningWrap e.g.

Code:

SetNewsLetters9 = GetNS(olApp).GetDefaultFolder(WSJEveningWrap).Items

should be

Code:

Set NewsLetters9 = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Evening Wrap").Items

or as I originally suggested

Code:

Set WSJEveningWrap = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Briefing").Folders("WSJ Evening Wrap").Items

Rather than create dozens of variables and subs for all those folders, Create the code for just one of your folders to test it, then add code for all the other folders to match the code that works.

Hoxton118 · #10 03-15-2017, 12:46 PM

Thanks, Graham and apologies for the delay in replying.

I followed your advice and produced a single version of the code which could form the basis of other rules, which could perform different actions on incoming emails, depending on the subject. The basic code seems to work.

Many thanks.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Outlook rule to not send if attachment name doesn't match criteria	SerenityNetworks	Outlook	10	03-20-2016 10:56 AM
Want to set up a rule to move sent emails	mylan	Outlook	2	07-08-2014 05:10 AM
Rule to remove duplicate emails?	ReviTULize	Outlook	0	05-14-2013 01:15 PM
Rule doesn't work on BCC emails	LeakyMemory	Outlook	0	04-21-2012 04:07 AM
Rule=Delayed send	markg2	Outlook	0	08-01-2010 07:23 AM