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 une cellule Excel ? Par exemple, voici une liste de dates dans la colonne A, et vous souhaitez envoyer un e-mail avec l'objet, le corps du message à un destinataire (vous pouvez également mettre en copie et en copie cachée d'autres personnes). Comment pouvez-vous gérer cela ?

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

1. Activez la feuille contenant les données et la date que vous utilisez, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis collez le code ci-dessous dans le script vide.

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 Exécuter le bouton ou appuyez sur F5 pour exécuter le code ; une boîte de dialogue s'affiche pour vous rappeler de sélectionner une liste de dates. Voir capture d'écran :

4. Cliquez sur OK, puis 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 capture d'écran :

5. Cliquez OK > OK jusqu'à la dernière cellule, 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.