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

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

Outlook conversion problem - Microsoft Community

i have orphaned ost file home computer connected office exchange server. home pc crashed , need access ost file using outlook 2010.  no longer have connection exchange server.  there data ost file pst file without expensive conversion tool? thanks there several methods convert ost file pst file. first, microsoft not provide official tool conversion. however, if can access contents of ost file in outlook, can perform conversion manually, follows: 1. start outlook. make sure can access contents in ost file converted. 2. create new pst file. 3. go ost file, select , copy contents converted mouse. 4. go new pst file, paste contents pst file that conversion. second, there many third-party ost pst conversion tools can try. can use online ost pst file conversion service. have used , work. how convert ost pst file can find here https://www.osttopst.online/ Office /
Read more

Outlook 2016 - Insert attachment to Meeting Invite You Do Not Own - Microsoft Community

Image
know if there way insert attachment (e.g., document) within meeting invite not own. example, vp creates meeting invite managers quick touch base.  the managers attach document invitees may view 'summary' while being discussed).  is possible invitee include attachment? hello janice, you can send attachment meetings got invited in outlook 2016. can insert attachment going event go insert tab select attach file . click send update send meeting updates, including attachment. let know if need further assistance. Office / Outlook / Windows 8 / Office 2016
Read more