Amend my VBA code - too add text

[Raj1313]

Hi I have the below code which works fine. I just want to add text before the picture is pasted any ideas?

Sub Email_Report()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object

'Change Range, Addresses and subject below as needed.
MyTo = "test@test.comt"
MySub = "Test"
Range(B81:K161").CopyPicture Appearance:=xlScreen, Format:=xlPicture
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

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

On Error Resume Next
With OutMail
.To = MyTo
.Subject = MySub
.Text
.Display
.Attachments.Add (ActiveWorkbook.FullName)
SendKeys "^v", True
End With

With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[texasalynn]

add text? to where and to what (excel, email, etc)

 

[mrmmickle1]

Have you tried using:

[COLOR=#0000ff]With[/COLOR] OutMail
    .Body = "Some Text goes here"
[COLOR=#0000ff]End With[/COLOR]

 

[Raj1313]

Have you tried using:

[COLOR=#0000ff]With[/COLOR] OutMail
    .Body = "Some Text goes here"
[COLOR=#0000ff]End With[/COLOR]

Thanks guys I sorted it added the text before send keys - so the text went in first the picture was pasted in.