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 Sub

3. 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.