Email help

[DaveUK]

I am using this code which was aquired from this forum.

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

 

[Tazguy37]

Something like:

.Body = "Please create a notice for Work Order Number " & WorkOrderNumber & vbCrLf & "more text"

Like that?

 

[ccoleman]

I prefer

Dim subj as string
subj = "blah blah blah" & VbCrLf
subj = subj & "foo foo foo"
.body = subj

btw VbCrLf is the command for new line

 

[DaveUK]

Many thanks they both work great !!

Thanks for your time and help