vba - Capture the event while moving the mail from subfolder to inbox -
i have requirement capture event when mail moved subfolder inbox
the folder structure below
myarchive-mailbox name inbox main folder requests sub folder myarchive inbox requests
when email moved requests subfolder inbox, of myarchive mailbox name ,this mailbox item should captured , event handler should invoked.
i have implemented code capturing event when file moved myarchive inbox requests.the code have written below
private withevents items outlook.events private sub application_startup() dim olapp outlook.application dim objfolder outlook.mapifolder dim objns outlook.namespace set olapp =outlook.application set objns =olapp.getnamespace("mapi") set objfolder = objns.folders("myarchive") set objfolder=objfolder.folders("inbox") set items=objfolder. folders("requests").items end sub private sub items_itemsadd(byval item object) msgbox "you moved mail requests folder" end sub
the folder
object has beforeitemmove
event. in thisoutlooksession module, declare folder object withevents
expose events.
private withevents marchreqs folder public property set archreqs(olfldr folder) set marchreqs = olfldr end property public property archreqs() folder set archreqs = marchreqs end property
next have set folder want watch. here set folder when application starts up.
private sub application_startup() set me.archreqs = application.getnamespace("mapi").getdefaultfolder(olfolderinbox).folders("requests") end sub
finally, can write beforeitemmove
event procedure.
private sub marchreqs_beforeitemmove(byval item object, byval moveto mapifolder, cancel boolean) debug.print item.subject debug.print moveto.name end sub
Comments
Post a Comment