Πώς να στείλετε γρήγορα email με βάση την ημερομηνία στο κελί του Excel;
Έχετε προσπαθήσει ποτέ να στείλετε ένα email βάσει ημερομηνίας στο κελί του Excel; Για παράδειγμα, εδώ είναι μια λίστα ημερομηνιών στη στήλη Α και, στη συνέχεια, θέλετε να στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου με το θέμα, το σώμα μηνύματος σε έναν παραλήπτη (μπορεί επίσης να CC και BCC σε άλλους), πώς μπορείτε να το χειριστείτε;
Αποστολή email βάσει ημερομηνίας με το VBA
Αποστολή email βάσει ημερομηνίας με το VBA
Για να στείλετε email με βάση την ημερομηνία στο Excel, μπορείτε να εφαρμόσετε μόνο έναν μακροοικονομικό κώδικα.
1. Ενεργοποιήστε το φύλλο που περιέχει δεδομένα και ημερομηνία που χρησιμοποιείτε και πατήστε Alt + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον παρακάτω κώδικα στο κενό σενάριο.
VBA: Αποστολή με ημερομηνία
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. κλικ τρέξιμο πατήστε το κουμπί F5 κλειδί για την εκτέλεση του κώδικα, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει να επιλέξετε μια λίστα ημερομηνίας. Δείτε το στιγμιότυπο οθόνης:
4. Κάντε κλικ στο OK και συνεχίστε να καθορίζετε το θέμα του email, τη διεύθυνση email του αποστολέα, τη διεύθυνση email του παραλήπτη, το CC, το BCC και το σώμα μηνυμάτων. Δείτε το στιγμιότυπο οθόνης:
5. κλικ OK > OK μέχρι το τελευταίο, και στη συνέχεια το email στάλθηκε.
Σημείωση: η διεύθυνση email του αποστολέα πρέπει να είναι ο προεπιλεγμένος λογαριασμός στο Outlook.
Δημιουργία λίστας αλληλογραφίας και αποστολή email |
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!