Hoe snel e-mail verzenden op basis van datum in Excel-cel?
Heeft u ooit geprobeerd een e-mail te verzenden op basis van de datum in de Excel-cel? Hier is bijvoorbeeld een lijst met datums in kolom A, en dan wil je een e-mail sturen met het onderwerp, de berichttekst naar een ontvanger (ook CC en BCC naar anderen), hoe kun je daarmee omgaan?
Stuur e-mail op basis van datum met VBA
Stuur e-mail op basis van datum met VBA
Om e-mail te verzenden op basis van de datum in Excel, kunt u alleen een macrocode toepassen.
1. Schakel het blad in met de gegevens en de datum die u gebruikt, en druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Moduleen plak onderstaande code in het lege script.
VBA: verzenden op 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. klikken lopen knop of druk op F5 toets om de code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren een lijst met datums te selecteren. Zie screenshot:
4. Klik op OK en ga verder met het specificeren van het onderwerp van de e-mail, het e-mailadres van de afzender, het e-mailadres van de ontvanger, de CC, BCC en de berichttekst. Zie screenshot:
5. klikken OK > OK tot de laatste, en dan is de e-mail verzonden.
Opmerking: het e-mailadres van de afzender moet het standaardaccount in uw Outlook zijn.
Maak een mailinglijst en stuur e-mails |
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!