Outlook 2013 Rules Manually Run on User Selected Emails

[aworthey]

Hello,

I'm looking for a way to trigger an Outlook rule either manually on emails I select or automatically by my dragging and dropping into a sub folder.

Essentially, I want to trigger a macro on specific emails that I choose. I can't just specify the rule to run by email address because not every email from an address would need to be processed.

Is anyone aware if something like this is possible?

[aworthey]

I just found this code. I believe this could be adapted to call my macro to run on messages that arrive in my subfolder.


Public WithEvents FolderItems As Outlook.Items

Private Sub Application_Startup()
Set FolderItems = Session.GetDefaultFolder(olFolderInbox).Folders("DONE").Items
End Sub

Private Sub FolderItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
If Item.UnRead Then
Item.UnRead = False
Item.Save
End If
End Sub

[aworthey]

So, this code below seems to work well if the email that is dropped into the folder is from within my own Microsoft Exchange account, but it will not trigger if the email address is from someone else.

Any ideas?


Public WithEvents FolderItems As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim olFolder As Outlook.MAPIFolder
Dim objWatchFolder As Outlook.Folder
Dim objOwner As Recipient
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
Set objOwner = objNS.CreateRecipient("appengineer@kohler.com")
objOwner.Resolve
Set olFolder = objNS.GetSharedDefaultFolder(objOwner, olFolderInbox)
Set objWatchFolder = olFolder.Folders("Info Setup")
Set FolderItems = objWatchFolder.Items

Set objWatchFolder = Nothing

End Sub
Private Sub FolderItems_ItemAdd(ByVal Item As Object)
On Error Resume Next
Call InfoEmailScrub.CopyInfoToExcel(Item)
End Sub

[skatonni]

You may see an error to fix if you remove On Error Resume Next. http://www.cpearson.com/excel/DebuggingVBA.aspx

In general until you know how to use On Error GoTo 0 you have to stop using On Error Resume Next. http://www.cpearson.com/Excel/ErrorHandling.htm

[aworthey]

Update: This code works perfectly. There was an Outlook mail object in the InfoEmailScrub code that wasn't set properly which caused the error. Thanks!