excel vba - VBA: Handling multiple message items -


i tried figuring out how handle multiple message objects programmatically following snippet, having trouble it. ultimately, want send message list of recipients in spreadsheet file. objects , methods job in easiest way?

    dim w outlook.application     dim winbox outlook.mapifolder     dim objoutlookmsg outlook.mailitem     dim objoutlookrecip outlook.recipient      dim count, x, msgnum integer ' handle microsoft outlook     set w = getobject(, "outlook.application")     if err = err_app_notrunning                    ' open new instance if none running       set w = new outlook.application       winbox = w.getnamespace("mapi").getdefaultfolder(olfolderinbox)     end if      'count number of emails required     count = cells(1, 2).end(xldown).row     msgnum = winbox.items.count     x = 1 count         set objoutlookmsg = w.createitem(olmailitem)         msgnum = winbox.items.count     next x

-------edit--------- if handle code this?

  dim w outlook.application     dim winbox outlook.mapifolder     dim objoutlookmsg outlook.mailitem     dim objoutlookrecip outlook.recipient      dim count, x, msgnum integer ' handle microsoft outlook     set w = getobject(, "outlook.application")     if err = err_app_notrunning                    ' open new instance if none running       set w = new outlook.application     end if     winbox = w.getnamespace("mapi").getdefaultfolder(olfolderinbox)      'count number of emails required     count = cells(1, 2).end(xldown).row     msgnum = winbox.items.count     x = 1 count         set objoutlookmsg = w.createitem(olmailitem)         msgnum = winbox.items.count     next x

this worked me... 

sub testoutlooksend()      dim w outlook.application     dim winbox outlook.mapifolder     dim objoutlookmsg outlook.mailitem     dim rngaddr range, recip string          set rngaddr = thisworkbook.sheets("sheet1").range("a2")          set w = getobject(, "outlook.application")         set winbox = w.getnamespace("mapi").getdefaultfolder(olfolderinbox)          while rngaddr.value <> ""             recip = rngaddr.value              set objoutlookmsg = w.createitem(olmailitem)             objoutlookmsg                 .to = recip                 .subject = "hello " & recip                 .body = "a message for" & recip                 .send             end              set rngaddr = rngaddr.offset(1, 0)         loop  end sub

Comments

Post a Comment

Popular posts from this blog

c# - SharpSVN - How to get the previous revision? -

i trying find efficient way previous revision of file text comparison using sharpsvn. using (svnclient c = new svnclient()) { c.authentication.defaultcredentials = new networkcredential( configurationmanager.appsettings.get("svnserviceusername") , configurationmanager.appsettings.get("svnservicepassword") , configurationmanager.appsettings.get("svnservicedomain") ); c.authentication.sslservertrusthandlers += new eventhandler<svnsslservertrusteventargs>(authentication_sslservertrusthandlers); collection<svnfileversioneventargs> fileversioncollection = new collection<svnfileversioneventargs>(); svnrevisionrange range = new svnrevisionrange(0, this.hooks.revision); svnfileversionsargs args = new svnfileversionsargs(); args.retrieveproperties = true; args.range = range; foreach (svnchangeitem item in log.changedpaths) { string path = this.repositorypath + it...
Read more

c++ - Is it possible to compile a VST on linux? -

for class project i'm attempting write vst plugin backed cuda. current cuda workflow on linux box, i'd prefer compile , link there. according wikipedia , should possible (i couldn't find steinberg documentation relevant linux) can't find makefile or instructions on how build if aren't using xcode or visual studio. i'm vst 3 sdk doesn't support linux. when try compile plugin under linux, error: ./base/source/fatomic.cpp:39:30: fatal error: libkern/osatomic.h: no such file or directory this issue caused following code in "vst3 sdk/base/source/fatomic.cpp" #if mac #include <libkern/osatomic.h> #if mac_os_x_version_min_required > mac_os_x_version_10_4 #define native_atomic_type (volatile int32_t*) #else #define native_atomic_type (int32_t*) #endif #elif windows #include <windows.h> #endif but hope compiling under linux work vst sdk 2.4. reading. jvstwrapper seems run on lin...
Read more

url - Querystring manipulation of email Address in PHP -

i using third party application (email2http) send me emailid, body , message. unable retrieve email id due name appended on , enclosed < , >. here querystring getting. test.php?from=ajay+reddy &subject=cx&body=somebody when print variable in php returns name , not email id. $from = $_get['from']; echo $from; //output ajay reddy please suggest me how can emailid also. i dont want use post method due testing , debugging. it's working fine. forgot use htmlentities() in debugging.
Read more