Com enviar correu electrònic amb un cos de correu electrònic HTML a Excel?

Si voleu enviar un correu electrònic amb contingut corporal en format HTML a Excel, un mètode en aquest article us pot ajudar.

Envia un correu electrònic amb un cos de correu electrònic HTML amb codi VBA

Envieu correus electrònics fàcilment mitjançant Outlook basats en la llista de correu creada:

El Enviar correus electrònics La utilitat de Kutools for Excel ajuda als usuaris a enviar correu electrònic a través d'Outlook basant-se en la llista de correu creada a Excel. Veure captura de pantalla:

Kutools for Excel Inclou més eines 300 pràctiques d'Excel. Lliure de provar sense límit en 60 dies. Descarregueu la prova gratuïta ara

Eines de productivitat recomanades per a Excel / Office

Pestanya d'Office: Porteu l'edició amb pestanyes a Excel i a un altre programari d'Office, igual que Chrome, Firefox i Safari.Prova gratuïta il·limitada de 30-dia

Kutools for Excel: Les característiques poderoses de 300 fan que Excel sigui molt fàcil i augmenti la productivitat immediatament.Prova gratuïta il·limitada de 60-dia

Envia un correu electrònic amb un cos de correu electrònic HTML amb codi VBA

Increïble! Ús de fitxes eficients a Excel com Chrome, Firefox i Safari.

Feu el següent per enviar un correu electrònic amb contingut corporal en format HTML a Excel.

1. Premeu el botó Alt + F11 simultàniament per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls. A continuació, copieu el codi VBA per sota de la finestra del mòdul.

Codi VBA: envieu un correu electrònic amb un cos de correu electrònic HTML a 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

notes:

1) Reemplaça el .Assignatura línia amb la vostra.

2) al .HTMLBody línia:

2.1)  ...  és el format del color del text;

2.2)  ...  pot fer que el text sigui en negreta;

2.3) Si voleu iniciar una nova línia, incloeu el text de la nova línia amb ... ;

2.4) Subratlla el text amb  ... ;

2.5) I canvieu la mida del text per  ... .

3. clic instruments > referències, marqueu el Biblioteca d'objectes de Microsoft Outlook caixa a la Referències - VAProject quadre de diàleg i, a continuació, feu clic a la icona OK botó Mostra la captura de pantalla:

4. Premeu el botó F5 clau per executar el codi. En el popping up Kutools for Excel quadre de diàleg, seleccioneu les adreces electròniques dels destinataris i, a continuació, feu clic a la icona OK botó.

A continuació, es crea correu electrònic amb camps especificats i cos HTML. Feu clic al'enllaç enviar botó per enviar-lo.

Articles relacionats:

Eines de productivitat recomanades

Pestanya d'Office

Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

Combina cel·les / files / columnes sense perdre dades.
Combina i consolida diverses fulles i llibres.
Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Més... Prova gratuïta il·limitada de 60-dia Vegeu la llista de preus

Comment
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest ( Sign Up? )

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Luis · 5 months ago
i have my mail signature for default. however once i run the macro the message delete the mail signature from the new mail. Do you know how is possible mantein it ? thank you!!! Best Regards
- Reply
- Share

Accedeix al teu compte

Password Reset

Recordatori