Come inviare e-mail con il corpo dell'e-mail HTML in Excel?
Se desideri inviare un'e-mail con il contenuto del corpo in formato HTML in Excel, un metodo in questo articolo può aiutarti.
Invia e-mail con corpo e-mail HTML con codice VBA
Invia e-mail con corpo e-mail HTML con codice VBA
Eseguire le seguenti operazioni per inviare un'e-mail con il contenuto del corpo in formato HTML in Excel.
1. premi il altro + F11 contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia sotto il codice VBA nella finestra del modulo.
Codice VBA: invia e-mail con il corpo dell'e-mail 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 Sub
Note:
3. Clic Strumenti > Riferimenti, controlla il Libreria di oggetti di Microsoft Outlook casella nella Riferimenti - VAProject finestra di dialogo, quindi fare clic su OK pulsante. Vedi screenshot:
4. premi il F5 chiave per eseguire il codice. Nel spuntare Kutools for Excel finestra di dialogo, selezionare gli indirizzi di posta elettronica dei destinatari, quindi fare clic su OK pulsante.
Quindi viene creata l'email con i campi specificati e il corpo HTML. Fare clic su Invia pulsante per inviarlo.
Invia facilmente e-mail tramite Outlook in base alla mailing list creata:
I Inviare emails utilità di Kutools for Excel aiuta gli utenti a inviare e-mail tramite Outlook in base alla mailing list creata in Excel come mostrato nell'immagine sottostante.
Scaricalo e provalo ora! (Percorso gratuito di 30 giorni)
Articoli correlati:
- Come inviare automaticamente e-mail in base al valore della cella in Excel?
- Come inserire la firma nell'e-mail di Outlook quando si invia tramite vba in Excel?
- Come inviare e-mail con il formato di testo grassetto / dimensione / colore / sottolineato in Excel?
- Come inviare e-mail senza Outlook in Excel?
- Come inviare un grafico specifico in un'e-mail con vba in Excel?
- Come inviare un'e-mail in un momento specifico della giornata in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!