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 Sub3. 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 SubOpmerking:: 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:
- Hoe automatisch e-mail verzenden op basis van celwaarde in Excel?
- Hoe een handtekening in Outlook-e-mail invoegen bij verzending via VBA in Excel?
- Hoe verzend ik e-mail met HTML-e-mail in Excel?
- Hoe e-mail verzenden met het opgegeven vet / grootte / kleur / onderstreepte tekstformaat in Excel?
- E-mail verzenden zonder Outlook in Excel?
- Hoe stuur ik een specifieke grafiek in een e-mail met VBA in Excel?
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.
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!
