Comment envoyer un e-mail à plusieurs destinataires dans une liste depuis Excel via Outlook?
Si vous avez plusieurs adresses e-mail dans une colonne de feuille de calcul et que vous souhaitez maintenant envoyer un e-mail à cette liste de destinataires à partir d'Excel directement sans ouvrir Outlook. Cet article, je vais parler de la façon d'envoyer des e-mails à plusieurs destinataires à partir d'Excel en même temps.
Envoyer un e-mail à plusieurs destinataires depuis Excel avec le code VBA
Envoyer un e-mail à plusieurs destinataires depuis Excel avec le code VBA
Vous pouvez utiliser un code VBA pour envoyer un message à plusieurs destinataires à la fois, procédez comme suit:
1. Maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du 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. Et puis appuyez sur F5 clé pour exécuter ce code, une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la liste d'adresses, voir capture d'écran:
4. Puis clique OKet un Outlook Message s'affiche, vous pouvez voir que toutes les adresses e-mail sélectionnées ont été ajoutées dans le À champ, puis vous pouvez entrer le sujet et composer votre message, voir capture d'écran:
5. Après avoir terminé le message, veuillez cliquer sur Envoyer et ce message sera envoyé à ces destinataires dans votre liste de feuilles de calcul.
Envoyer un e-mail à plusieurs destinataires avec le classeur actuel en tant que pièce jointe à l'aide du 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 le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du 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 F5 clé pour exécuter ce code, et une boîte de dialogue s'affiche pour vous rappeler de sélectionner les adresses auxquelles vous souhaitez envoyer un message, voir capture d'écran:
4. Puis clique OK bouton et un Outlook Message s'affiche, toutes les adresses e-mail ont été ajoutées dans le À champ, et votre classeur actuel a également été inséré en tant que pièce jointe, puis vous pouvez entrer le sujet et rédiger votre message, voir capture d'écran:
5. Puis clique Envoyer pour envoyer ce message à la liste des destinataires avec le classeur actuel en pièce jointe.
|
Envoyez des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes:
Avec Kutools for Excel's Envoyer des emails fonctionnalité, vous pouvez rapidement envoyer des e-mails personnalisés à plusieurs destinataires avec différentes pièces jointes d'Excel via Outlook selon vos besoins. Dans le même temps, vous pouvez également CC ou Cci les messages à une personne spécifique. Cliquez pour télécharger Kutools for Excel!
|
Article connexe:
Comment envoyer des e-mails de masse personnalisés à une liste depuis Excel via Outlook?
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!
