Comment envoyer un e-mail avec un corps d'e-mail 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
Envoyer un e-mail avec le corps de l'e-mail HTML avec le code VBA
Veuillez procéder 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 ci-dessous 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 SubNotes:
3. Cliquez Outils > Bibliographie, 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 Kutools for Excel boîte de dialogue, sélectionnez les adresses e-mail des destinataires, puis cliquez sur le OK .
Ensuite, un e-mail avec des champs et un corps HTML spécifiés est créé. Veuillez cliquer sur le Envoyer bouton pour l'envoyer.
Envoyez facilement des e-mails via Outlook en fonction de la liste de diffusion créée:
La Envoyer des emails utilité de Kutools for Excel aide les utilisateurs à envoyer des e-mails via Outlook en fonction de la liste de diffusion créée dans Excel, comme illustré ci-dessous.
Téléchargez et essayez-le maintenant! (essai gratuit de 30 jours)
Articles Liés:
- Comment envoyer automatiquement un e-mail en fonction de la valeur de la cellule dans Excel?
- Comment insérer une signature dans un e-mail Outlook lors de l'envoi par vba dans Excel?
- Comment envoyer un e-mail avec le format de texte gras / taille / couleur / souligné dans Excel?
- Comment envoyer un e-mail sans Outlook dans Excel?
- Comment envoyer un graphique spécifique dans un e-mail avec vba dans Excel?
- Comment envoyer un e-mail à une heure précise de la journée dans Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
