vba - Save only emails of today -


i creating macro in outlook 2010 save emails specified folder. emails saved folder created macro. problem in accounting when receive emails on weekend or off business hours. noticed when receive emails on weekend , reopen outlook on monday, macro runs fine , needs do, emails received on weekend put monday folder. how can bypass problem. if receive email on saturday, how can have macro create folder saturday well? code working on. 

public sub savemsgs(item outlook.mailitem)  dim spath string  dim dtdate date  dim sname string  dim enviro string  dim ssender string  dim strfolder string  dim strnewfolder string  dim save_to_folder string   enviro = cstr(environ("userprofile"))   sname = item.subject  replacecharsforfilename sname, "_"   ssender = item.sender   dtdate = item.receivedtime  sname = ssender & " - " & sname & ".msg"   strnewfolder = format(date, "mm-dd-yyyy")  strfolder = "c:\it documents\" & strnewfolder & "\"   if len(dir(strfolder, vbdirectory)) = 0      mkdir (strfolder)  end if   save_to_folder = strfolder   item.saveas save_to_folder & sname, olmsg end sub   private sub replacecharsforfilename(sname string, _  schr string _)   sname = replace(sname, "/", schr)  sname = replace(sname, "\", schr)  sname = replace(sname, ":", schr)  sname = replace(sname, "?", schr)  sname = replace(sname, chr(34), schr)  sname = replace(sname, "<", schr)  sname = replace(sname, ">", schr)  sname = replace(sname, "|", schr) end sub

seems intended use item.receivedtime create folder, after pull value dtdate, never gets used.

perhaps try following instead:

strnewfolder = format(dtdate, "mm-dd-yyyy")                       ^^

Comments

Post a Comment

Popular posts from this blog

IF statement in MySQL trigger -

this query code in mysql trigger. if 1=2 select 'yes'; else select 'no'; end if; but has following error: if '1'='2' select 'yes' error code: 1064. have error in sql syntax; check manual corresponds mysql server version right syntax use near 'if '1'='2' select 'yes'' @ line 1 0.000 sec what solution?
Read more

c++ - What does MSC in "// appease MSC" comments mean? -

i run across // appease msc in c++ comments, e.g. here : const int& array::operator[](int offset) const { int mysize = getitssize(); if (offset >= 0 && offset < getitssize()) return ptype[offset]; throw xboundary(); return ptype[offset]; // appease msc! } what msc stand ? the author means microsoft's compiler, more formally known msvc.
Read more

javascript - Blogger related post gadget image Resize s72-c [ Need Expert Help ] -

i run blogger blog , use follow code javascript code (requires no jquery) show related post labels/categories of post. <script type='text/javascript'> var defaultnoimage=&quot;http://1.bp.blogspot.com/-m72rpguntq0/vuokijudn_i/aaaaaaaaboi/lq18sceunsg/w72/favicon-tik.png&quot;; var maxresults=16; var splittercolor=&quot;#d4eaf2&quot;; var relatedpoststitle=&quot;related posts&quot;; </script> <script type='text/javascript'>//<![cdata[ var relatedtitles = new array(); var relatedtitlesnum = 0; var relatedurls = new array(); var thumburl = new array(); function related_results_labels_thumbs(json) { (var = 0; < json.feed.entry.length; i++) { var entry = json.feed.entry[i]; relatedtitles[relatedtitlesnum] = entry.title.$t; try { thumburl[relatedtitlesnum] = entry.media$thumbnail.url } catch (error) {...
Read more