image - How to send a shape object from Excel in the body of an Email? -


i'm struggling 1 (seemingly) simple step in macro i'm trying write. have excel shape object i'm trying copy paste outlook mail item. shape object product of using excel's "camera tool." did created chart need flip 90 degrees viewing. camera tool makes simple. problem have pasting picture shape outlook item. suggestions?

here's code far:

sub emailer()  dim wb workbook dim ws worksheet dim p shape dim o outlook.application dim om outlook.mailitem dim rec outlook.recipient dim recs outlook.recipients  'create outlook session set o = createobject("outlook.application") 'create message set om = o.createitem(olmailitem) set recs = om.recipients set rec = recs.add("email@email.com") rec.type = 1  set wb = activeworkbook set ws = activeworkbook.worksheets("chart_pic")  set p = ws.shapes("picture 2") p.copypicture   om .sentonbehalfofname = "email@email.com" .subject = "subject" .htmlbody = "this test" & vbcrlf & vbcrlf & [where want shape go]   each rec in om.recipients rec.resolve next  om.send  end  set o = nothing

you use clipboard copy/paste picture. need outlook mail editor can deal clipboard. wordeditor example.

example:

sub emailer()   set oolapp = createobject("outlook.application")   set oolmitem = oolapp.createitem(olmailitem)   set owb = activeworkbook  set ows = activeworkbook.worksheets("chart_pic")   set opic = ows.shapes("picture 2")  opic.copypicture ' opic in clipboard    oolmitem    .display    .to = "email@email.com"   .subject = "subject"    set oolinsp = .getinspector   set owddoc = oolinsp.wordeditor ' word document mailbody    set owdcontent = owddoc.content   owdcontent.insertparagraphbefore   set owdrng = owddoc.paragraphs(1).range   owdrng.insertbefore "this test"   owdrng.insertparagraphafter   owdrng.insertparagraphafter    set owdrng = owddoc.paragraphs(3).range   owdrng.paste ' paste opic clipboard    olformathtml = 2   .bodyformat = olformathtml ' change html    end  end sub

-

Comments

Post a Comment

Popular posts from this blog

c# - Binding a comma separated list to a List<int> in asp.net web api -

the default binder in web api expecst http://url.com/webapi/report/?pageids=3243&pageids=2365 to bind public ihttpactionresult report(list<int> pageids){ // exciting webapi code} i wish bind http://url.com/webapi/report/?pageids=3243,2365 as running out of space in url get . i have created class public class commaseparatedmodelbinder : system.web.http.modelbinding.imodelbinder { public bool bindmodel(httpactioncontext actioncontext, modelbindingcontext bindingcontext) { //binding in here } } and registered in webapiconfig.cs var provider = new simplemodelbinderprovider( typeof(list<int>), new commaseparatedmodelbinder()); config.services.insert(typeof(modelbinderprovider), 0, provider); i have altered method signature use model binder so public ihttpactionresult report( [modelbinder] list<int> pageids){ // exciting webapi code} however break point in binder not being
Read more

Delphi 7 and decode UTF-8 base64 -

in delphi 7, have widestring encoded base64(that received web service widestring result) : pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg== when decoded it, result not utf-8: <?xml version="1.0"?> <string>طھط³طھ</string> but when decoded base64decode.org, result true : <?xml version="1.0"?> <string>تست</string> i have use encddecd unit decodestring function. the problem have using decodestring . function, in delphi 7, treats decoded binary data being ansi encoded. , problem text utf-8 encoded. to continue encddecd unit have couple of options. can switch decodestream . instance, code produce utf-8 encoded text file data: {$apptype console} uses classes, encddecd; const data = 'pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg=='; var input: tstringstream; output: tfilestream; begin input := tstringstream.create(data); try output := tfilestream.
Read more

html - Is there any way to exclude a single element from the style? (Bootstrap) -

so, have img logo, overlaid on div styled background-image: url("...") , , both elements inside 2 div classes .to-color , .to-overlay respectively, black transparent overlay. is there way exclude logo style given these 2 classes? here's jsfiddle example: link html , css example: - html - <div class="to-color"> <div class="to-overlay"> <div class="respo"> <div class="row"> <div class="col-xs-4 col-xs-offset-4 text-center"> <img src="http://ansonalex.com/wp-content/uploads/2011/06/google-logo-768x260.png" alt="..." class="img-responsive"> </div> </div> </div> </div> </div> - css - .to-color { background-color: #000; } .to-overlay { opacity : 0.5; } .respo { background-image: url("https://source.unsplash.com/category/objects/1600x900"); background-position: center center;
Read more