Vai al contenuto principale

Come inviare e-mail con il formato di testo grassetto / dimensione / colore / sottolineato in Excel?

Il formato del corpo HTML può arricchire l'email e renderla facile da leggere. Questo articolo parla dell'invio di un'e-mail con il corpo dell'e-mail in formato HTML in Excel aggiungendo grassetto, sottolineato, dimensioni e colore del formato specificati.

Invia e-mail con il formato di testo grassetto / dimensione / colore / sottolineato con codice VBA specificato


Invia e-mail con il formato di testo grassetto / dimensione / colore / sottolineato con codice VBA specificato

Si prega di applicare sotto il codice VBA per inviare un'e-mail con un formato di corpo HTML specifico in Excel.

1. premi il altro + F11 tasti 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 codice.

Codice VBA: invia e-mail con formato di testo grassetto / dimensione / colore / sottolineato in Excel

Sub SharePerformance1()
'Update by ExtendOffice 2018/3//5
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xOutMsg As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xOutMsg = "<b>This text is bold</b><br/><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""><br />" & _
               "<u>New line with underline</u><br /><p style='font-family:calibri;font-size:25'>Font size</p>"
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Html format email"
        .HTMLBody = xOutMsg
        .Display
    End With
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Note:

1) Sostituire il file .Oggetto in linea con il tuo.
2) Immettere l'indirizzo e-mail del destinatario nel file .Per linea.
3) nel xOutMsg line:
3.1) ... può rendere il testo in grassetto;
3.2) ... è il colore del testo
3.3) Se vuoi riavviare una nuova riga, aggiungi prima del testo della nuova riga;
3.4) Sottolinea il tuo testo con ...;
3.5) E cambia la dimensione del testo di ....

3. premi il F5 chiave per eseguire il codice. Quindi si apre l'email con il corpo del formato HTML specificato. Fare clic su Invia pulsante per inviarlo.


Invia facilmente e-mail tramite Outlook in base ai campi della mailing list creata in Excel:

Le Inviare emails utilità di Kutools for Excel aiuta gli utenti a inviare e-mail tramite Outlook in base alla mailing list creata in Excel.
Scaricalo e provalo ora! (Percorso gratuito di 30 giorni)


Articoli correlati:

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

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...

Descrizione


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!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
đây là cài đặt cố định cho kiểu chữ rồi, còn mình là biến động cơ Dim Noidungmail As String
....Noidungmail = Sheets("Email_List").Cells(RowNum, 5).Value
...HTMLBody =  Noidungmail & .HTMLBody
mình muốn định dạng cho noidungmail có font chữ, màu sắc, size chữ thì viết lệnh kiểu gì ạ
This comment was minimized by the moderator on the site
It's really helpful code
I need to change text format from right to left In the xOutMsg line
help please .
This comment was minimized by the moderator on the site
It's really helpful code
I need to change text format from right to left In the xOutMsg line help please ..
This comment was minimized by the moderator on the site
What is the syntax for converting the text to a hyperlink in the message body?
This comment was minimized by the moderator on the site
Thank you very much!
Work fine in MS Office Pro 2019
This comment was minimized by the moderator on the site
Hey, just wanted to let you know that it doesn't work in Excel 2016.
This comment was minimized by the moderator on the site
works for me in 2016?
This comment was minimized by the moderator on the site
No, it does not work for you in 2016 and further versions. <b></b> does nothing.
This comment was minimized by the moderator on the site
Ensure you have given .HTMLBody instead of .body
This comment was minimized by the moderator on the site
It's really helpful code I need to change <span style="letter-spacing: 0.2px; color: inherit; font-family: inherit; font-style: inherit; font-variant-ligatures: inherit; font-variant-caps: inherit; font-weight: inherit;">In the xOutMsg line </span>
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations