Styjun

Does fossil fuels use since 1990 account for half of all the fossil fuels used in history?

What is my malfunctioning AI harvesting from humans?

Why are Gatwick's runways too close together?

How to divide item stack in MC PE?

Heat equation: Squiggly lines

How to reduce Sinas Chinam

Can I not use QM-AM inequality to solve this?

How do some PhD students get 10+ papers? Is that what I need for landing good faculty position?

Lethal damage while controlling Sower of Discord?

Should I ask for permission to write an expository post about someone else's research?

How does "Te vas a cansar" mean "You're going to get tired"?

A Word/Phrase for the Process of Classifying Something as a Sin

Does the Fireball spell damage objects?

Can sampling rate be a floating point number?

What ability do tools use?

Why isn’t SHA-3 in wider use?

How would timezones work on a planet 100 times the size of our Earth

Why is the result of ('b'+'a'+ + 'a' + 'a').toLowerCase() 'banana'?

What should I call bands of armed men in the Middle Ages?

PhD advisor lost funding, need advice

Not going forward with internship interview process

Why did the RAAF procure the F/A-18 despite being purpose-built for carriers?

If clocks themselves are based on light signals, wouldn't we expect the measured speed of light to always be the same constant?

ParseJSON using SSJS

Picture pastes over text in Outlook mail using Excel VBA

Copy/paste screenshot runtime error 91 vba in ExcelIs there a way to crack the password on an Excel VBA Project?Paste text on Android EmulatorHow to paste yanked text into Vim command line?How to avoid using Select in Excel VBAExcel VBA for searching in mails of OutlookExcel 2016 VBA not writing to unlocked cellCopy data from worksheet to html file to mailVba convert Excel range into picture and send to Outlook, write text into bodyEmbed picture in outlook mail body excel vbaExcel VBA macro to send emails to unique users in range

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

0

I'm trying to copy a range in Excel as a picture to Outlook mail and add text in the body as well.

My code is adding the text and then pasting the picture on top of it. How can I get it to paste under the text?

Dim OutApp As Object
Dim outMail As Object
Dim myFileList(1) As String
Dim i As Long

Set OutApp = CreateObject("Outlook.Application")
Set outMail = OutApp.CreateItem(0)

Set RngCopied = Worksheets("Daily volume summary").Range("VolumeRange")

myFileList(0) = "Y:xyzsales.pdf"
myFileList(1) = "Y:xyzsales.xlsx"

'On Error Resume Next
With outMail
 .To = "abc@xyz.com"
 .CC = "def@xyz.com"
 .BCC = ""
 .Subject = "PBC Daily Sales " & Format(Date, "mm/dd/yyyy")
 .Body = "Good morning," & vbNewLine & vbNewLine & "Attach is the Daily Sales report for " & Format(Date, "dddd,mmmm,dd,YYYY") & "." & "<br>" 

 'Copy range of interest

 Dim r As Range

 Set r = Worksheets("Daily volume summary").Range("VolumeRange") 
 r.Copy

 'Get its Word editor 
 outMail.Display
 Dim wordDoc As Word.Document
 Set wordDoc = outMail.GetInspector.WordEditor

 'To paste as picture
 wordDoc.Range.PasteAndFormat wdChartPicture
 Dim shp As Object
 For Each shp In wordDoc.InlineShapes
 shp.ScaleHeight = 60
 shp.ScaleWidth = 60
 Next

 For i = 0 To UBound(myFileList)
 .Attachments.Add myFileList(i)
 Next

 .Send
End With
On Error GoTo 0

Set outMail = Nothing
Set OutApp = Nothing
End Sub

excel vba outlook range copy-paste

share|improve this question

edited Feb 5 at 21:10

Community♦

111 silver badge

asked Nov 17 '16 at 16:36

CG_30CG_30

111 bronze badge

add a comment | 

0

I'm trying to copy a range in Excel as a picture to Outlook mail and add text in the body as well.

My code is adding the text and then pasting the picture on top of it. How can I get it to paste under the text?

Dim OutApp As Object
Dim outMail As Object
Dim myFileList(1) As String
Dim i As Long

Set OutApp = CreateObject("Outlook.Application")
Set outMail = OutApp.CreateItem(0)

Set RngCopied = Worksheets("Daily volume summary").Range("VolumeRange")

myFileList(0) = "Y:xyzsales.pdf"
myFileList(1) = "Y:xyzsales.xlsx"

'On Error Resume Next
With outMail
 .To = "abc@xyz.com"
 .CC = "def@xyz.com"
 .BCC = ""
 .Subject = "PBC Daily Sales " & Format(Date, "mm/dd/yyyy")
 .Body = "Good morning," & vbNewLine & vbNewLine & "Attach is the Daily Sales report for " & Format(Date, "dddd,mmmm,dd,YYYY") & "." & "<br>" 

 'Copy range of interest

 Dim r As Range

 Set r = Worksheets("Daily volume summary").Range("VolumeRange") 
 r.Copy

 'Get its Word editor 
 outMail.Display
 Dim wordDoc As Word.Document
 Set wordDoc = outMail.GetInspector.WordEditor

 'To paste as picture
 wordDoc.Range.PasteAndFormat wdChartPicture
 Dim shp As Object
 For Each shp In wordDoc.InlineShapes
 shp.ScaleHeight = 60
 shp.ScaleWidth = 60
 Next

 For i = 0 To UBound(myFileList)
 .Attachments.Add myFileList(i)
 Next

 .Send
End With
On Error GoTo 0

Set outMail = Nothing
Set OutApp = Nothing
End Sub

excel vba outlook range copy-paste

share|improve this question

edited Feb 5 at 21:10

Community♦

111 silver badge

asked Nov 17 '16 at 16:36

CG_30CG_30

111 bronze badge

add a comment | 

I'm trying to copy a range in Excel as a picture to Outlook mail and add text in the body as well.

My code is adding the text and then pasting the picture on top of it. How can I get it to paste under the text?

Dim OutApp As Object
Dim outMail As Object
Dim myFileList(1) As String
Dim i As Long

Set OutApp = CreateObject("Outlook.Application")
Set outMail = OutApp.CreateItem(0)

Set RngCopied = Worksheets("Daily volume summary").Range("VolumeRange")

myFileList(0) = "Y:xyzsales.pdf"
myFileList(1) = "Y:xyzsales.xlsx"

'On Error Resume Next
With outMail
 .To = "abc@xyz.com"
 .CC = "def@xyz.com"
 .BCC = ""
 .Subject = "PBC Daily Sales " & Format(Date, "mm/dd/yyyy")
 .Body = "Good morning," & vbNewLine & vbNewLine & "Attach is the Daily Sales report for " & Format(Date, "dddd,mmmm,dd,YYYY") & "." & "<br>" 

 'Copy range of interest

 Dim r As Range

 Set r = Worksheets("Daily volume summary").Range("VolumeRange") 
 r.Copy

 'Get its Word editor 
 outMail.Display
 Dim wordDoc As Word.Document
 Set wordDoc = outMail.GetInspector.WordEditor

 'To paste as picture
 wordDoc.Range.PasteAndFormat wdChartPicture
 Dim shp As Object
 For Each shp In wordDoc.InlineShapes
 shp.ScaleHeight = 60
 shp.ScaleWidth = 60
 Next

 For i = 0 To UBound(myFileList)
 .Attachments.Add myFileList(i)
 Next

 .Send
End With
On Error GoTo 0

Set outMail = Nothing
Set OutApp = Nothing
End Sub

excel vba outlook range copy-paste

share|improve this question

edited Feb 5 at 21:10

Community♦

111 silver badge

asked Nov 17 '16 at 16:36

CG_30CG_30

111 bronze badge

Dim OutApp As Object
Dim outMail As Object
Dim myFileList(1) As String
Dim i As Long

Set OutApp = CreateObject("Outlook.Application")
Set outMail = OutApp.CreateItem(0)

Set RngCopied = Worksheets("Daily volume summary").Range("VolumeRange")

myFileList(0) = "Y:xyzsales.pdf"
myFileList(1) = "Y:xyzsales.xlsx"

'On Error Resume Next
With outMail
 .To = "abc@xyz.com"
 .CC = "def@xyz.com"
 .BCC = ""
 .Subject = "PBC Daily Sales " & Format(Date, "mm/dd/yyyy")
 .Body = "Good morning," & vbNewLine & vbNewLine & "Attach is the Daily Sales report for " & Format(Date, "dddd,mmmm,dd,YYYY") & "." & "<br>" 

 'Copy range of interest

 Dim r As Range

 Set r = Worksheets("Daily volume summary").Range("VolumeRange") 
 r.Copy

 'Get its Word editor 
 outMail.Display
 Dim wordDoc As Word.Document
 Set wordDoc = outMail.GetInspector.WordEditor

 'To paste as picture
 wordDoc.Range.PasteAndFormat wdChartPicture
 Dim shp As Object
 For Each shp In wordDoc.InlineShapes
 shp.ScaleHeight = 60
 shp.ScaleWidth = 60
 Next

 For i = 0 To UBound(myFileList)
 .Attachments.Add myFileList(i)
 Next

 .Send
End With
On Error GoTo 0

Set outMail = Nothing
Set OutApp = Nothing
End Sub

share|improve this question

edited Feb 5 at 21:10

Community♦

111 silver badge

asked Nov 17 '16 at 16:36

CG_30CG_30

111 bronze badge

share|improve this question

edited Feb 5 at 21:10

Community♦

111 silver badge

asked Nov 17 '16 at 16:36

CG_30CG_30

111 bronze badge

edited Feb 5 at 21:10

Community♦

111 silver badge

edited Feb 5 at 21:10

Community♦

111 silver badge

asked Nov 17 '16 at 16:36

CG_30CG_30

111 bronze badge

asked Nov 17 '16 at 16:36

CG_30CG_30

111 bronze badge

1 Answer
1

active

oldest

votes

2

In the line:

 wordDoc.Range.PasteAndFormat wdChartPicture

you are replacing the ENTIRE range of the message's word doc with your picture. Instead you need to note where in the range you want to paste this. This should put it after your text:

 wordDoc.Range(start:=wordDoc.Range.End - 2).PasteAndFormat wdChartPicture

share|improve this answer

answered Nov 17 '16 at 23:16

OpiesDadOpiesDad

2,93011 gold badge99 silver badges2626 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  It works! Thank you
  
  – CG_30
  Nov 18 '16 at 15:07
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f40660298%2fpicture-pastes-over-text-in-outlook-mail-using-excel-vba%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

2

In the line:

 wordDoc.Range.PasteAndFormat wdChartPicture

you are replacing the ENTIRE range of the message's word doc with your picture. Instead you need to note where in the range you want to paste this. This should put it after your text:

 wordDoc.Range(start:=wordDoc.Range.End - 2).PasteAndFormat wdChartPicture

share|improve this answer

answered Nov 17 '16 at 23:16

OpiesDadOpiesDad

2,93011 gold badge99 silver badges2626 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  It works! Thank you
  
  – CG_30
  Nov 18 '16 at 15:07
  

  
  
  
  

add a comment | 

2

In the line:

 wordDoc.Range.PasteAndFormat wdChartPicture

you are replacing the ENTIRE range of the message's word doc with your picture. Instead you need to note where in the range you want to paste this. This should put it after your text:

 wordDoc.Range(start:=wordDoc.Range.End - 2).PasteAndFormat wdChartPicture

share|improve this answer

answered Nov 17 '16 at 23:16

OpiesDadOpiesDad

2,93011 gold badge99 silver badges2626 bronze badges

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  It works! Thank you
  
  – CG_30
  Nov 18 '16 at 15:07
  

  
  
  
  

add a comment | 

In the line:

 wordDoc.Range.PasteAndFormat wdChartPicture

you are replacing the ENTIRE range of the message's word doc with your picture. Instead you need to note where in the range you want to paste this. This should put it after your text:

 wordDoc.Range(start:=wordDoc.Range.End - 2).PasteAndFormat wdChartPicture

share|improve this answer

answered Nov 17 '16 at 23:16

OpiesDadOpiesDad

2,93011 gold badge99 silver badges2626 bronze badges

 wordDoc.Range.PasteAndFormat wdChartPicture

 wordDoc.Range(start:=wordDoc.Range.End - 2).PasteAndFormat wdChartPicture

share|improve this answer

answered Nov 17 '16 at 23:16

OpiesDadOpiesDad

2,93011 gold badge99 silver badges2626 bronze badges

answered Nov 17 '16 at 23:16

OpiesDadOpiesDad

2,93011 gold badge99 silver badges2626 bronze badges

answered Nov 17 '16 at 23:16

OpiesDadOpiesDad

2,93011 gold badge99 silver badges2626 bronze badges