Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe e-mail snel 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 vervolgens wilt u een e-mail verzenden met het onderwerp en de berichttekst naar een ontvanger (ook CC en BCC naar anderen), hoe gaat u hiermee om?

E-mail verzenden op basis van datum met VBA

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Leesindeling (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik ...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde ... Voorkom dubbele cellen; Bereiken vergelijken ...
  • Selecteer Dubbele of Unieke rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkmappen; Willekeurig selecteren ...
  • Kopieer exact meerdere cellen zonder de formuleverwijzing te wijzigen; Automatisch verwijzingen maken naar meerdere bladen; Kogels invoegen, selectievakjes en meer ...
  • Favoriete en snel formules, reeksen, grafieken en afbeeldingen invoegen; Versleutel cellen met wachtwoord; Maak een mailinglijst en verzend e-mails ...
  • Tekst extraheren, tekst toevoegen, verwijderen op positie, spatie verwijderen; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen ...
  • Super Filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd Sorteren op maand / week / dag, frequentie en meer; Speciaal filter op vet, cursief ...
  • Werkboeken en werkbladen combineren; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Convert xls, xlsx en PDF ...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.

E-mail verzenden 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 gegevens en datum die u gebruikt en druk op Alt + F11 toetsen om de Microsoft Visual Basic voor toepassingen venster.

2. klikken bijvoegsel > moduleen plak onderstaande code in het lege script.

VBA: verstuur 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 datum te selecteren. Zie screenshot:
doc verzend op datum 1

4. Klik op OK en ga verder met 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:

doc verzend op datum 2 pijl naar rechts doc verzend op datum 3 pijl naar rechts doc verzend op datum 4
doc pijl naar beneden
doc verzend op datum 7 schiet pijl naar links doc verzend op datum 6 schiet pijl naar links doc verzend op datum 5

5. klikken OK > OK tot de laatste, en dan is de e-mail verzonden.
doc verzend op datum 8

Let op: het e-mailadres van de afzender moet het standaardaccount in uw Outlook zijn.


Maak een mailinglijst en verzend e-mails

doc stuur e-mail

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905
  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Edward Snyder · 10 months ago
    This is close to what I need but I am stuck with two problems. 1st I need to run this across my entire workbook that gets new worksheets added daily. 2nd I need it to include the worksheet name in the email so I will know which sheet is due. I create new tickets (worksheets) with a field that is a future date, when that day arrives I need an email. Thank you for your help.
  • To post as a guest, your comment is unpublished.
    Stephen Davis · 1 years ago
    How do I get VBA in Excel to generate an email when a cell changes color? I am able to use formula to have cells' font change, based on the computer clock, when a date is within a range before expiry. I currently have a spreadsheet with 25 employee's names and the dates of expiry for their driver's license, work permits, entry/exit visa dates, and annual start date. Some dates are 30 days, some are 60 days. Whenever a date enters the 30 (or 60) day range before expiry, the value in the cell changes from normal black to bold red font. I want to be able to have an email sent to me warning that the person in A1...A2...A3, etc. is about to have a work document expire. What is the script I need to run to accomplish this?