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 > Les 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
importante: 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:
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:
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:
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
Articles Liés:
- Comment envoyer un e-mail en copiant et en collant une plage spécifiée dans le corps de l'e-mail dans Excel?
- Comment envoyer un e-mail avec plusieurs pièces jointes 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 si la date d'échéance a été respectée dans Excel?
- Comment envoyer automatiquement un e-mail en fonction de la valeur de la cellule dans 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.

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!

You are guest
or post as a guest, but your post won't be published automatically.
Be the first to comment.