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

Hoe stuur ik een e-mail op een bepaald tijdstip van een dag in Excel?

In sommige gevallen moet u het verzenden van een e-mail op een bepaald tijdstip tijdens uw werk uitstellen. Weet jij hoe je dit kunt bereiken? Dit artikel laat je een methode zien om een ​​e-mail op een specifiek tijdstip van een dag in Excel te verzenden.

Stuur een e-mail op een bepaald tijdstip van een dag met VBA-code


Stuur een e-mail op een bepaald tijdstip van een dag met VBA-code


De volgende VBA-codes kunnen u helpen bij het verzenden van een e-mail op het specifieke tijdstip van een dag in Excel. Ga als volgt te werk.

1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het modulevenster.

VBA-code 1: stuur een e-mail op een bepaald tijdstip van een dag in Excel

Sub SendEmail()
'Updated by Extendoffice 2018/3/5
Set olApp = CreateObject("Outlook.application")
Set objMail = olApp.CreateItem(olMailItem)
With objMail
 .Display
 .To = "Email address"
 .Subject = "Send email"
 'HTML for fun
 '.BodyFormat = olFormatHTML
 .HTMLBody = "<HTML><H2>Email Body</BODY></HTML>"
 '.Send
 
End With
End Sub

3. Dubbelklik op ThisWorkbook in het linkerdeelvenster om het venster ThisWorkbook (Code) te openen. En kopieer vervolgens onder VBA-code 2 naar het venster. Zie screenshot:

VBA-code 2: stuur een e-mail op een bepaald tijdstip van een dag in Excel

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
    Application.OnTime TimeValue("11:00:00"), "SendEmail"
End Sub

Opmerking:: Specificeer in de code 2 de verzendtijd zoals u nodig heeft.

4. druk de anders + Q toetsen om de Microsoft Visual Basic voor toepassingen venster.

5. klikken Dien in > Opslaan als > Blader.

6. In de Opslaan als dialoogvenster, kies een map om de werkmap op te slaan, noem deze zoals u nodig hebt, selecteer Excel-werkmap met ingeschakelde macro's formaat van de Opslaan als type vervolgkeuzelijst en klik ten slotte op het Bespaar knop. Zie screenshot:

Vanaf nu, zodra de specifieke tijd arriveert, wordt de bepaalde e-mail automatisch weergegeven. Klik op het Verstuur knop om deze e-mail te verzenden.

Gerelateerde artikelen:


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 (1)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Ik heb een lijst met e-mailadressen in Excel waarnaar ik e-mails moet sturen Het onderwerp en de tekst bevinden zich in cellen naast het e-mailadres en ik heb het onderstaande script, maar ik moet 100 e-mails per uur verzenden hoe ik kan en wat de code is het gebruik ervoor, gelieve uw steun!



Sub SendEm()
Dim i As Integer, Mail_Object, Email_Subject, o As Variant, Ir As Long
lr = Cellen(Rijen.Aantal, "A").Einde(xlOmhoog).Rij
Stel Mail_Object = CreateObject ("Outlook.Application") in
Voor i = 2 Naar lr
Met Mail_Object.CreateItem(o)
.Onderwerp = Bereik ("B" & i). Waarde
.To = Bereik ("A" & i). Waarde

Lichaam = Bereik ("C" & i). Waarde
.bijlagen.Toevoegen (Sheets("Blad1").Bereik("H" & i).Text)
.bijlagen.Toevoegen (Sheets("Blad1").Bereik("I" & i).Text)
.bijlagen.Toevoegen (Sheets("Blad1").Bereik("J" & i).Text)
.bijlagen.Toevoegen (Sheets("Blad1").Bereik("K" & i).Text)
.Versturen

'.display 'display uitschakelen en verzenden inschakelen om automatisch te verzenden
Eindigt met
Volgende i
MsgBox "E-mail succesvol verzonden", 64
Application.DisplayAlerts = False
Stel Mail_Object = Niets in
End Sub
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties