vba - how to save excel file attached in an email received in a defined sub folder in the inbox of outlook 2007 to a folder on the windows? -

-

i need save excel attachement received inside outlook messages in specific sub folder (daily final) located in inbox , knowing emails in subflders including excel attached file. had below example excel vba not working kindly advie me

 sub saveattachmentstofolder()  ' outlook macro checks named subfolder in outlook inbox  ' (here "daily final" folder) messages attached  ' files of specific type (here file "xls" extension)  ' , saves them disk. saved files timestamped. user  ' can choose view saved files in windows explorer.  ' note: make sure specified subfolder , save folder exist  ' before running macro.  on error goto saveattachmentstofolder_err  ' declare variables  dim ns namespace  dim inbox mapifolder  dim subfolder mapifolder  dim item object  dim atmt attachment  dim filename string  dim integer  dim varresponse vbmsgboxresult  set ns = getnamespace("mapi")  set inbox = ns.getdefaultfolder(olfolderinbox)  set subfolder = inbox.folders("daily final") ' enter correct subfolder name.  = 0  ' check subfolder messages , exit of none found  if subfolder.items.count = 0  msgbox "there no messages in sales reports folder.", vbinformation , _  "nothing found"  exit sub  end if  ' check each message attachments  each item in subfolder.items  each atmt in item.attachments  ' check filename of each attachment , save if has "xls" extension  if right(atmt.filename, 3) = "xls"  ' path must exist! change folder name necessary.  filename = "c:\email attachments\" & _  format(item.creationtime, "yyyymmdd_hhnnss_") & atmt.filename  atmt.saveasfile filename  = + 1  end if  next atmt  next item  ' show summary message  if > 0  varresponse = msgbox("i found " & & " attached files." _  & vbcrlf & "i have saved them c:\email attachments folder." _  & vbcrlf & vbcrlf & "would view files now?" _  , vbquestion + vbyesno, "finished!")  ' open windows explorer display saved files if user chooses  if varresponse = vbyes  shell "explorer.exe /e,c:\email attachments", vbnormalfocus  end if  else  msgbox "i didn't find attached files in mail.", vbinformation , "finished!"  end if  ' clear memory saveattachmentstofolder_exit:  set atmt = nothing  set item = nothing  set ns = nothing  exit sub  ' handle errors saveattachmentstofolder_err:  msgbox "an unexpected error has occurred." _  & vbcrlf & "please note , report following information." _  & vbcrlf & "macro name: getattachments" _  & vbcrlf & "error number: " & err.number _  & vbcrlf & "error description: " & err.description _  , vbcritical, "error!"  resume saveattachmentstofolder_exit  end sub

it seems have cut-and-pasted website not familiar vba. when paste code vba code wondow, highlight lines there problems. apply knowledge fix these problems. example, line above should 1 statement:

msgbox "there no messages in sales reports folder.", vbinformation , _  "nothing found"

like so:

msgbox "message", buttons, "title"

you can put statement on 3 lines have it, must use line continuation character (_), have one, need two.

msgbox "there no messages in sales reports folder.", _ vbinformation , _  "nothing found"

here

filename = "c:\email attachments\" & _  format(item.creationtime, "yyyymmdd_hhnnss_") &

you have &. statement cannot end &

the f1 key can helpful in these situations.


Comments

Post a Comment

Popular posts from this blog

c# - SVN Error : "svnadmin: E205000: Too many arguments" -

-
i trying reposotries using c# code process svncommand = null; var psi = new processstartinfo("svnadmin"); psi.redirectstandardoutput = true; psi.redirectstandarderror = true; psi.useshellexecute = false; psi.arguments= @"dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump"; using (svncommand = process.start(psi)) { var myoutput = svncommand.standardoutput; var myerror = svncommand.standarderror; debug.write("output :" + environment.newline + environment.newline + myoutput.readtoend() + environment.newline + "error :" + environment.newline + environment.newline + myerror.readtoend()); svncommand.close(); } when use dump command commandline svnadmin dump c:\repositories\myrepo > c:\temp\myrepodumpfile.dump it works fine when try ...
Read more

c# - Copy ObservableCollection to another ObservableCollection -

-
how copy observablecollection item observablecollection without reference of first collection? here observablecollection item value changes affecting both collections. code private observablecollection<ratemodel> _allmetalrate = new observablecollection<ratemodel>(); private observablecollection<ratemodel> _metalrateondate = new observablecollection<ratemodel>(); public observablecollection<ratemodel> allmetalrate { { return this._allmetalrate; } set { this._allmetalrate = value; notifypropertychanged("metalrate"); } } public observablecollection<ratemodel> metalrateondate { { return this._metalrateondate; } set { this._metalrateondate = value; notifypropertychanged("metalrateondate"); } } foreach (var item in metalrateondate) allmetalrate.add(item); what causing , how can solve it? you need clone object referenced item before it's a...
Read more

All overlapping substrings matching a java regex -

-
is there api method returns (possibly overlapping) substrings match regular expression? for example, have text string: string t = 04/31 412-555-1235; , , have pattern: pattern p = new pattern("\\d\\d+"); matches strings of 2 or more characters. the matches are: 04, 31, 412, 555, 1235. how overlapping matches? i want code return: 04, 31, 41, 412, 12, 55, 555, 55, 12, 123, 1235, 23, 235, 35. theoretically should possible -- there obvious o(n^2) algorithm enumerates , checks substrings against pattern. edit rather enumerating substrings, safer use region(int start, int end) method in matcher . checking pattern against separate, extracted substring might change result of match (e.g. if there non-capturing group or word boundary check @ start/end of pattern). edit 2 actually, it's unclear whether region() expect zero-width matches. specification vague, , experiments yield disappointing results. for example: string line = "xx90xx"; strin...
Read more