Πώς να στείλετε email εάν ένα συγκεκριμένο κελί έχει τροποποιηθεί στο Excel;
Αυτό το άρθρο αναφέρεται στην αποστολή ενός μηνύματος ηλεκτρονικού ταχυδρομείου μέσω του Outlook όταν ένα κελί σε ένα συγκεκριμένο εύρος τροποποιείται στο Excel.
Στείλτε email εάν το κελί σε ένα συγκεκριμένο εύρος έχει τροποποιηθεί με κωδικό VBA
Στείλτε email εάν το κελί σε ένα συγκεκριμένο εύρος έχει τροποποιηθεί με κωδικό VBA
Εάν χρειάζεται να δημιουργήσετε ένα νέο email αυτόματα με το ενεργό βιβλίο εργασίας να είναι συνημμένο όταν ένα κελί στην περιοχή A2:E11 τροποποιείται σε ένα συγκεκριμένο φύλλο εργασίας, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει.
1. Στο φύλλο εργασίας που πρέπει να στείλετε email με βάση το τροποποιημένο κελί του σε ένα συγκεκριμένο εύρος, κάντε δεξί κλικ στην καρτέλα φύλλων και, στη συνέχεια, κάντε κλικ στο Προβολή κωδικού από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:
2. Στο αναδυόμενο παράθυρο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε κάτω από τον κώδικα VBA στο παράθυρο Code.
Κωδικός VBA: Στείλτε email εάν το κελί σε ένα καθορισμένο εύρος έχει τροποποιηθεί στο Excel
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xRg = Range("A2:E11")
Set xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
If Not xRgSel Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."
With xMailItem
.To = "Email Address"
.Subject = "Worksheet modified in " & ThisWorkbook.FullName
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Notes:
3. Πάτα το άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
Από τώρα και στο εξής, οποιοδήποτε κελί στην περιοχή A2: E11 τροποποιείται, θα δημιουργηθεί ένα νέο email με συνημμένο το ενημερωμένο βιβλίο εργασίας. Και όλα τα καθορισμένα πεδία όπως το θέμα, ο παραλήπτης και το σώμα email θα αναφέρονται στο email. Στείλτε το email.
Note: Ο κώδικας VBA λειτουργεί μόνο εάν χρησιμοποιείτε το Outlook ως πρόγραμμα email.
Σχετικά άρθρα:
- Πώς να στέλνετε αυτόματα email με βάση την τιμή κελιού στο Excel;
- Πώς να στείλετε ένα email μέσω του Outlook όταν το βιβλίο εργασίας είναι αποθηκευμένο στο Excel;
- Πώς να στείλετε email εάν κάνετε κλικ στο κουμπί στο Excel;
- Πώς να στείλετε email εάν έχει πληρωθεί η προθεσμία στο Excel;
- Πώς να στείλετε υπενθύμιση μέσω email ή ειδοποίηση εάν το βιβλίο εργασίας είναι ενημερωμένο στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!