Comment envoyer rapidement un e-mail déclenché par une date figurant dans une cellule Excel ?
Avez-vous déjà essayé d’envoyer un e-mail déclenché par une date figurant dans une cellule Excel ? Par exemple, vous disposez d’une liste de dates en colonne A et souhaitez envoyer automatiquement un message avec un objet, un corps personnalisé et un destinataire principal — en ajoutant éventuellement des destinataires en copie ou en copie cachée. Comment procéder ?
Envoyer un e-mail en fonction d’une date à l’aide de VBA
Envoyer un e-mail en fonction d’une date à l’aide de VBA
Pour envoyer un e-mail basé sur une date dans Excel, vous devez obligatoirement utiliser une macro.
1. Activez la feuille contenant les données et la date utilisées, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code ci-dessous dans le script vierge.
Sub email()
'UpdatebyExtendoffice20170831
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
Dim xMail_Object, xMail_Single As Object
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xRgEach In xRg
If xRgEach.Value = Date Then
xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
If xEmail_Send_To = "" Then Exit Sub
xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
Set xMail_Object = CreateObject("Outlook.Application")
Set xMail_Single = xMail_Object.CreateItem(0)
With xMail_Single
.Subject = xEmail_Subject
.To = xEmail_Send_To
.cc = xEmail_Cc
.BCC = xEmail_Bcc
.Body = xEmail_Body
.Send
End With
End If
Next
End Sub3. Cliquez sur le bouton Exécuter ou appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue s’ouvre alors pour vous demander de sélectionner une plage de dates. Voir la capture d’écran :
4. Cliquez sur OK, puis renseignez successivement l’objet de l’e-mail, l’adresse e-mail de l’expéditeur, celle du destinataire, ainsi que les champs CC, CCI et le corps du message. Voir la capture d’écran :
 |  |  | |  |
 | ||||
 |  |  | |  |
5. Cliquez sur OK > OK jusqu’à « Dernière cellule », puis l’e-mail est envoyé.
Remarque : l’adresse e-mail de l’expéditeur doit correspondre à celle configurée dans votre Outlook.
Créez facilement Créer une liste de diffusion et envoyez des e-mails dans Excel |
Grâce à Kutools pour Excel, les fonctionnalités Créer une liste de diffusion et Envoyer des e-mails vous permettent de créer rapidement une liste d’e-mails et d’envoyer des messages personnalisés directement depuis Excel. Indiquez simplement les destinataires, l’objet et les pièces jointes, personnalisez votre message, puis choisissez d’envoyer via Outlook ou un autre serveur SMTP pour simplifier vos campagnes e-mail. |
|
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant |
Meilleurs outils de productivité Office
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.
- 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