KutoolsforOffice — Une solution unique, cinq outils puissants.Faire plus avec moins d'efforts.Soldes de mars : 20 % de réduction

Comment envoyer un e-mail aux destinataires dont les adresses figurent dans des cellules Excel ?

AuteurSiluvia Date de modification

Supposons que vous disposiez d’une liste d’adresses e-mail et que vous souhaitiez désormais envoyer un message électronique à ces adresses en masse directement depuis Excel. Comment procéder ? Cet article vous présente des méthodes permettant d’envoyer des e-mails à plusieurs adresses spécifiées dans des cellules sous Excel.

Envoyer un e-mail aux destinataires Adresse e-mail indiqués dans des cellules sous Excel à l’aide de VBA
Envoyez facilement un e-mail aux destinataires Adresse e-mail indiqués dans des cellules avec Kutools pour Excel

Envoyer un e-mail aux destinataires Adresse e-mail indiqués dans des cellules sous Excel à l’aide de VBA

Le code VBA suivant vous permet d’envoyer des e-mails aux adresses e-mail spécifiées dans Excel. Procédez comme suit.

1. Dans la feuille de calcul contenant les adresses e-mail auxquelles vous souhaitez envoyer des e-mails, appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications qui s’ouvre, cliquez sur Outils > Références, comme illustré ci-dessous.

cliquez sur Outils > Références

3. Dans la boîte de dialogue Références – VBAProject, recherchez et cochez l’option Microsoft Outlook Object Library, puis cliquez sur le bouton OK.

recherchez et cochez l'option Microsoft Outlook Object Library

4. Cliquez ensuite sur Insertion > Module. Copiez ensuite le code VBA ci-dessous et collez-le dans la fenêtre du module.

Code VBA : Envoyer un e-mail aux destinataires Adresse e-mail indiqués dans des cellules sous Excel

Sub SendEmailToAddressInCells()
    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
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Remarque : veuillez spécifier l’objet et le corps de votre message dans les lignes .Subject = «test» et .Body = «Cher(e) » _ & vbNewLine & vbNewLine & _ "Ceci est un e-mail test " & _ «envoyé depuis Excel» du code.

5. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools pour Excel qui s’ouvre, sélectionnez la plage contenant les adresses e-mail auxquelles vous souhaitez envoyer des messages, puis cliquez sur le bouton OK. Voir la capture d’écran :

code VBA pour sélectionner la plage contenant les adresses e-mail

Les e-mails basés sur les adresses e-mail sélectionnées sont alors créés, comme illustré ci-dessous. Cliquez sur les boutons Envoyer pour envoyer ces messages.

des e-mails sont créés à partir des adresses e-mail sélectionnées

Remarques:

1. Si trois Adresse e-mail distincts figurent dans les cellules sélectionnées, trois messages électroniques seront créés.
2. Le code VBA ne fonctionne que si vous utilisez Outlook comme client de messagerie.

Envoyer un e-mail aux destinataires Adresse e-mail indiqués dans des cellules avec Kutools pour Excel

Cette section vous recommande l’utilitaire Envoyer des e-mails de Kutools pour Excel. Grâce à cet outil, vous pouvez facilement envoyer des e-mails aux adresses e-mail spécifiées dans des cellules d’Excel. Voici la marche à suivre.

Kutools pour Excelpropose plus de 300 fonctionnalités avancées pour simplifier les tâches complexes, stimulant ainsi créativité et efficacité.Intégré aux capacités de l’IA, Kutools automatise les tâches avec précision, rendant la gestion des données parfaitement fluide.Informations détaillées sur Kutools pour Excel...         Essai gratuit...

1. Sélectionnez la colonne « Adresse e-mail » avec son en-tête dans votre feuille de calcul, puis cliquez sur KUTOOLS PLUS > Envoyer des e-mails.

cliquez sur la fonction Envoyer des e-mails de Kutools

2. Dans la boîte de dialogue Envoyer des e-mails qui s’affiche, effectuez les réglages suivants :

2,1) Sélectionnez l’en-tête de la liste des Adresse e-mail dans le champ ÀListe déroulante;
2,2) Saisissez l’objet dans la zone Objet;
2,3) Rédigez le corps de votre e-mail ;
2,4) Cochez la case Envoyer avec Outlook;
2,5) Cliquez sur le bouton Envoyer. Voir capture d’écran :

spécifiez les options dans la boîte de dialogue

3. Une boîte de dialogue Kutools pour Excel s’affiche alors pour vous indiquer combien d’e-mails ont été envoyés. Cliquez sur le bouton OK et fermez la boîte de dialogue Envoyer des e-mails. Voir capture d’écran :

cliquez sur le bouton Envoyer pour envoyer les e-mails

Remarques:

1. Vous pouvez consulter le dossier Éléments envoyésd’Outlook pour vérifier l’envoi des e-mails.
2. Vous pouvez également utiliser un autre serveur en cliquant sur Paramètres SMTPafin de définir le mode d’envoi selon vos propres paramètres.

Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire,cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.

Démo : Envoyer un e-mail aux destinataires Adresse e-mail indiqués dans des cellules avec Kutools pour Excel

 

Articles associés :

Meilleurs outils de productivité Office

🤖Kutools IA Aide: Révolutionnez Analyse des données grâce à :Exécution intelligente   |  Générez du code|  Créez formules personnalisées  |  Analysez des données et générez des graphiques|  Appelez Fonctions améliorées…
Fonctionnalités populaires:Rechercher, mettre en surbrillance ou Marquer les doublons   |  Supprimer les lignes vides   |  Combinez les colonnes ou cellules sans perdre de données   |   Arrondi sans utiliser de formule...
Super RECHERCHEV:RechercheValeurs avec critères multiples  |  RechercheValeurs avec valeurs multiples  |   RechercheValeurs dans plusieurs feuilles   |   Correspondance floue....
Liste déroulante avancée:Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple....
Gestionnaire de colonnes:Ajouter un nombre précis de colonnes|Déplacer des colonnes|Basculer la visibilité des colonnes masquées|Comparer des plages et des colonnes...
Fonctionnalités vedettes:Mise au point de la grille   |  Vue de conception   |Barre de formule améliorée   | Gestionnaire de classeurs et de feuilles   |  Bibliothèque de ressources(Texte automatique)|  Sélecteur de date   |  Consolider les feuilles de calcul  |  Chiffrer/Déchiffrer les cellules   | Envoyer des e-mails par liste   |  Super Filtre   |   Filtre spécial(Filtrer les cellules avec une police en gras/italique/barré...) ...
… et bien plus encore… et plus encore:(,)Supprimer des caractères spécifiques, ...)|   50+Typesde graphiques(, ...)|   40+ Formules pratiques(Calculer l'âge en fonction de la date de naissance, ...)|   19 Outils d’insertion(,Insérer une image depuis un chemin , ...)|   de conversion (Convertir en mots,Conversion de devises, ...)|Fusionner et scinder   (Fusion avancée des lignes,Diviser les cellules , ...)|, ...)   |
Utilisez Kutools dans la langue de votre choix – disponible en anglais, espagnol, allemand, français, chinois et 40+ autres langues !

Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile

  • Activez 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 vous fait économiser des centaines de clics de souris chaque jour !

Tous les compléments Kutools. Un seul installateur

Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.

ExcelWordOutlookTabsPowerPoint
  • Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
  • Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
  • Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
  • Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
  • Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels