i email message have charts pasted below each other, pasted in series , looks messy. how can add line break in email body after pasting each chart? i've tried using
, , pasting blank cells either doesn't work or i'm not using properly.
many thanks
private sub commandbutton21_click() on error resume next dim weekno long dim oapp outlook.application dim omail mailitem dim wrdedit activesheet.select weekno = range("c2").value 'get running outlook application set oapp = getobject(, "outlook.application") 'create new email set omail = oapp.createitem(olmailitem) 'set subject , recipient omail.subject = "execution , unavailability report week " & weekno omail.to = "" 'show omail.display 'change html omail.bodyformat = olformathtml 'get word editor set wrdedit = oapp.activeinspector.wordeditor activesheet.range("a50").select selection.copy wrdedit.application.selection.paste activesheet.range("a51").select selection.copy wrdedit.application.selection.paste activesheet.range("a52").select selection.copy wrdedit.application.selection.paste activesheet.range("a53").select selection.copy wrdedit.application.selection.paste activesheet.chartobjects(1).activate activechart.chartarea.copy wrdedit.application.selection.paste activesheet.chartobjects(2).activate activechart.chartarea.copy wrdedit.application.selection.paste sheets("act statistics").select activesheet.chartobjects("chart 1").activate activechart.chartarea.copy wrdedit.application.selection.paste sheets("atd statistics").select activesheet.chartobjects("chart 1").activate activechart.chartarea.copy 'paste email wrdedit.application.selection.paste 'use omail.send autosend 'release objects set wrdedit = nothing set omail = nothing set oapp = nothing end sub
this should work. although ugly me paste here...
wrdedit.application.selection.paste wrdedit.application.selection.range.insertafter vbcrlf wrdedit.application.selection.collapse wdcollapseend 
Comments
Post a Comment