Hi all, I'm a total novice so looking for a bit of help....

I've got a button within an Excel sheet that basically generates an email with some text in the body and the contents of the clipboard (this is always from using the snipping tool). I just can't seem to get the picture to display below the first couple of lines of text within the email and also, my signature always disappears:

Private Sub Alta1_Click()


Dim OutApp As Object
Dim OutMail As Object
Dim olInsp As Object
Dim wdDoc As Object
Dim oRng As Object


On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
If Err <> 0 Then Set OutApp = CreateObject("Outlook.Application")
On Error Resume Next

Set OutMail = OutApp.CreateItem(0)

With OutMail
.BodyFormat = 2
.To = ""
.CC = ""
.Subject = "Altahullion 1 fault"
If Time < TimeValue("12:00:00") Then
.Body = "Good Morning," & vbNewLine & vbNewLine & _
"Please see the fault below:"
ElseIf Time > TimeValue("12:00:00") And Time < TimeValue("17:00:00") Then
.Body = "Good Afternoon," & vbNewLine & vbNewLine & _
"Please see the fault below:"
Else
.Body = "Good Evening," & vbNewLine & vbNewLine & _
"Please see the fault below:"


End If

On Error Resume Next



Set olInsp = .GetInspector
Set wdDoc = olInsp.WordEditor
Set oRng = wdDoc.Range

oRng.collapse 0
oRng.Paste
.Display
End With

Any assistance would be greatly appreciated.
Thanks,
James.