Excel Mailing via VBA com Texto formatado

Rafael Ludovico · 23 de setembro de 2019

Boa tarde.

Fiz uma macro simples com o intuito de disparar alguns relatórios por email utilizando o outlook.

Ela já está funcionando perfeitamente, mas não estou conseguindo formatar o texto da mensagem, pois nem todo o texto está direto no VBA, uma parte vem do excel.

Sub Enviar_Relatorios()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = Range("f5").Value & " boa tarde!</br>" & _
              "<br/>" & "<br/>" & "Segue o relatório semanal de Performance da equipe do " & Range("d5").Value & "." & _
              "<br/>" & "<br/>" & "Atenciosamente,"

    On Error Resume Next

    With OutMail
        .Display
        .To = Range("A5").Value
        .CC = Range("B5").Value
        .BCC = ""
        .Subject = Range("G5").Value
        .HTMLBody = strbody & "<br>" & .HTMLBody
        .Attachments.Add Range("I5").Value
        .Attachments.Add Range("J5").Value
        .Attachments.Add Range("K5").Value
        .Attachments.Add Range("L5").Value
        .Attachments.Add Range("M5").Value
        .Attachments.Add Range("N5").Value
        .Attachments.Add Range("O5").Value
        .Attachments.Add Range("P5").Value
        .Attachments.Add Range("Q5").Value
        .Attachments.Add Range("R5").Value
        .Display
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

No campo strbody, ao tentar formatar o texto a macro da erro. Conseguem me ajudar?

Basole · 23 de setembro de 2019

@Rafael Ludovico experimente desta foram:

         .HTMLBody = "<HTML>" & vbNewLine & _
            "<BODY style=font-size:12pt;font-family:Calibri> " & vbNewLine & _
              "<P>" & Range("f5").Value & " boa tarde</P>" & vbNewLine & _
               "<P></P> " & vbNewLine & _
               "<P></P> " & vbNewLine & _
              "<P>Segue o relatório semanal de Performance da equipe do " & Range("d5").Value & ".</P>" & vbNewLine & _
            "<P>Atenciosamente,</P>" & vbNewLine & _
           "</BODY>" & vbNewLine & _
         "</HTML>"

Rafael Ludovico · 23 de setembro de 2019

48 minutos atrás, Basole disse:

@Rafael Ludovico experimente desta foram:


         .HTMLBody = "<HTML>" & vbNewLine & _
            "<BODY style=font-size:12pt;font-family:Calibri> " & vbNewLine & _
              "<P>" & Range("f5").Value & " boa tarde</P>" & vbNewLine & _
               "<P></P> " & vbNewLine & _
               "<P></P> " & vbNewLine & _
              "<P>Segue o relatório semanal de Performance da equipe do " & Range("d5").Value & ".</P>" & vbNewLine & _
            "<P>Atenciosamente,</P>" & vbNewLine & _
           "</BODY>" & vbNewLine & _
         "</HTML>"

Funcionou perfeitamente! Muito obrigado!