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

Popular posts from this blog

jOOQ update returning clause with Oracle -

java - Warning equals/hashCode on @Data annotation lombok with inheritance -

java - BasicPathUsageException: Cannot join to attribute of basic type -