Wie kann man schnell eine E-Mail basierend auf einem Datum in einer Excel-Zelle senden?

Haben Sie jemals versucht, eine E-Mail basierend auf einem Datum in einer Excel-Zelle zu senden? Zum Beispiel gibt es hier eine Liste von Daten in Spalte A, und dann möchten Sie eine E-Mail mit Betreff, Nachrichtentext an einen Empfänger senden (Sie können auch CC und BCC an andere senden). Wie können Sie das handhaben?

E-Mail basierend auf dem Datum mit VBA senden

E-Mail basierend auf dem Datum mit VBA senden

Um eine E-Mail basierend auf dem Datum in Excel zu senden, können Sie nur einen Makro-Code anwenden.

1. Aktivieren Sie das Arbeitsblatt, das die Daten und das Datum enthält, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das leere Skript ein.

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. Klicken Sie Ausführen oder drücken Sie die F5 Taste, um den Code auszuführen. Ein Dialogfenster erscheint, das Sie daran erinnert, eine Liste von Daten auszuwählen. Siehe Screenshot:

4. Klicken Sie auf OK und fahren Sie fort, um den E-Mail-Betreff, die Absender-E-Mail-Adresse, die Empfänger-E-Mail-Adresse, CC, BCC und den Nachrichtentext anzugeben. Siehe Screenshot:

5. Klicken Sie OK > OK bis zum letzten Schritt, und dann wurde die E-Mail gesendet.

Hinweis: Die Absender-E-Mail-Adresse muss das Standardkonto in Ihrem Outlook sein.