vba - Automating Actions in Outlook 2013 -
i have folder of emails in outlook, , want able apply same action each email within folder, notice there no macro recorder within outlook's developer options.
the process undertaking involves opening each email (as contains html content , want print in document quality image) selecting "view in browser" "actions" tab, , printing internet explorer.
is there way iterate action within outlook each email within folder? have no clue how set without way of recording actions idea of how refer things within outlook module...
you need learn little bit outlook's object model getting started vba in outlook 2010. here little code started. macro loop through items in folder , check email address of recipient , set flag
sub setflagicon() dim mpfinbox outlook.folder dim obj outlook.mailitem dim integer set mpfinbox = application.getnamespace("mapi").folders("jeanno").folders("sent mail") ' loop items in inbox\test folder = 1 mpfinbox.items.count if mpfinbox.items(i).class = olmail set obj = mpfinbox.items.item(i) each recipient in obj.recipients if recipient.address = "someone@email" 'set yellow flag icon obj.flagicon = olyellowflagicon obj.save end if next recipient end if next end sub
Comments
Post a Comment