Hoe verzendt u snel een e-mail op basis van een datum in een Excel-cel?
Hebt u ooit geprobeerd een e-mail te verzenden op basis van een datum in een Excel-cel? Stel: u hebt een lijst met datums in kolom A en wilt automatisch een e-mail sturen met een opgegeven onderwerp en berichttekst naar een ontvanger – inclusief de mogelijkheid om anderen in CC of BCC te plaatsen. Hoe pakt u dat aan?
E-mail verzenden op basis van datum met VBA
E-mail verzenden op basis van datum met VBA
Om een e-mail te verzenden op basis van een datum in Excel, hebt u helaas geen andere optie dan een macrocode te gebruiken.
1. Activeer het werkblad met de gegevens en datum die u wilt gebruiken en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de onderstaande code in het lege script.
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 Sub3. Klik op de knop Uitvoeren of druk op de toets F5 om de code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd een lijst met datums te selecteren. Zie de schermafbeelding:
4. Klik op OK en vul daarna het e-mailonderwerp, het e-mailadres van de afzender, het e-mailadres van de ontvanger, de CC, BCC en de berichttekst in. Zie de schermafbeelding:
 |  |  | |  |
 | ||||
 |  |  | |  |
5. Klik op OK > OK tot Laatste, waarna de e-mail wordt verzonden.
Opmerking: Het e-mailadres van de afzender moet overeenkomen met het standaardaccount in uw Outlook.
Verzend e-mails eenvoudig Mailinglijst maken en vanuit Excel |
Met Kutools voor Excel bouwt u razendsnel een e-maillijst op en verzendt u gepersonaliseerde e-mails direct vanuit Excel met de functies Mailinglijst maken en E-mails verzenden. Geef ontvangers, onderwerp en bijlagen op, pas uw bericht aan en kies of u via Outlook of een andere SMTP-server wilt verzenden—ideaal voor eenvoudige e-mailcampagnes! |
|
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen |
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins