Hello all! Hope you can assist. I have scrambled around and found what I need, but the code paste the clipboard contents at the beginning of the email and pushes the logo to the bottom. Any suggestions on how to keep this at the top left? As I am sure you can tell, I have copied and pasted from several different codes, any suggestions would be appreciated!

Sub PasteClipboard()Dim OutApp As Object
Dim OutMail As Object
Dim olInsp As Object
Dim MyItem As Outlook.MailItem
Dim str_jpeg_file As String
str_jpeg_file = "C:\User\New folder\Logo.jpg"
'Dim xlSheet As Worksheet
Dim wdDoc As Object
Dim oRng As Object
'Set xlSheet = ActiveWorkbook.Sheets("Unapproved")
'xlSheet.UsedRange.Copy
'On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
If Err <> 0 Then Set OutApp = CreateObject("Outlook.Application")
On Error GoTo 0
'Set OutMail = OutApp.CreateItem(0)
Set MyItem = Application.CreateItemFromTemplate("H:\Templates\Statement Customer .msg")
MyItem.Display
With MyItem
    .BodyFormat = 2
    .To = ""
    .CC = ""
    .BCC = ""
    .Subject = "Customer Statement "
    .Body
    .Attachments.Add str_jpeg_file, 1, 0
    'first we write some placeholder text so we can replace it
    .HTMLBody = "##IMAGE_PLACEHOLDER##"
    'replace
    .HTMLBody = Replace(.HTMLBody, "##IMAGE_PLACEHOLDER##", "<img src=""cid:Logo.jpg""height=63 Width=135>")
    '.Send
    Set olInsp = .GetInspector
    Set wdDoc = olInsp.WordEditor
    Set oRng = wdDoc.Range
    oRng.collapse 1
    oRange = vbCrLf
    oRng.Paste
    .Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
Set olInsp = Nothing
Set wdDoc = Nothing
Set oRng = Nothing
End Sub