How to add blank row to body of Outlook email in VBA

[jakeman]

I am trying to write some VBA code that will create an Outlook email for me with a generic message in the body. I don't know how to create blank rows in the body so that I can include a closing.

The code I have so far looks like this:

Sub Adherence_email_MHA()

Dim myOutlook As Object
Dim myMailItem As Object

Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)

With otlNewMail
.To = "_MHAManagement"
.Subject = "Adherence updated"
.body = "sentence 1"  ****here I'd like to put a blank line after this sentence
.body = "sentence 2"  **** this would be the closing

'.Attachments.Add
.Display

End With


Set otlNewMail = Nothing
Set otlApp = Nothing
Set otlAttach = Nothing
Set otlMess = Nothing
Set otlNSpace = Nothing


End Sub

Thanks.

Jake

 

[Marc]

You can utlitlze the newline constant as follows. Note: You should lose the second .body declaration.

Incidentally, the link below is a great source for Example Code for sending mail from Excel

http://www.rondebruin.nl/sendmail.htm


With otlNewMail
.To = "_MHAManagement"
.Subject = "Adherence updated"
.body = "sentence 1" & vbNewLine & vbNewLine & _
"sentence 2"