How to edit this email from Excel VBA code to put body text after pasted info with signature?

[Indominus]

Hi. I have this VBA code that copies the current range starting from A1 and emails it out. It works however, the body text gets put below the pasted info and there is no signature. If I remove the body text the signature is there. How can I edit this to put the body text on the top and still include the signature. My signature also includes a picture if that matters. Here is the code. Thank you in advance!

Sub Email()

Dim xAddress As String
Dim xEmailBody As String
Dim xMailOut As Outlook.MailItem
Dim xOutApp As Outlook.Application



xAddress = ActiveWindow.RangeSelection.Address


Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xMailOut = xOutApp.CreateItem(olMailItem)


Range("A1").CurrentRegion.Copy


xMailOut.To = Worksheets("Setup").Range("V2").Value
xMailOut.CC = Worksheets("Setup").Range("V3").Value
xMailOut.Subject = Worksheets("Setup").Range("V4").Value
xMailOut.body = Worksheets("Setup").Range("V5").Value


xMailOut.display
SendKeys "^{v}", True



Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True



'Application.CutCopyMode = False
End Sub

 

[severynm]

To solve your first issue about adding in the signature, you need to .Display before you set any other of the email parameters, as in this example. I don't know exactly how MailItem handles setting the properties and how it relates to the clipboard programmatically, but maybe try appending your clipboard to "Worksheets("Setup").Range("V5").Value" and setting that combined value to .Body.