excel - Look in separate folders then specify message details on attached file location -


i have code picks recent pdf out of folder , send specfied email address (courtesy of user answered previous post).

it working individual folders , various email specs i'd folder , have different message specifications if file found in other folder.

my code @ moment re-runs process , looks in other folder (this hasn't worked due on complication , confusing variables). know lot of cry looking @ attempt i've made scrappy, clunky poor quality - @ moment sends files processed first message spec, , last 1 processed again second message specification.

option explicit  sub sendfiles()     dim objoutlook object     dim fso object     dim strfile string     dim fsofile     dim fsofldr     dim dtnew date, snew string     dim newoutlookinstance boolean  set fso = createobject("scripting.filesystemobject")  if getoutlook(objoutlook, newoutlookinstance)      strfile = "c:\temp\" 'path folder     set fsofldr = fso.getfolder(strfile)     dtnew = now() - timevalue("00:00:30") '30 seconds ago      each fsofile in fsofldr.files         if fsofile.datecreated > dtnew             snew = fsofile.path             objoutlook.createitem(olmailitem)                 .to = "email@address.com"                 .subject = "example"                 .bodyformat = olformatplain                 .attachments.add snew                 .importance = olimportancehigh                 .send             end         end if     next     if newoutlookinstance objoutlook.quit '<--| quit outlook if running instance of hasn't been found     set objoutlook = nothing  else     msgbox "sorry: couldn't valid outlook instance running" end if  dim obj object dim usdfile string dim afile dim afldr dim dnew date, tnew string dim newinstance boolean  set fso = createobject("scripting.filesystemobject")  if getoutlook(obj, newinstance)  usdfile = "h:\supply chain - jan17\depannage & kanban requests (ab-   tg)\unsatisfied depannage\" set afldr = fso.getfolder(usdfile) dnew = now() - timevalue("00:00:30")  each afile in afldr.files     if afile.datecreated > dnew         tnew = afile.path         obj.createitem(olmailitem)             .to = "email.address2@gmail.com"             .subject = "kanban request - limited stock"             .bodyformat = olformatplain             .attachments.add snew             .importance = olimportancehigh             .send         end     end if next  if newinstance obj.quit set obj = nothing   else     msgbox "sorry: couldn't valid outlook instance running" end if  end sub      function getoutlook(objoutlook object, newoutlookinstance boolean)     boolean set objoutlook = getobject(, "outlook.application") if objoutlook nothing     set objoutlook = new outlook.application     newoutlookinstance = true end if getoutlook = not objoutlook nothing end function

you refactor code , generate helper sub demand task search passed folder , send emails passed address passed subject:

sub sendfilesfromfolder(objoutlook object, fso object, fldrname string, emailaddress string, subject string, dtnew date)     dim fsofile file      each fsofile in fso.getfolder(fldrname).files         if fsofile.datecreated > dtnew             objoutlook.createitem(olmailitem)                 .to = emailaddress                 .subject = subject                 .bodyformat = olformatplain                 .attachments.add fsofile.path                 .importance = olimportancehigh                 .send             end         end if     next end sub

correspondingly, "main" code become:

sub sendfiles()     dim objoutlook object     dim fso object     dim dtnew date     dim newoutlookinstance boolean       if getoutlook(objoutlook, newoutlookinstance)         set fso = createobject("scripting.filesystemobject")         dtnew = now() - timevalue("00:00:30") '30 seconds ago          sendfilesfromfolder objoutlook, _                             fso, _                             "c:\temp\", _                             "email@address.com", _                             "example", _                             dtnew          sendfilesfromfolder objoutlook, _                             fso, _                             "h:\supply chain - jan17\depannage & kanban requests (ab-   tg)\unsatisfied depannage\", _                             "email.address2@gmail.com", _                             "kanban request - limited stock", _                             dtnew          if newoutlookinstance objoutlook.quit '<--| quit outlook if running instance of hasn't been found         set objoutlook = nothing         set fso = nothing      else         msgbox "sorry: couldn't valid outlook instance running"     end if  end sub

Comments

Post a Comment

Popular posts from this blog

javascript - Clear button on addentry page doesn't work -

this addentry blog page have made scratch , there underlying problems code particularly clear button supposed clear text entered when button clicked on doesn't work have saved html file problem. also 1 other problem submit button works doesn't pass of text index file have written php , reason whenever click on submit button redirects me index page without posting entry have made. <!doctype html> <html> <head> <script> function message() { alert("clear form?"); } </script> <style> body {background-color: beige;} h1 {color: black;} p {color: black;} textarea { width: 50%; height: 150px; padding: 12px 20px; box-sizing: border-box; border: 2px solid #ccc; border-radius: 4px; background-color: white; font-size: 16px; resize: none; } div { padding-left: 20px; } </style> </head> <meta charset="utf-8"> <link rel="stylesheet" href=".
Read more

c# - Selenium Authentication Popup preventing driver close or quit -

i have selenium automated task setup login website retrieve information. it's basic in automation. logging in , clicking 2 links. running issue proving problem. the site in question uses authentication required popup not javascript popup rather regular windows auth popup. have read isn't handled out of box selenium. i using " http://username:password@url.com " site every , site has issues on end prompt me again username/password randomly. have enter username/password twice in row when navigating there hand. since task loops continuously few hours picking needed info figured use webdriverwait verify element present on page. if authentication popup appears, element isn't present. no need care run, start over. the problem having when authentication popup displayed , hit timeout limit want close driver/browser window can start task on again. however, driver.close() , driver.quit() not doing anything. browser remains open , unloaded page still there login p
Read more

tensorflow when input_data MNIST_data , zlib.error: Error -3 while decompressing: invalid block type -

i'm geting started tensorflow,followed tutorials,but cannot download mnist data. import tensorflow tf tensorflow.examples.tutorials.mnist import input_data mnist=input_data.read_data_sets("mnist_data/",one_hot=true) print("download done!") error information: extracting mnist_data/train-images-idx3-ubyte.gz traceback (most recent call last): file "/home/sj/program/tesorflow_try.py", line 6, in <module> mnist=input_data.read_data_sets("mnist_data/",one_hot=true) file "/usr/local/lib/python2.7/dist-packages/tensorflow/contrib/learn/python/learn/datasets/mnist.py", line 213, in read_data_sets train_images = extract_images(f) file "/usr/local/lib/python2.7/dist-packages/tensorflow/contrib/learn/python/learn/datasets/mnist.py", line 60, in extract_images buf = bytestream.read(rows * cols * num_images) file "/usr/lib/python2.7/gzip.py", line 268, in read self._read(readsize) file
Read more