Comment envoyer un e-mail à plusieurs destinataires d'une liste depuis Excel via Outlook ?
Si vous avez plusieurs adresses e-mail dans une colonne de votre feuille de calcul et que vous souhaitez envoyer un e-mail à cette liste de destinataires directement depuis Excel sans ouvrir Outlook, cet article expliquera comment envoyer un e-mail à plusieurs destinataires simultanément depuis Excel.
Envoyer un e-mail à plusieurs destinataires depuis Excel avec un code VBA
Envoyer un e-mail à plusieurs destinataires depuis Excel avec un code VBA
Vous pouvez utiliser un code VBA pour envoyer un message à plusieurs destinataires à la fois. Suivez les étapes ci-dessous :
1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Envoyer un e-mail à plusieurs destinataires
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la liste des adresses, voir capture d'écran :
4. Cliquez ensuite sur OK, et une fenêtre de message Outlook s'affichera. Vous verrez que toutes les adresses e-mail sélectionnées ont été ajoutées dans le champ À. Vous pouvez ensuite entrer l'objet et rédiger votre message, voir capture d'écran :
5. Après avoir terminé le message, cliquez sur le bouton Envoyer, et ce message sera envoyé aux destinataires de votre liste de feuilles de calcul.
Envoyer des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes : Avec la fonctionnalité Envoyer des E-mails de Kutools pour Excel, vous pouvez rapidement envoyer des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes depuis Excel via Outlook selon vos besoins. En même temps, vous pouvez mettre en copie (CC) ou en copie cachée (CCI) ces messages à une personne spécifique. Cliquez pour télécharger Kutools pour Excel !
|
Envoyer un e-mail à plusieurs destinataires avec le classeur actuel en pièce jointe en utilisant un code VBA
Si vous devez envoyer un message à plusieurs destinataires avec le classeur actuel en pièce jointe, vous pouvez appliquer le code VBA suivant.
1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.
2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Envoyer un e-mail à plusieurs destinataires avec le classeur actuel en pièce jointe
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. Après avoir collé le code, appuyez sur la touche F5 pour exécuter ce code. Une boîte de dialogue apparaîtra pour vous rappeler de sélectionner les adresses auxquelles vous souhaitez envoyer le message, voir capture d'écran :
4. Cliquez ensuite sur le OK, et une fenêtre de message Outlook s'affichera. Toutes les adresses e-mail auront été ajoutées dans le champ À, et votre classeur actuel aura également été inséré comme pièce jointe. Vous pouvez ensuite entrer l'objet et rédiger votre message, voir capture d'écran :
5. Cliquez ensuite sur le bouton Envoyer pour envoyer ce message à la liste de destinataires avec le classeur actuel en pièce jointe.
Article connexe :
Comment envoyer des e-mails personnalisés en masse à une liste depuis Excel via Outlook ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels