Wie kann ich schnell eine E-Mail basierend auf dem Datum in der Excel-Zelle senden?
Haben Sie jemals versucht, eine E-Mail basierend auf dem Datum in einer Excel-Zelle zu senden? Hier ist beispielsweise eine Liste der Daten in Spalte A, und dann möchten Sie eine E-Mail mit dem Betreff und dem Nachrichtentext an einen Empfänger senden (können auch CC und BCC an andere senden). Wie können Sie damit umgehen?
Senden Sie eine E-Mail basierend auf dem Datum mit VBA
Senden Sie eine E-Mail basierend auf dem Datum mit VBA
Um E-Mails basierend auf dem Datum in Excel zu senden, können Sie nur einen Makrocode anwenden.
1. Aktivieren Sie das Blatt mit den Daten und dem Datum, das Sie verwenden, und drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden Code in das leere Skript ein.
VBA: Senden nach Datum
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 Führen Sie Taste oder drücken F5 Mit der Taste zum Ausführen des Codes wird ein Dialogfeld angezeigt, in dem Sie daran erinnert werden, eine Datumsliste auszuwählen. Siehe Screenshot:
4. Klicken Sie auf OK und geben Sie den E-Mail-Betreff, die E-Mail-Adresse des Absenders, die E-Mail-Adresse des Empfängers, den CC, den BCC und den Nachrichtentext an. Siehe Screenshot:
5 Klicken OK > OK bis zum letzten, und dann wurde die E-Mail gesendet.
Hinweis: Die E-Mail-Adresse des Absenders muss das Standardkonto in Ihrem Outlook sein.
Mailingliste erstellen und E-Mails senden |
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!