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

how to prompt save As Box in Excel Interlop c# MVC 4 -

i want export excel sheet using excel interloop... i have datatable convert excel sheet... now there way save file using save dialogue box in mvc 4 here code public string datatabletoexcel(datatable dt, string htmlheading, string key) { try { microsoft.office.interop.excel.application excel; microsoft.office.interop.excel.workbook excelworkbook; microsoft.office.interop.excel.worksheet excelsheet; microsoft.office.interop.excel.range excelcellrange; excel = new microsoft.office.interop.excel.application(); excel.visible = false; excel.displayalerts = false; excelworkbook = excel.workbooks.add(type.missing); excelsheet = (microsoft.office.interop.excel.worksheet)excelworkbook.activesheet; excelsheet.name = "sheet1"; dataset ...
Read more

xslt 1.0 - How to access or retrieve mets content of an item from another item? -

my use case have item has link in item. example, item 123456789/152 has metadata field dc.relation.hasversion=123456789/717 . within item view of 123456789/152 , how can retrieve values of metadata of 123456789/717 ? example, want retrieve dc.language.iso value of 123456789/717 123456789/152 . i looked @ related items feature in dspace don't know how metadata displayed in related items list pulled items in list. i using dspace version 5.3 mirage 2 theme . edit based on schweerelos answer, below actual code. using custom metadata field dc.relation.languageversion . basically, want link other version instead of displaying value, display dc.language.iso of other version in item-view.xsl . i've incorporated answer of schweerelos question in code just displaying value of dc.relation.languageversion . sample values of dc.relation.languageversion 10665.1/9843 ; 10665.1/9844 ie not complete uri handle. thanks in advance! actual code <xsl:template name=...
Read more