Comment envoyer rapidement un e-mail en fonction de la date dans une cellule Excel?
Avez-vous déjà essayé d'envoyer un e-mail en fonction de la date dans la cellule Excel? Par exemple, voici une liste de dates dans la colonne A, puis vous souhaitez envoyer un e-mail avec l'objet, le corps du message à un destinataire (peut également CC et BCC à d'autres), comment pouvez-vous le gérer?
Envoyer un e-mail en fonction de la date avec VBA
Envoyer un e-mail en fonction de la date avec VBA
Pour envoyer un e-mail en fonction de la date dans Excel, vous ne pouvez appliquer qu'un code de macro.
1. Activez la feuille contenant les données et la date que vous utilisez, puis appuyez sur Alt + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Moduleet collez le code ci-dessous dans le script vide.
VBA: Envoyer par date
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 Courir bouton ou appuyez sur F5 pour exécuter le code, une boîte de dialogue apparaît pour vous rappeler de sélectionner une liste de dates. Voir la capture d'écran:
4. Cliquez sur OK et continuez à spécifier l'objet de l'e-mail, l'adresse e-mail de l'expéditeur, l'adresse e-mail du destinataire, le CC, le Cci et le corps du message. Voir la capture d'écran:
 |
 |
 |
|
 |
 |
||||
 |
 |
 |
|
 |
5. Cliquez OK > OK jusqu'au dernier, puis l'e-mail a été envoyé.
Remarque: l'adresse e-mail de l'expéditeur doit être le compte par défaut dans votre Outlook.
Créer une liste de diffusion et envoyer des e-mails |
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!
