excel - Returning a String Array in Outmail.body -

-

i using known subroutine send warning email outlook whenever condition met.

in routine define string array under name datepassed in store dynamical values , intent return it's content in subject of email.

the problem don't know how handle datepassed return me whole array not first element.

how this? 

 sub mail_workbook_outlook_1()        dim outapp object       dim outmail object        set outapp = createobject("outlook.application")       set outmail = outapp.createitem(0)        on error resume next        dim datepassed(100) variant       dim integer       = 6 13            if cells(i, 1) < date              datepassed(i - 6) = cells(i, 2)            end if       next        outmail           .to = "joerge@johnson.com"           .cc = "james@johnson.com"           .bcc = ""           .subject = "unmanaged clients"           .body = datapassed           .attachments.add activeworkbook.fullname           .send       end       on error goto 0        set outmail = nothing       set outapp = nothing   end sub

try this.

i have added loop run through array , stored string gets assigned .body

 sub mail_workbook_outlook_1()        dim outapp object       dim outmail object        set outapp = createobject("outlook.application")       set outmail = outapp.createitem(0)        on error resume next        dim datepassed(100) variant       dim integer       = 6 13            if cells(i, 1) < date              datepassed(i - 6) = cells(i, 2)            end if       next        '=================================================       'new section        dim datapassedelementreference long       dim datapassedstring string        datapassedstring = ""        'using 100 waht used define array       datapassedelementreference = 1 100             datapassedstring = datapassedstring & datapassed(datapassedelementreference) & " "        next datapassedelementreference       '=================================================        outmail           .to = "joerge@johnson.com"           .cc = "james@johnson.com"           .bcc = ""           .subject = "unmanaged clients"           'note difference here           '.body = datapassed           .body = datapassedstring           .attachments.add activeworkbook.fullname           .send       end       on error goto 0        set outmail = nothing       set outapp = nothing   end sub

Comments

Post a Comment

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

-
i beginner in autocad plugins .i have created array of circle using following code. now, have hatch circles in array .how that??how hatch circles @ once? moreover, how can return hatch method , use hatch objects.sorry language.thanks in advance. [assembly: commandclass(typeof(beamsection.class1))] namespace beamsection { public class class1 { //class1 obj = new class1(); [commandmethod("beamatsupport")] public void addlightweightpolyline() { // current document , database document acdoc = application.documentmanager.mdiactivedocument; database accurdb = acdoc.database; promptpointresult ppr = acdoc.editor.getpoint("\nselect starting point "); var ucs = acdoc.editor.currentusercoordinatesystem; point3d startingpt = ppr.value.transformby(ucs); list<double> radius = new list<double>(); radius.add(0.5);
Read more

ios - UITEXTFIELD InputView Uipicker not working in swift -

-
hello trying pop uipickerview view programmatically when user clicks on textfield. have tried doesn't doing anything. isn't working. nothing happening when click textfield class userprofiletableviewcontroller: uitableviewcontroller,uitextfielddelegate,uipickerviewdelegate,uipickerviewdatasource { var itempicker: uipickerview! = uipickerview() @iboutlet weak var gendertxtfield: uitextfield! var gender = ["male","female"] override func viewdidload() { super.viewdidload() gendertxtfield.delegate = self itempicker!.delegate = self itempicker!.datasource = self itempicker!.backgroundcolor = uicolor.blackcolor() self.gendertxtfield.inputview = itempicker } func numberofcomponentsinpickerview(pickerview: uipickerview) -> int{ return 1 } // returns # of rows in each component.. func pickerview(pickerview: uipickerview, numberofrowsincomponent component:
Read more

Python Pig Latin Translator -

-
so have been working on @ codecademy.com while trying learn python. don't know if blind , can't see why won't work or what. here's code won't let me use. function print variable if had typed in , print "empty" if didn't type anything. print "welcome english pig latin translator!" original = raw_input("what's name?") if len(original) > 0 print original else print "empty" if len(original) > 0 else the above lines contains syntax errors. try: if len(original) > 0: else: note added colons, ( : ).
Read more