VBA Excel Outlook Email Body Formatting

问题

I have useform that sends emails automatically. I want to change the body of the email - some of it will be based on a cell with text so it could be dynamic and some will be fixed in the code. for now - in runs me an error of object required, i'll be thankful for help. I want every line in the body of the email to be separate.

Sub sendMail(ByVal mail As String, name As String, Msht As Worksheet, CCmail As Integer, CCperson As String)
    Dim applOL As Outlook.Application
    Dim miOL As Outlook.MailItem
    Dim recptOL As Outlook.Recipient
    mailSub = Msht.Range("J2")
    mailbody = Msht.Range("L2")
    Set applOL = New Outlook.Application
    Set miOL = applOL.CreateItem(olMailItem)
    Set recptOL = miOL.Recipients.add(mail)
    recptOL.Type = olTo
    If CCmail = 1 Then
        Set recptOL = miOL.Recipients.add(CCperson)
        recptOL.Type = olCC
    End If
    tempPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.name
    With miOL
        .Subject = mailSub
        .Body = "bla bla" & "bla bla bla" & mailbody.Font.Underline & Msht.Range("M2").Font.Bold & Body = Msht.Range("N2")
        .Attachments.add (tempPath)
        .send

    End With
    ActiveWorkbook.Close Savechanges:=True
    Set applOL = Nothing
    Set miOL = Nothing
    Set recptOL = Nothing
End Sub

回答1:

You need to apply HTML format to the body of the email:

Dim body_ As String
    body_= "<p> Hello </p>" & _
           "<p> This is a line </p>" & _
           "<p> This is another line </p>" & _
           "<p> This is yet another line. </p>"

.BodyFormat = olFormatHTML
.HTMLBody = "<html><head></head><body>" & body_ & "</body></html>"

Update

Option Explicit

Public Sub sendMail(ByVal mail As String, name As String, Msht As Worksheet, CCmail As Integer, CCperson As String)
    On Error GoTo ErrorTrap

    Dim applOL As Outlook.Application
    Set applOL = New Outlook.Application

    Dim miOL As Outlook.MailItem
    Set miOL = applOL.CreateItem(olMailItem)

    Dim recptOL As Outlook.Recipient
    Set recptOL = miOL.Recipients.Add(mail)
        recptOL.Type = olTo

    Dim mailSub As String
        mailSub = Msht.Range("J2")

    Dim mailbody As String
        mailbody = "<p><u>" & Msht.Range("L2").Value & "</u></p>" & _
                   "<p><b>" & Msht.Range("M2").Value & "</b></p>" & _
                   "<p>" & Msht.Range("N2").Value & "</p>"

    If CCmail = 1 Then
        Set recptOL = miOL.Recipients.Add(CCperson)
        recptOL.Type = olCC
    End If

    Dim tempPath As String
        tempPath = ActiveWorkbook.Path & "\" & ActiveWorkbook.name

    With miOL
        .Subject = mailSub
        .BodyFormat = olFormatHTML
        .HTMLBody = "<html><head></head><body>" & mailbody & "</body></html>"
        .Attachments.Add tempPath
        .send
    End With

    ActiveWorkbook.Close Savechanges:=True

Leave:
   On Error GoTo 0
   Exit Sub

ErrorTrap:
    MsgBox Err.Description, vbCritical
    Resume Leave
End Sub

来源：https://stackoverflow.com/questions/47029588/vba-excel-outlook-email-body-formatting

标签

vba

excel

outlook