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
...
