New Line for VBA E-Mail

[RandyD123]

All I am using this code:

Sub SendEmail()
    Dim appOutlook As Outlook.Application
    Dim mEmail As Outlook.MailItem

    Set appOutlook = New Outlook.Application
    Set mEmail = appOutlook.CreateItem(olMailItem)

    With mEmail
         .To = "testmymail@outlook.com"
         .CC = ""
         .BCC = ""
         .Subject = "MHT Equipment Maintenance Audit"
         .HTMLBody = "All," & vbNewLine & _
                      "Attached is the Monthly MHT Level II Preventative Maintenance Audit spreadsheet."
         .Display
    End With
    Set mEmail = Nothing
    Set appOutlook = Nothing
End Sub

But when I run it it looks like this.... All,Attached is the monthly.......... I need a space after the "All,"

Any help would be appreciated. thank you

 

[Sequoyah]

Hi RandyD123

.HTMLBody = "All, " & vbNewLine & _
                      "Attached is the Monthly MHT Level II Preventative Maintenance Audit spreadsheet."

 

[RandyD123]

Hi RandyD123

.HTMLBody = "All, " & vbNewLine & _
                      "Attached is the Monthly MHT Level II Preventative Maintenance Audit spreadsheet."

I'm pretty sure I tried that but I didn't get a space. I should be clearer, I think what I need is a line break so All, is on the top line then a new line for the rest. And maybe a 3rd line. Thanks.

 

[LegendaryAxe]

Anytime you need a line break type "<br>" in the text. So "All,<br>"

 

[LegendaryAxe]

Also, unless the email needs to be in HTML, the vbNewLine's should work if you change the property from ".HTMLBody" to just ".Body"

 

[RandyD123]

Also, unless the email needs to be in HTML, the vbNewLine's should work if you change the property from ".HTMLBody" to just ".Body"

I believe this will work. I forgot that I'm not technically using VB code in the body of the e-mail. I will try both ways tomorrow and let you know. Thank You!!!

 

[LegendaryAxe]

I believe this will work. I forgot that I'm not technically using VB code in the body of the e-mail. I will try both ways tomorrow and let you know. Thank You!!!

No problem! I hope it works.

 

[RandyD123]

Well I guess that didn't work after all. I error out on the second line:

Sub SendEmail()
    Dim appOutlook As Outlook.Application
    Dim mEmail As Outlook.MailItem

    Set appOutlook = New Outlook.Application
    Set mEmail = appOutlook.CreateItem(olMailItem)

    With mEmail
         .To = "someone@someplace.com"
         .CC = ""
         .BCC = ""
         .Subject = "MHT Equipment Maintenance Audit"
         .HTMLBody = "All,<br>"
                      "Attached is the Monthly MHT Level II Preventative Maintenance Audit spreadsheet."
         .Display
    End With
    Set mEmail = Nothing
    Set appOutlook = Nothing
End Sub

The "Attached......" line is in red.

 

[RandyD123]

I got this to work. But I can't have .HTMLBody I can only use .Body.

Sub SendEmail()
    Dim appOutlook As Outlook.Application
    Dim mEmail As Outlook.MailItem

    Set appOutlook = New Outlook.Application
    Set mEmail = appOutlook.CreateItem(olMailItem)

    With mEmail
         .To = "someone@someplace.com"
         .CC = ""
         .BCC = ""
         .Subject = "MHT Equipment Maintenance Audit"
         .Body = "All, " & vbNewLine & _
         "" & vbLf & _
                   "Attached is the Monthly MHT Level II Preventative Maintenance Audit spreadsheet." & vbNewLine & _
         "" & vbLf & _
                   "Some sort of text will go here."
         .Display
    End With
    Set mEmail = Nothing
    Set appOutlook = Nothing
End Sub

 

[LegendaryAxe]

The HTML version of the code doesn't work because you need a line continuation character for the string assigned to .HTMLBody.

This should work:

Option Explicit

Sub SendEmail()
    Dim appOutlook As Outlook.Application
    Dim mEmail As Outlook.MailItem

    Set appOutlook = New Outlook.Application
    Set mEmail = appOutlook.CreateItem(olMailItem)

    With mEmail
         .To = "someone@someplace.com"
         .CC = ""
         .BCC = ""
         .Subject = "MHT Equipment Maintenance Audit"
         .HTMLBody = "All,<br>" & _
         "Attached is the Monthly MHT Level II Preventative Maintenance Audit spreadsheet."
         .Display
    End With
    Set mEmail = Nothing
    Set appOutlook = Nothing
End Sub