VBA Event Trigger - when email message is moved into a folder

[Cheesecube]

Hi, what is the appropriate event trigger that runs a block of code when an email is moved into a particular folder?

E.g. another scenario Private Sub Items_ItemAdd(ByVal item As Object) triggers when a new item is received

Preferably this code will run when the folder receives the mail message (as opposed to when the message is moved out of the origin folder)

Include example code and documentation if possible

[SamT]

FolderChange Event

See Also Applies To Example (http://www.vbaexpress.com/forum/#example) Specifics
Occurs when a folder in the specified Folders (http://www.vbaexpress.com/forum/olobjFolders.htm) collection is changed. This event is not available in VBScript.
Sub object_FolderChange(ByVal Folder As MAPIFolder)

object An expression that evaluates to a Folders collection object.
Folder Required. The MAPIFolder (http://www.vbaexpress.com/forum/olobjMAPIFolder.htm) that was changed.
Example

This example prompts the user to remove a folder from the Deleted Items folder if the folder is empty. The sample code must be placed in a class module, and the Initialize_handler routine must be called before the event procedure can be called by Microsoft Outlook.

Dim myolapp As New Outlook.Application
Dim WithEvents myFolders As Outlook.Folders

Sub Initialize_handler()
Set myNS = myolapp.GetNamespace("MAPI")
Set myFolders = myNS.GetDefaultFolder(olFolderDeletedItems).Folders
End Sub

Private Sub myFolders_FolderChange(ByVal Folder As Outlook.MAPIFolder)
If Folder.Items.Count = 0 Then
MyPrompt = Folder.Name & " is empty. Do you want to delete it?"
If MsgBox(MyPrompt, vbYesNo + vbQuestion) = vbYes Then
Folder.Delete
End If
End If
End Sub

[Cheesecube]

How do you retrieve/access the new MailMessage object from a folder when that MailMessage has just been moved into the folder? (whether it is unread or not)

[gmayor]

See https://stackoverflow.com/questions/8009837/vba-outlook-event-moving-email#8010045
The message is 'Item'

[Cheesecube]

Referring to the Stack Overflow page above


Private WithEvents Items As Outlook.Items
Private Sub Application_Startup()
Dim olApp As Outlook.Application

Set olApp = Outlook.Application
Set Items = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("Stuff").Items
End Sub

Private Sub Items_ItemAdd(ByVal item As Object)

On Error GoTo ErrorHandler

MsgBox "You moved an item into the 'Stuff' folder."

ProgramExit:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ProgramExit
End Sub

Function GetNS(ByRef app As Outlook.Application) As Outlook.NameSpace
Set GetNS = app.GetNamespace("MAPI")
End Function
So if I want to modify the code to refer to another folder, do I write the folder items variable as


Set ThisFolderItems = GetNS(olApp).GetDefaultFolder(olFolderInbox).Folders("ThisFolder").Items

and change the event name to


Private Sub ThisFolderItems_ItemAdd(ByVal item As Object)

Would this work?

I have several folders I would like to keep track of when any item is moved to one of these folders, e.g. Folder1Items, Folder2Items, Folder3Items etc. how do I do this?

[gmayor]

You need to set up a sub for each folder e.g.


Option Explicit

Private WithEvents Items1 As Outlook.Items
Private WithEvents Items2 As Outlook.Items
Private WithEvents Items3 As Outlook.Items
'etc

Private Sub Application_Startup()
Dim olApp As Outlook.Application

Set olApp = Outlook.Application
Set Items1 = GetNS(olApp).GetDefaultFolder(olFolderInbox).folders("Folder1Items").Items
Set Items2 = GetNS(olApp).GetDefaultFolder(olFolderInbox).folders("Folder2Items").Items
Set Items3 = GetNS(olApp).GetDefaultFolder(olFolderInbox).folders("Folder3Items").Items
'etc
End Sub

Private Sub Items1_ItemAdd(ByVal item As Object)
On Error GoTo ErrorHandler
MsgBox "You moved an item into the 'Folder1Items' folder."
ProgramExit:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ProgramExit
End Sub

Private Sub Items2_ItemAdd(ByVal item As Object)
On Error GoTo ErrorHandler
MsgBox "You moved an item into the 'Folder1Items2' folder."
ProgramExit:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ProgramExit
End Sub

Private Sub Items3_ItemAdd(ByVal item As Object)
On Error GoTo ErrorHandler
MsgBox "You moved an item into the 'Folder1Items' folder."
ProgramExit:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description
Resume ProgramExit
End Sub

'etc

[Cheesecube]

Would just like to understand the logic behind the naming convention

so from the variable name for Outlook.Items,


Set VarName = GetNS(olApp).GetDefaultFolder(olFolderInbox).folders("Folder1Items").Items

just name the Sub as


Private Sub VarName_ItemAdd(ByVal item As Object) ?

[gmayor]

Essentially yes, though don't forget
Private WithEvents VarName As Outlook.Itemsat the top of the module.
"Folder1Items" is the name of the sub folder