Hello,
I have been really struggling with this. Advice would be much appreciated. I have been looking a lot at Ron de Bruin's website but I am still unclear.
Here is my code:-
Sub EmailTest()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("email")
.Subject = "Report"
.Body = "Dear Sir" & Worksheets("Sheet1").Range("Holding")
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
End Sub
The problems I have are:-
1.) I want the body of the email to be a defined range from excel. But I cannot get it to work. In the case above the defined range in excel is called Holding
2.) How do I get my email signature to be added to the message? I seemed to have accidentally done this in previous trials of mine, but I am very unclear.
Many thanks
Bookmarks