I'm attempting to put multiple lines of text (not one huge string) in the body of an email. I've tried Chr(13), Chr(10), vbcr, and vblf....all to no avail.
Sub AttachEmail()
Bk1 = ActiveWorkbook.Name
Sh1 = ActiveSheet.Name
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "$ES&T MCV"
.CC = ""
.Subject = "MCV Schedule"
.Attachments.Add ""
.HTMLBody = "First line here" & Chr(10) & "Second line here"
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Thanks
Sub AttachEmail()
Bk1 = ActiveWorkbook.Name
Sh1 = ActiveSheet.Name
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "$ES&T MCV"
.CC = ""
.Subject = "MCV Schedule"
.Attachments.Add ""
.HTMLBody = "First line here" & Chr(10) & "Second line here"
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Thanks