I am using this code which was aquired from this forum.
But,
I want to write more than 1 line in the body of the Email.
Using the above code please could someone tell me how i can add more lines of text in the body of the Email.
TIA
Code:
Sub SendAWONEmail()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Dim objol As New Outlook.Application
Dim objmail As MailItem
Set objol = New Outlook.Application
Set objmail = objol.CreateItem(olMailItem)
With objmail
.To = "someone@somewhere.co.uk"
.Subject = "ELECTRIC NEW WORK ORDER No: " & WorkOrderNumber
.Body = "Please create a notice for Work Order Number " & WorkOrderNumber
.NoAging = True
'.Attachments.Add ("C:\ELECTRIC\ELECTRIC DATA.xls")
.Display
End With
Set objmail = Nothing
Set objol = Nothing
SendKeys "%{s}", True
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub
But,
I want to write more than 1 line in the body of the Email.
Using the above code please could someone tell me how i can add more lines of text in the body of the Email.
TIA