Como enviar um e-mail com corpo de e-mail em HTML no Excel?
Se você deseja enviar um e-mail com conteúdo do corpo no formato HTML no Excel, um método neste artigo pode ajudá-lo.
Enviar e-mail com corpo de e-mail em HTML usando código VBA
Enviar e-mail com corpo de e-mail em HTML usando código VBA
Por favor, siga os passos abaixo para enviar um e-mail com conteúdo do corpo no formato HTML no Excel.
1. Pressione simultaneamente Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo na janela Módulo.
Código VBA: Enviar e-mail com corpo de e-mail em HTML no Excel
Sub SendEmailformattext()
'Update by Extendoffice.com
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.Display
.To = xRgVal
.Subject = "Test"
.HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style='font-family:calibri;font-size:25'>Font size</br></p></BODY></HTML>"
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub
Notas:
3. Clique em Ferramentas > Referências, marque a caixa Microsoft Outlook Object Library na caixa de diálogo Referências – VAProject e, em seguida, clique no botão OK. Veja a captura de tela:
4. Pressione a tecla F5 para executar o código. No Kutools para Excel que aparece, selecione os endereços de e-mail dos destinatários e clique no botão OK.
Então o e-mail com campos especificados e corpo em HTML será criado. Por favor, clique no botão Enviar para enviá-lo.
Envie facilmente e-mails pelo Outlook com base na lista de envio criada:
O Enviar Emails utilitário do Kutools for Excel ajuda os usuários a enviar e-mails pelo Outlook com base na lista de envio criada no Excel, conforme mostrado na captura de tela abaixo.
Baixe e experimente agora! (30-dia de teste grátis)
Artigos relacionados:
- Como enviar automaticamente um e-mail com base no valor da célula no Excel?
- Como inserir assinatura no e-mail do Outlook ao enviar por VBA no Excel?
- Como enviar um e-mail com formatação específica de texto em negrito/tamanho/cor/sublinhado no Excel?
- Como enviar um e-mail sem o Outlook no Excel?
- Como enviar um gráfico específico em um e-mail com VBA no Excel?
- Como enviar um e-mail em um horário específico do dia no Excel?
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!