VBA Email Loop for excel reporting -


i created macro run report selected indivdual , send person email package. report meant 20 people, has been tedious run report each person , send it.

i wondering if there way type names in cells of people want run report , have excel loop through each 1 , send report selected individual , loop next one.

is possible, , if how go creating macro.

thank aid

perhaps can adjust code below needs. send contents of textbox on activesheet list of emails in column a. use have set sending email account in outlook.

option explicit 'how send email list of recipients based on data 'stored in workbook. recipient email addresses must 'be in column a, , body text of email must in 'the first text box on active sheet.  sub sample()    dim olapp object, olmailitm object, integer, j integer    dim r range, s string, numrows integer, numcols integer    dim dest variant, emailaddr string, txtbox shape    'create outlook application , empty email.    set olapp = createobject("outlook.application")    set olmailitm = olapp.createitem(0)    set txtbox = activesheet.shapes.addtextbox(msotextorientationhorizontal, _    200, 100, 400, 100)    '.textframe.textrange.text = "test box"    'using email, add multiple recipients, using list of addresses in column a.    set r = range("b1")    s = "": numcols = 4: numrows = 4    j = 1 numcols     = 1 numrows       if > 1 s = s & vbtab       s = s & r.offset(j, i)     next     s = s & vbcr    next j    txtbox.textframe2.textrange.characters.text = s    olmailitm        emailaddr = ""        = 1 worksheetfunction.counta(columns(1))            if emailaddr = ""                emailaddr = cells(i, 1).value            else                emailaddr = emailaddr & ";" & cells(i, 1).value            end if        next      'do additional formatting on bcc , subject lines, add body text spreadsheet, , send.        .bcc = emailaddr        .subject = "fyi"        '.body = txtbox.text        .body = activesheet.textboxes(1).text        .send    end     'clean outlook application.    set olmailitm = nothing    set olapp = nothing end sub

Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more