Excel Email Corpo Formatado

[Crafteribanez]

Bom dia.

 

Tem um código na Web do Macoratti , que vai atender a minha necessidade.

 

Link do Macoratti

Sub MandaEmail()
    
    Dim EnviarPara As String
    Dim Mensagem As String
 
    For i = 1 To 10
        EnviarPara = ThisWorkbook.Sheets(1).Cells(i, 1)
        If EnviarPara <> "" Then
            Mensagem = ThisWorkbook.Sheets(1).Cells(i, 3)
            Envia_Emails EnviarPara, Mensagem
        End If
    Next i
End Sub
Sub Envia_Emails(EnviarPara As String, Mensagem As String)
    Dim OutlookApp As Object
    Dim OutlookMail As Object
 
    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
 
    With OutlookMail
        .to = EnviarPara
        .CC = ""
        .BCC = ""
        .Subject = "Pedido enviado"
        .Body = Mensagem
        .Display ' para envia o email diretamente defina o código  .Send
    End With
 
    Set OutlookMail = Nothing
    Set OutlookApp = Nothing
End Sub

No ponto do código onde está  " .Body = Mensagem" ,  eu gostaria de incluir um texto pré-formatado que tenho no word.

O texto está formatado em alguns pontos com negrito e centralizado, bem como assinatura.

Tem como inserir neste ponto este, "acredito" que objeto ?

O texto será uma mensagem para fornecedores com instruções .

Grato.

 

[Basole]

Este site é um editor html on line: https://www.quackit.com/html/online-html-editor/ que permita que você prepare um email agradàvel formatado. Coloque o texto que deseja e click no botao [codigo fonte], copie o codigo html e defina a variavel Mensagem = "seu codigo html"

Exemplo:

 Mensagem = <h1>Isto &eacute; um <strong>Teste</strong></h1>

' Substitua o .Body por: 

.HTMLBody = Mensagem

 

[Crafteribanez]

Fui no site e fiz um teste.

Sem colocar aspas no código ele fica vermelho.

 

Colocando aspas no código ele lê literalmente.

 

adicionado 1 minuto depois

Talvez mudar o tipo da variável ?

adicionado 17 minutos depois

Fechou ! Tinha esquecido de modificar o .Body por .HtmlBody .

 

adicionado 18 minutos depois

Curti, só não achei o "Resolvido".