Thread: Seeking rule/code to send emails which have been moved by rules to be autoforwarded
View Single Post
 
Old 02-19-2017, 02:58 AM
Hoxton118 Hoxton118 is offline Windows 7 32bit Office 2010 32bit
Novice
  
Join Date: Mar 2014
Posts: 21
Hoxton118 is on a distinguished road
Default Attempt....
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
Reply With Quote