Πώς να στείλετε ένα email μέσω του Outlook όταν το βιβλίο εργασίας είναι αποθηκευμένο στο Excel;
Αυτό το άρθρο αφορά την αποστολή email μέσω του Outlook όταν ένα συγκεκριμένο βιβλίο εργασίας αποθηκεύεται στο Excel. Κάντε το όπως δείχνει το σεμινάριο.
Στείλτε ένα email μέσω του Outlook όταν το βιβλίο εργασίας αποθηκεύεται με κωδικό VBA
Στείλτε ένα email μέσω του Outlook όταν το βιβλίο εργασίας αποθηκεύεται με κωδικό VBA
Για την αποστολή email μέσω του Outlook όταν το βιβλίο εργασίας είναι αποθηκευμένο στο Excel, κάντε τα εξής.
1. Αποθηκεύστε πρώτα το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα Macro-Enabled. Κάντε κλικ Αρχεία > Αποθήκευση ως. Στην Αποθήκευση ως πλαίσιο διαλόγου, επιλέξτε ένα φάκελο για αποθήκευση του βιβλίου εργασίας, ονομάστε το στο πλαίσιο Όνομα αρχείου, επιλέξτε Βιβλίο εργασίας Excel με δυνατότητα μακροεντολής από το Αποθήκευση ως τύπου αναπτυσσόμενη λίστα και, στη συνέχεια, κάντε κλικ στο Αποθήκευση κουμπί. Δείτε το στιγμιότυπο οθόνης:
2. Ανοίξτε το βιβλίο εργασίας του Excel με δυνατότητα μακροεντολής που έχετε αποθηκεύσει μόλις τώρα, πατήστε το άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές κάντε διπλό κλικ Αυτό το βιβλίο εργασίας στην αριστερή γραμμή και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Αυτό το βιβλίο εργασίας παράθυρο κώδικα. Δείτε το στιγμιότυπο οθόνης:
Κωδικός VBA: Αποστολή email όταν αποθηκεύεται το βιβλίο εργασίας
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End Sub
Note: Παρακαλώ αντικαταστήστε το Διεύθυνση ηλεκτρονικού ταχυδρομείου με τη διεύθυνση email του παραλήπτη στη γραμμή .To = "Διεύθυνση ηλεκτρονικού ταχυδρομείου", να αλλάξτε τα πεδία Cc, Subject και body στον κώδικα VBA όπως χρειάζεστε.
3. Πάτα το άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
Από τώρα και στο εξής, όταν ενημερώνετε το βιβλίο εργασίας και το αποθηκεύετε, θα δημιουργηθεί αυτόματα ένα μήνυμα ηλεκτρονικού ταχυδρομείου με συνημμένο το ενημερωμένο βιβλίο εργασίας. Κάντε κλικ στο Αποστολή κουμπί για να στείλετε το email. Δείτε το στιγμιότυπο οθόνης:
Note: Ο κωδικός VBA λειτουργεί μόνο όταν χρησιμοποιείτε το Outlook ως πρόγραμμα ηλεκτρονικού ταχυδρομείου.
Σχετικά άρθρα:
- Πώς να στέλνετε αυτόματα email με βάση την τιμή κελιού στο Excel;
- Πώς να στείλετε email εάν ένα συγκεκριμένο κελί έχει τροποποιηθεί στο Excel;
- Πώς να στείλετε email εάν κάνετε κλικ στο κουμπί στο Excel;
- Πώς να στείλετε email εάν έχει πληρωθεί η προθεσμία στο Excel;
- Πώς να στείλετε υπενθύμιση μέσω email ή ειδοποίηση εάν το βιβλίο εργασίας είναι ενημερωμένο στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!