Come inviare un'email con il corpo in formato HTML in Excel?
Se desideri inviare un'email con il contenuto del corpo in formato HTML in Excel, un metodo descritto in questo articolo può aiutarti.
Invia email con corpo HTML tramite codice VBA
Invia email con corpo HTML tramite codice VBA
Procedi come segue per inviare un'email con il contenuto del corpo in formato HTML in Excel.
1. Premi contemporaneamente Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Dopodiché, copia il seguente codice VBA nella finestra Modulo.
Codice VBA: Invia email con corpo HTML in 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 SubNote:
3. Clicca su Strumenti > Riferimenti, seleziona la casella Microsoft Outlook Object Library nella finestra di dialogo Riferimenti – VAProject, quindi clicca sul pulsante OK. Vedi screenshot:
4. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools per Excel che appare, seleziona gli indirizzi email dei destinatari e poi clicca sul pulsante OK.
Quindi verrà creata un'email con i campi specificati e il corpo in formato HTML. Clicca sul pulsante Invia per inviarla.
Invia facilmente email tramite Outlook basandoti su una mailing list creata:
La Invia Email funzione di Kutools per Excel aiuta gli utenti a inviare email tramite Outlook basandosi su una mailing list creata in Excel, come mostrato nello screenshot sottostante.
Scarica e prova subito! (30-giorni di prova gratuita)
Articoli correlati:
- Come inviare automaticamente un'email in base al valore di una cella in Excel?
- Come inserire una firma in un'email di Outlook quando si invia tramite vba in Excel?
- Come inviare un'email con un formato di testo specifico (grassetto/dimensione/colore/sottolineato) in Excel?
- Come inviare un'email senza Outlook in Excel?
- Come inviare un grafico specifico in un'email tramite vba in Excel?
- Come inviare un'email a un orario specifico della giornata in Excel?
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, invece che in nuove finestre.
- Aumenta la tua produttività del50% e riduce centinaia di clic del mouse ogni giorno!