none
ENVIO DE EMAIL COM HTMLBODY PELO EXCEL RRS feed

  • Pergunta

  • Prezados,

    Fiz uma macro no excel para que ele envie uma range/seleção automaticamente. Ocorre que quando ele monta o htmlbody, ele só coloca o range e não coloca mais nada, ou seja, ele não coloca o corpo do email. Quando digitei o corpo do email, ele não aceitou que eu digitasse chr(13), para avançar linha, por exemplo, ele só aceita comandos como </p> no html. Em em minha casa, ele funciona bem no notebook, mas no trabalho ele roda tirando o texto do corpo do email. Coloquei a referência Microsoft Html, mas não funcionou. Segue a parte do código abaixo:

    Grato por alguma ajuda.

    ...

    On Error Resume Next
        With OutMail
            .SentOnBehalfOfName = "cirecsa07"   'campo FROM
            .To = "xxx"   '"a" & Sheets(1).Cells(i, 1).Value
            .CC = ""
            .BCC = ""   '"cirecsa07;c071869"
            .Subject = "CONTRATOS CONSIGNADOS DA " & Sheets(1).Cells(i, 1).Value & " SEM REPASSE"
            .HTMLBody = "À" & "<br/>" & _
    "Fulano " & Sheets(1).Cells(i, 1).Value & "<br/>" & "<br/>" & _
     "Sr, " & "<p/>" & _
     "1. Identificamos que as mercadorias abaixo não foram enviadas " & "." & "<p/>" & _
     "      2. Solicitamos atuação tempestiva desta unidade para evitarmos atrasos ." & "<p/>" & _
     "Atenciosamente," & "<p/>" & _
     "Equipe" & "<p/>" & RangetoHTML(rng2)
            .Display        'Send
        End With
        On Error GoTo 0

    ...

    quarta-feira, 29 de janeiro de 2014 15:02

Respostas

Todas as Respostas