Comment envoyer un e-mail à des adresses e-mail spécifiées dans des cellules dans Excel?

Supposons que vous ayez une liste d'adresses e-mail et que vous souhaitiez maintenant envoyer un message électronique à ces adresses e-mail en masse directement dans Excel. Comment y parvenir? Cet article vous montrera les méthodes d'envoi d'e-mails à plusieurs adresses e-mail spécifiées dans les cellules d'Excel.

Envoyer un e-mail aux adresses e-mail spécifiées dans les cellules dans Excel avec VBA
Envoyez facilement des e-mails aux adresses e-mail spécifiées dans les cellules avec Kutools for Excel

Envoyer un e-mail aux adresses e-mail spécifiées dans les cellules dans Excel avec VBA

Le code VBA suivant peut vous aider à envoyer des e-mails aux adresses e-mail spécifiées dans Excel. Veuillez faire comme suit.

1. Dans la feuille de calcul contient les adresses e-mail auxquelles vous devez envoyer des e-mails, appuyez sur le bouton autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, veuillez cliquer Outils > Références comme ci-dessous la capture d'écran montrée.

3. dans le Références - VBAProject boîte de dialogue, veuillez trouver et vérifier la Bibliothèque d'objets Microsoft Outlook , puis cliquez sur le OK .

4. Puis clique insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA: envoyer un e-mail aux adresses e-mail spécifiées dans les cellules dans 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

Notes: Veuillez indiquer l'objet et le corps de votre e-mail dans les deux .Subject = "test" et .Body = "Cher" _ & vbNewLine & vbNewLine & _ "Ceci est un email de test" & _ "envoi dans Excel" lignes dans le code.

5. appuie sur le F5 clé pour exécuter le code. Dans l'ouverture Kutools pour Excel boîte de dialogue, veuillez sélectionner la plage contenant les adresses e-mail auxquelles vous enverrez des e-mails, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:

Ensuite, les e-mails basés sur les adresses e-mail sélectionnées sont créés comme illustré ci-dessous. Veuillez cliquer sur le Envoyez boutons pour envoyer ces e-mails.

Notes:

1. S'il existe trois adresses e-mail séparément dans les cellules sélectionnées, trois e-mails seront créés.

2. Le code VBA ne fonctionne que lorsque vous utilisez Outlook comme programme de messagerie.

Envoyer un e-mail aux adresses e-mail spécifiées dans les cellules avec Kutools for Excel

Cette section vous recommandera le Envoyer des emails utilité de Kutools pour Excel. Avec cet utilitaire, vous pouvez facilement envoyer des e-mails à des adresses e-mail spécifiées dans des cellules dans Excel. Veuillez faire comme suit.

Avant d'appliquer Kutools pour Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Sélectionnez les adresses e-mail avec la cellule d'en-tête dans votre feuille de calcul, puis cliquez sur Kutools Plus > Envoyer des emails.

2. Dans le pop-up Envoyer des emails boîte de dialogue, veuillez effectuer les configurations suivantes:

2.1) Sélectionnez l'en-tête de la liste d'adresses e-mail dans le À la liste déroulante;

2.2) Saisissez l'objet de l'e-mail dans le Titre boîte;

2.3) Composer le corps de votre e-mail;

2.4) Vérifiez le Envoyer des e-mails via Outlook boîte;

2.5) Cliquez sur le Envoyez bouton. Voir la capture d'écran:

3. Puis un Kutools pour Excel La boîte de dialogue apparaît pour vous dire combien de courriels ont été envoyés. Veuillez cliquer sur le OK et fermez le Envoyer des emails boite de dialogue. Voir la capture d'écran:

Notes:

1. Vous pouvez accéder à Outlook Éléments envoyés dossier pour vérifier l'envoi des e-mails.

2. Vous pouvez également utiliser un autre serveur en cliquant sur Paramètres du serveur sortant pour définir votre propre mode d'envoi.

Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.

Démo: envoyer un e-mail aux adresses e-mail spécifiées dans les cellules avec Kutools for Excel

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat...

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!