Πώς να στείλετε ένα email σε συγκεκριμένη ώρα της ημέρας στο Excel;
Σε ορισμένες περιπτώσεις, ενδέχεται να χρειαστεί να καθυστερήσετε την αποστολή email σε μια συγκεκριμένη ώρα κατά τη διάρκεια της εργασίας σας. Ξέρετε πώς να το επιτύχετε; Αυτό το άρθρο θα σας δείξει μια μέθοδο αποστολής email στη συγκεκριμένη ώρα της ημέρας στο Excel.
Στείλτε ένα email σε συγκεκριμένη ώρα της ημέρας με κωδικό VBA
Στείλτε ένα email σε συγκεκριμένη ώρα της ημέρας με κωδικό VBA
Οι ακόλουθοι κωδικοί VBA μπορούν να σας βοηθήσουν να στείλετε ένα email τη συγκεκριμένη ώρα της ημέρας στο Excel. Κάντε τα εξής:
1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Module.
Κωδικός VBA 1: Στείλτε ένα email σε συγκεκριμένη ώρα της ημέρας στο 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. Κάντε διπλό κλικ στο ThisWorkbook στο αριστερό παράθυρο για να ανοίξετε το παράθυρο ThisWorkbook (Code). Και μετά αντιγράψτε κάτω από τον κωδικό VBA 2 στο παράθυρο. Δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA 2: Στείλτε ένα email σε συγκεκριμένη ώρα της ημέρας στο Excel
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/3/5
Application.OnTime TimeValue("11:00:00"), "SendEmail"
End SubΣημείωση: Στον κωδικό 2, προσδιορίστε τον χρόνο αποστολής όπως χρειάζεστε.
4. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
5. κλικ Αρχεία > Αποθήκευση ως > Αναζήτηση.
6. Στο Αποθήκευση ως πλαίσιο διαλόγου, παρακαλώ επιλέξτε ένα φάκελο για να αποθηκεύσετε το βιβλίο εργασίας, ονομάστε το όπως χρειάζεστε, επιλέξτε Βιβλίο εργασίας Excel με δυνατότητα μακροεντολής μορφή από το Αποθήκευση ως τύπου αναπτυσσόμενη λίστα και, τέλος, κάντε κλικ στο Αποθήκευση κουμπί. Δείτε το στιγμιότυπο οθόνης:
Από τώρα και στο εξής, μόλις φτάσει η συγκεκριμένη ώρα, το συγκεκριμένο email θα εμφανιστεί αυτόματα. Κάντε κλικ στο Αποστολή κουμπί για να στείλετε αυτό το email.
Σχετικά άρθρα:
- Πώς να στέλνετε αυτόματα email με βάση την τιμή κελιού στο Excel;
- Πώς να εισαγάγετε υπογραφή στο email του Outlook κατά την αποστολή μέσω vba στο Excel;
- Πώς να στείλετε email με σώμα email HTML στο Excel;
- Πώς να στείλετε email με καθορισμένη έντονη / μέγεθος / χρώμα / υπογράμμιση μορφή κειμένου στο Excel;
- Πώς να στείλετε email χωρίς το Outlook στο Excel;
- Πώς να στείλετε ένα συγκεκριμένο γράφημα σε ένα email με vba στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!