Microsoft Office Forums

Go Back   Microsoft Office Forums > >
Reload this Page Seeking rule/code to send emails which have been moved by rules to be autoforwarded
Register FAQ

Reply
 
Thread Tools Display Modes
  #1  
Old 02-18-2017, 10:27 PM
gmayor's Avatar
gmayor gmayor is offline Seeking rule/code to send emails which have been moved by rules to be autoforwarded Windows 10 Seeking rule/code to send emails which have been moved by rules to be autoforwarded Office 2016
Expert
  
Join Date: Aug 2014
Posts: 4,137
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default
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
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #2  
Old 02-19-2017, 02:58 AM
Hoxton118 Hoxton118 is offline Seeking rule/code to send emails which have been moved by rules to be autoforwarded Windows 7 32bit Seeking rule/code to send emails which have been moved by rules to be autoforwarded Office 2010 32bit
Novice
Seeking rule/code to send emails which have been moved by rules to be autoforwarded 		 
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
Reply

« Previous Thread | Next Thread »


Similar Threads
Thread Thread Starter Forum Replies Last Post
Seeking rule/code to send emails which have been moved by rules to be autoforwarded Outlook rule to not send if attachment name doesn't match criteria SerenityNetworks Outlook 10 03-20-2016 10:56 AM
Seeking rule/code to send emails which have been moved by rules to be autoforwarded 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

Other Forums: Access Forums

All times are GMT -7. The time now is 06:08 AM.

Contact Us - Privacy Statement - Top

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft