Unable to execute VBA script for a shared Outlook inbox - Microsoft Community


i'm using outlook 2013 , trying make vba script outputs how many messages in each category input date range. need able use script on shared inbox added personal inbox "additional mailbox", right work on personal inbox. how modify output shared inbox instead? also, need make include sub-folders of shared inbox? i've experimented different methods i've found in past posts, i'm not experienced enough vba scripting working properly. code have below:

sub categoriesemails()    dim ofolder as mapifolder  dim odict as object  dim sstartdate as string  dim senddate as string  dim oitems as outlook.items  dim sstr as string  dim smsg as string      on error resume next  set ofolder = application.activeexplorer.currentfolder    set odict = createobject("scripting.dictionary")    sstartdate = inputbox("type start date (format mm/dd/yyyy)")  senddate = inputbox("type end date (format mm/dd/yyyy)")    set oitems = ofolder.items.restrict("[received] >= '" & sstartdate & "' , [received] <= '" & senddate & "'")  oitems.setcolumns ("categories")    for each aitem in oitems  sstr = aitem.categories  if not odict.exists(sstr) then  odict(sstr) = 0  end if  odict(sstr) = clng(odict(sstr)) + 1  next aitem    smsg = ""  for each akey in odict.keys  smsg = smsg & akey & ":   " & odict(akey) & vbcrlf  next  msgbox smsg    set ofolder = nothing    end sub

it particularly useful if export data excel , display categories folders, if difficult don't want complicate things further.

any or suggestions appreciated!

the script loops through items of current folder, need make desired folder active 1 before running script.

here´s sample recursive folder loop:

http://www.vboffice.net/en/developers/looping-recursively-through-folders-and-subfolders

there see "list folder contents". script move after setting folder doanything procedure. call doanything directly folder variable, , call fllopfolders ofolder.folders



Office / Outlook / Microsoft Office Programming / Office 2013



Comments

Post a Comment

Popular posts from this blog

Outlook Rules not Running Automatically - Microsoft Community

i have 3 rules in outlook 2013 installation set when email arrives check words in body, subject or header.  the rules not seem run automatically.  when run rules manually seem work fine.  i've had problem quite while.  recently, created new outlook profile did not fix issue.  i went , changed srs file srs.old did not fix either. please provide me suggestions fix. hi neil, in order isolate issue, we'd following information: have made recent changes or applied update device prior issue? which email account using? personal email account or work email account? for initial troubleshooting, suggest deleting rules , create again. this, may refer article below: manage email messages using rules looking forward response. Office / Outlook / Windows 10 / ...
Read more

message deleted by transport agent, event: LED=550 4.3.2 - Microsoft Community

i waiting email verification code *** email address removed privacy *** after signing visual studios account. have run message trace see why email not being delivered , given following message: led=550 4.3.2 queue.transportagent; message deleted transport agent i have looked error , saying message being stuck in queue, resolve unfreeze queue. however, in order need exchange toolbox or exchange management, no longer exists office 365 since eac came about. yet haven't found queue viewers in eac can manage , unfreeze queue.   my spam filter set @ 'bypass spam filters'. have whitelisted domain, , have set connection filter allows ip address domain come through. however, after running message trace, email still being dropped. any insight on why happening?  thanks hi suean-work, according description, have try many settings on side. confirm again ‘bypass spam filters’ settings. did mean have c...
Read more

Microsoft Office Exchange Error message - Microsoft Community

Image
received message when trying send email few users outlook desktop client  i checked of users , of them received emails others did not  working within wireless environment in office  any great thank in advance  your message did not reach or of intended recipients.         subject:  fw: panther: hold working sessions gt/rightpont       sent:     6/9/2017 11:26 am   the following recipient(s) cannot reached:         dax scott on 6/9/2017 11:26 am       giulia sergi on 6/9/2017 11:26 am       kia horton on 6/9/2017 11:26 am       micah swigert on 6/9/2017 11:26 am       rob hendricks on 6/9/2017 11:26 am       sarah wallace on 6/9/2017 11:26 am    ...
Read more