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
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