Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment envoyer un courriel avec un corps de courriel HTML dans Excel?

Si vous souhaitez envoyer un e-mail avec le contenu du corps au format HTML dans Excel, une méthode de cet article peut vous aider.

Envoyer un e-mail avec le corps de l'e-mail HTML avec le code VBA


Envoyez facilement des e-mails via Outlook en fonction de la liste de diffusion créée:

Le bouton Envoyer des emails L'utilitaire de Kutools pour Excel aide les utilisateurs à envoyer des e-mails via Outlook en fonction de la liste de diffusion créée dans Excel. Voir la capture d'écran:

Kutools for Excel comprend plus de 300 outils maniables Excel. Gratuit pour essayer sans limitation dans les jours 60. Téléchargez l'essai gratuit maintenant


Envoyer un e-mail avec le corps de l'e-mail HTML avec le code VBA


Veuillez faire comme suit pour envoyer un e-mail avec le contenu du corps au format HTML dans Excel.

1. appuie sur le autre + F11 simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Copiez ensuite le code VBA dans la fenêtre Module.

Code VBA: Envoyer un e-mail avec le corps de l'e-mail HTML dans 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

Remarques:

1) Remplacer le .Assujettir ligne avec votre propre.

2) Dans le .HTMLBody en ligne:

2.1) <span style = "" color: #80BFFF ""> ... </ span style = "" couleur: #80BFFF ""> est le format de couleur du texte;

2.2) <b> ... </ b> peut rendre votre texte en gras

2.3) Si vous voulez commencer une nouvelle ligne, veuillez joindre le nouveau texte <br> ... </ br>;

2.4) Soulignez votre texte avec <u> ... </ u>;

2.5) Et changez la taille de votre texte en <p style = 'font-famille: calibri; font-size: 25'> ... </ p>.

3. Cliquez Outils > Les références, vérifier la Bibliothèque d'objets Microsoft Outlook boîte dans la Références - VAProject boîte de dialogue, puis cliquez sur le OK bouton. Voir la capture d'écran:

4. appuie sur le F5 clé pour exécuter le code. Dans le popping up Kutools for Excel boîte de dialogue, sélectionnez les adresses e-mail des destinataires, puis cliquez sur le OK .

Ensuite, le courrier électronique avec les champs spécifiés et le corps HTML est créé. S'il vous plaît cliquer sur le Envoyer bouton pour l'envoyer.


Articles Liés:



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
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 · 7 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