tbrynard01
Board Regular
- Joined
- Sep 20, 2017
- Messages
- 129
- Office Version
- 365
- Platform
- Windows
I use this code to send an email from Excel but it is distorting the appearance of the range I'm copying, how would I change it to past it in Outlook as a picture?
Any help would be appreciated.
Thanks
Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object
Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)
With newEmail
.To = Sheet8.Range("B21").Text
.CC = Sheet8.Range("G21").Text
.BCC = ""
.Subject = "MHR Request"
.Body = ""
.display
Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor
Sheet8.Range("B2:E20").Copy
pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
.display
.Send
Set pageEditor = Nothing
End With
Set newEmail = Nothing
Set outlook = Nothing
Any help would be appreciated.
Thanks
Dim outlook As Object
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object
Set outlook = CreateObject("Outlook.Application")
Set newEmail = outlook.CreateItem(0)
With newEmail
.To = Sheet8.Range("B21").Text
.CC = Sheet8.Range("G21").Text
.BCC = ""
.Subject = "MHR Request"
.Body = ""
.display
Set xInspect = newEmail.GetInspector
Set pageEditor = xInspect.WordEditor
Sheet8.Range("B2:E20").Copy
pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
.display
.Send
Set pageEditor = Nothing
End With
Set newEmail = Nothing
Set outlook = Nothing