Note: The other languages of the website are Google-translated. Back to English

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:
doc verzonden op datum 1

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:

doc verzonden op datum 2 geschoten pijl naar rechts doc verzonden op datum 3 geschoten pijl naar rechts doc verzonden op datum 4
        doc pijl naar beneden
doc verzonden op datum 7 geschoten pijl naar links doc verzonden op datum 6 geschoten pijl naar links doc verzonden op datum 5

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

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


Maak een mailinglijst en stuur e-mails

doc e-mail verzenden

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

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 elke dag honderden muisklikken!
officetab onderkant
Comments (11)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hoe krijg ik VBA in Excel om een ​​e-mail te genereren wanneer een cel van kleur verandert? Ik kan een formule gebruiken om het lettertype van cellen te veranderen, op basis van de computerklok, wanneer een datum binnen een bereik valt vóór de vervaldatum. Ik heb momenteel een spreadsheet met de namen van 25 werknemers en de vervaldatums van hun rijbewijs, werkvergunningen, in- en uitreisdatums van visa en de jaarlijkse startdatum. Sommige data zijn 30 dagen, sommige zijn 60 dagen. Telkens wanneer een datum binnen het bereik van 30 (of 60) dagen valt vóór de vervaldatum, verandert de waarde in de cel van normaal zwart in vet rood lettertype. Ik wil een e-mail kunnen ontvangen met de waarschuwing dat de persoon in A1...A2...A3, enz. op het punt staat een werkdocument te laten verlopen. Wat is het script dat ik moet uitvoeren om dit te bereiken?
Deze opmerking is gemaakt door de moderator op de site
Deze opmerking is gemaakt door de moderator op de site
Dit komt in de buurt van wat ik nodig heb, maar ik zit met twee problemen. Ten eerste moet ik dit in mijn hele werkmap uitvoeren, waaraan dagelijks nieuwe werkbladen worden toegevoegd. 1e Ik heb het nodig om de naam van het werkblad in de e-mail op te nemen, zodat ik weet welk blad moet worden ingediend. Ik maak nieuwe tickets (werkbladen) met een veld dat een toekomstige datum is, wanneer die dag aanbreekt, heb ik een e-mail nodig. Dank u voor uw hulp.
Deze opmerking is gemaakt door de moderator op de site
Felicidades por el materiaal; pero no me funciona. Al parecer el Rango no se llena, door ende queda vacío y sale de la rutina.

Alguna correctie ?
Deze opmerking is gemaakt door de moderator op de site
holagracias por tu ayuda...tengo una consulta.....en la formula Set xRgDate = Application.InputBox("Selecteer de vervaldatum kolom:", "KuTools For Excel", , , , , , 8), el 8 wat belangrijk?
Deze opmerking is gemaakt door de moderator op de site
De vakken worden niet automatisch gevuld nadat ik op OK heb gedrukt. Waar wijzig ik het onderwerp, het e-mailadres en de hoofdtekst van de e-mail in de code?
Deze opmerking is gemaakt door de moderator op de site
Bonjour j'ai copié les codes, à la validation il me demande bien les cellules concernées, mais lorsque que je valide, il ne me voorstel pas la suite des fenêtres, sujets, adressen etc
Deze opmerking is gemaakt door de moderator op de site
Hallo, boutry, sorry dat ik antwoord met Engels omdat ik geen Frans ken. Mag ik uw datum-tijdnotatie weten? Ik denk dat de code misschien alleen werkt voor datetime in het Engelse datumformaat.
Deze opmerking is gemaakt door de moderator op de site
Merhaba, bir excel dosyasında hatırlatıcı olarak bu konuyla ilgili VSB nin nasıl yapıldığı ile ilgili bilgiye ihtiyacım var. rneğin boş bir hücreye bilgi girildiğinde bana mail at ya da 3 hafta sıklıkla hücreye bilgi girilip girilmediğiyle alakalı bana bilgi ver.

Hertürlü bilgi ve kaynağa açığım. imdiden herkese teşekkür ederim..
Deze opmerking is gemaakt door de moderator op de site
Hallo, Mehmet, hier is een tutorial Hoe e-mail verzenden als een bepaalde cel in Excel is gewijzigd? dat praten over het verzenden van een e-mail met het Excel-bestand als bijlage als de cellen in het specifieke bereik zijn gewijzigd, wat u kan helpen.
Deze opmerking is gemaakt door de moderator op de site
ok teşekkür ederim..
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties