Estou me referindo à resposta fornecida neste post Como posso usar o Outlook para enviar email para vários destinatários no Excel VBA.
Estou usando o Excel / Outlook 2007. Copiei todo o bloco de código e adicionei uma assinatura no final da mensagem de email. A saída no email está ok, exceto a assinatura. Tentei mudar .htmlbody para .body no vba, mas isso resulta ainda pior. Alguém pode ajudar?
Obrigado.
É assim que a assinatura se parece.
A saída quando executo a macro (com .htmlbody).
A saída quando executo a macro (com .body).
Meu código:
With OutMail
.Display
End With
Signature = OutMail.Body
With OutMail
.To = sTo
.CC = sCC
.BCC = ""
.Subject = Worksheets("MassEmail").Range("A2") & " WW" & Worksheets("MassEmail").Range("B1")
sHTML = "<HTML><BODY><FONT face=""Calibri, Arial"">"
sHTML = sHTML & "<p style=""font-size:11pt"">Hi,</p>"
sHTML = sHTML & "<p style=""font-size:11pt"">Here is the RMA list WW" & Worksheets("MassEmail").Range("B1") & ". Please review.</p>"
sHTML = sHTML & "<pre style=""font-size:11pt;font-family:Calibri,Arial""> Total: </pre>"
.HTMLBody = sHTML & Signature
.HTMLBody = .HTMLBody & "</FONT></BODY></HTML>"
End With
Respostas:
0 para resposta № 1você precisa definir o formato da mensagem como RichText ou HTMLFormat
algo como olFormatHTML ou olFormatRichText
então use MailItem.HTMLBody = "...."
há mais informações sobre Lenda do MVP do VBA Ron De Bruin"site de s
Código de exemplo para enviar email do Excel