Hello, I need to add "Here are the numbers" to the top of the body in the VBA below. Thanks for help
Sub CreateMail()
Dim rngSubject As Range
Dim rngTo As Range
Dim rngBody As Range
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With ActiveSheet
Set rngTo = .Range("O16")
Set rngSubject = .Range("O17")
Set rngBody = .Range(.Range("D15"), .Range("D25").End(xlDown))
End With
rngBody.Copy
With objMail
.To = rngTo
.Subject = rngSubject
.Display 'Instead of .Display, you can use .Send to send the email _
or .Save to save a copy in the drafts folder
End With
SendKeys "^({v})", True
Set objOutlook = Nothing
Set objMail = Nothing
Bookmarks