Rafael Ludovico

Funcionou perfeitamente! Muito obrigado!

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?