Home-theater-designers
Για την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Microsoft Excel απαιτούνται μόνο μερικά απλά σενάρια. Προσθέστε αυτήν τη λειτουργικότητα στα υπολογιστικά φύλλα σας και μπορείτε πραγματικά να βελτιώσετε πόσα μπορείτε να επιτύχετε στο Excel.
Έχουμε καλύψει πολλές εξαιρετικές μακροεντολές του Excel, οι οποίες μπορούν να επιτύχουν τα ίδια πράγματα με τα σενάρια VBA, αλλά χωρίς να χρειάζονται γνώσεις προγραμματισμού. Υπάρχουν όμως πολλά προηγμένα πράγματα που μπορείτε να κάνετε μόνο με το VBA, όπως η δημιουργία μιας αναφοράς υπολογιστικού φύλλου με όλες τις πληροφορίες του υπολογιστή σας.
Προτιμάτε να παρακολουθείτε αυτό το σεμινάριο ως βίντεο; Σας καλύψαμε!
Γιατί να στείλετε email από το Excel;
Υπάρχουν πολλοί λόγοι για τους οποίους μπορεί να θέλετε να στείλετε ένα email από το Microsoft Excel.
Maybeσως έχετε προσωπικό που ενημερώνει έγγραφα ή υπολογιστικά φύλλα σε εβδομαδιαία βάση και θέλετε να λαμβάνετε μια ειδοποίηση μέσω ηλεκτρονικού ταχυδρομείου για το πότε ολοκληρώνονται αυτές οι ενημερώσεις. Or μπορεί να έχετε ένα υπολογιστικό φύλλο επαφών και θέλετε να στείλετε ένα email σε όλες ταυτόχρονα.
Πιθανότατα σκέφτεστε ότι η δέσμη ενεργειών μιας μετάδοσης ηλεκτρονικού ταχυδρομείου από το Excel πρόκειται να είναι περίπλοκη. Αυτό δεν ισχύει καθόλου.
Η τεχνική σε αυτό το άρθρο θα κάνει χρήση μιας δυνατότητας που ήταν διαθέσιμη στο Excel VBA για μεγάλο χρονικό διάστημα, Αντικείμενα δεδομένων συνεργασίας (CDO).
Το CDO είναι ένα στοιχείο ανταλλαγής μηνυμάτων που χρησιμοποιείται στα Windows από τις πρώτες γενιές του λειτουργικού συστήματος. Παλιά ονομαζόταν CDONTS, και στη συνέχεια με την εμφάνιση των Windows 2000 και XP, αντικαταστάθηκε με «CDO για Windows 2000». Αυτό το στοιχείο περιλαμβάνεται ήδη στην εγκατάσταση VBA στο Microsoft Word ή το Excel και είναι έτοιμο για χρήση.
Η χρήση του στοιχείου καθιστά την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από προϊόντα Windows με VBA εξαιρετικά εύκολη. Σε αυτό το παράδειγμα, θα χρησιμοποιήσετε το στοιχείο CDO στο Excel για να στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου που θα παραδίδει τα αποτελέσματα από ένα συγκεκριμένο κελί Excel.
Βήμα 1: Δημιουργήστε μια μακροεντολή VBA
Το πρώτο βήμα είναι να μεταβείτε στην καρτέλα Excel Developer.
Μέσα στην καρτέλα Προγραμματιστής, κάντε κλικ στο Εισάγετε στο πλαίσιο 'Στοιχεία ελέγχου' και, στη συνέχεια, επιλέξτε ένα κουμπί εντολών.
Σχεδιάστε το στο φύλλο και, στη συνέχεια, δημιουργήστε μια νέα μακροεντολή κάνοντας κλικ στο Μακροεντολές στην κορδέλα προγραμματιστή.
Όταν κάνετε κλικ στο Δημιουργώ κουμπί, θα ανοίξει τον επεξεργαστή VBA.
Προσθέστε την αναφορά στη βιβλιοθήκη CDO μεταβαίνοντας στο Εργαλεία >> βιβλιογραφικές αναφορές στο συντάκτη.
Μετακινηθείτε προς τα κάτω στη λίστα μέχρι να το βρείτε Microsoft CDO για Windows 2000 Library Το Σημειώστε το πλαίσιο ελέγχου και κάντε κλικ Εντάξει Το
Όταν κάνετε κλικ Εντάξει , σημειώστε το όνομα της συνάρτησης όπου επικολλάτε το σενάριο. Θα το χρειαστείτε αργότερα.
Βήμα 2: Ρυθμίστε τα πεδία CDO 'Από' και 'Προς'
Για να γίνει αυτό, πρέπει πρώτα να δημιουργήσετε τα αντικείμενα αλληλογραφίας και να ρυθμίσετε όλα τα πεδία που είναι απαραίτητα για την αποστολή του μηνύματος ηλεκτρονικού ταχυδρομείου.
Λάβετε υπόψη ότι ενώ πολλά από τα πεδία είναι προαιρετικά, το Από και Προς το απαιτούνται πεδία.
υπάρχει τρόπος να ανακτήσετε τα διαγραμμένα μηνύματα στο facebook
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
strSubject = 'Results from Excel Spreadsheet'
strFrom = 'rdube02@gmail.com'
strTo = 'rdube02@gmail.com'
strCc = ''
strBcc = ''
strBody = 'The total results for this quarter are: ' & Str(Sheet1.Cells(2, 1))Το θετικό σε αυτό είναι ότι μπορείτε να δημιουργήσετε οποιαδήποτε συμβολοσειρά θέλετε για να προσαρμόσετε ένα πλήρες μήνυμα ηλεκτρονικού ταχυδρομείου και να το εκχωρήσετε στο strBody μεταβλητός.
Συνθέστε στοιχεία του μηνύματος χρησιμοποιώντας το & συμβολοσειρά για εισαγωγή δεδομένων από οποιοδήποτε φύλλο του Microsoft Excel απευθείας στο μήνυμα ηλεκτρονικού ταχυδρομείου, όπως φαίνεται παραπάνω.
Βήμα 3: Διαμορφώστε το CDO για χρήση εξωτερικού SMTP
Το επόμενο τμήμα του κώδικα είναι το σημείο όπου θα ρυθμίσετε τις παραμέτρους του CDO ώστε να χρησιμοποιεί οποιονδήποτε εξωτερικό διακομιστή SMTP για την αποστολή του email.
Αυτό το παράδειγμα είναι μια ρύθμιση μη SSL μέσω Gmail. Το CDO είναι ικανό για SSL, αλλά αυτό δεν εμπίπτει στο πεδίο αυτού του άρθρου. Εάν πρέπει να χρησιμοποιήσετε SSL, αυτό προηγμένο κώδικα στο Github μπορώ να βοηθήσω.
Set CDO_Mail = CreateObject('CDO.Message')
On Error GoTo Error_Handling
Set CDO_Config = CreateObject('CDO.Configuration')
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields
With SMTP_Config
.Item('http://schemas.microsoft.com/cdo/configuration/sendusing') = 2
.Item('http://schemas.microsoft.com/cdo/configuration/smtpserver') = 'smtp.gmail.com'
.Item('http://schemas.microsoft.com/cdo/configuration/smtpauthenticate') = 1
.Item('http://schemas.microsoft.com/cdo/configuration/sendusername') = 'email@website.com'
.Item('http://schemas.microsoft.com/cdo/configuration/sendpassword') = 'password'
.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport') = 25
.Item('http://schemas.microsoft.com/cdo/configuration/smtpusessl') = True
.Update
End With
With CDO_Mail
Set .Configuration = CDO_Config
End WithΒήμα 4: Ολοκληρώστε τη ρύθμιση CDO
Τώρα που έχετε ρυθμίσει τη σύνδεση με τον διακομιστή SMTP για αποστολή του email, το μόνο που έχετε να κάνετε είναι να συμπληρώσετε τα κατάλληλα πεδία για CDO_Mail αντικείμενο , και εκδώστε το Στείλετε εντολή.
Εδώ είναι πώς το κάνετε αυτό:
CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
If Err.Description '' Then MsgBox Err.DescriptionΔεν θα υπάρχουν αναδυόμενα πλαίσια ή μηνύματα ειδοποίησης ασφαλείας, τα οποία μπορεί να συμβούν όταν καταφύγετε στη χρήση του αντικειμένου αλληλογραφίας του Outlook.
Το CDO απλώς συγκεντρώνει το email και χρησιμοποιεί τα στοιχεία σύνδεσης του διακομιστή SMTP για να απενεργοποιήσει το μήνυμα. Είναι ο ευκολότερος τρόπος για να ενσωματώσετε το email σε σενάρια Microsoft Word ή Excel VBA.
Για να συνδέσετε το κουμπί εντολών σε αυτό το σενάριο, μεταβείτε στον επεξεργαστή κώδικα και κάντε κλικ στο Φύλλο 1 για να δείτε τον κωδικό VBA για αυτό το φύλλο εργασίας.
Πληκτρολογήστε το όνομα της συνάρτησης όπου επικολλήσατε το παραπάνω σενάριο.
Ο ελεγκτής xbox one δεν λειτουργεί στον υπολογιστή
Δείτε πώς ήταν το μήνυμα που έλαβα στα εισερχόμενά μου:
Σημείωση : Εάν λάβετε ένα σφάλμα που διαβάζει Η μεταφορά απέτυχε να συνδεθεί με το διακομιστή , βεβαιωθείτε ότι έχετε εισαγάγει το σωστό όνομα χρήστη, κωδικό πρόσβασης, διακομιστή SMTP και αριθμό θύρας στις γραμμές κώδικα που αναφέρονται παρακάτω Με SMTP_Config Το
Πάρτε το περαιτέρω και αυτοματοποιήστε ολόκληρη τη διαδικασία
Είναι όλα καλά και να μπορείτε να στέλνετε email από το Excel με το πάτημα ενός κουμπιού. Ωστόσο, μπορεί να θέλετε να χρησιμοποιείτε αυτήν τη λειτουργικότητα σε τακτική βάση, οπότε θα ήταν λογικό να αυτοματοποιήσετε τη διαδικασία.
Για να το κάνετε αυτό, θα πρέπει να κάνετε μια αλλαγή στη μακροεντολή. Μεταβείτε στον επεξεργαστή Visual Basic και αντιγράψτε και επικολλήστε ολόκληρο τον κώδικα που συγκεντρώσαμε.
Στη συνέχεια, επιλέξτε ThisWorkbook από το Εργο ιεραρχία.
Από τα δύο αναπτυσσόμενα πεδία στο επάνω μέρος του παραθύρου κωδικού, επιλέξτε ΤΕΤΡΑΔΙΟ ΕΡΓΑΣΙΩΝ και επιλέξτε Ανοιξε από το αναπτυσσόμενο μεθόδους Μέθοδοι.
Επικολλήστε το σενάριο ηλεκτρονικού ταχυδρομείου παραπάνω στο Private Sub Workbook_Open () Το
Αυτό θα εκτελέσει τη μακροεντολή κάθε φορά που ανοίγετε το αρχείο Excel.
Στη συνέχεια, ανοίξτε Χρονοδιάγραμμα εργασιών Το
Θα χρησιμοποιήσετε αυτό το εργαλείο για να ζητήσετε από τα Windows να ανοίγουν αυτόματα το υπολογιστικό φύλλο σε τακτά χρονικά διαστήματα, οπότε θα ξεκινήσει η μακροεντολή σας, στέλνοντας το email.
Επιλέγω Δημιουργία βασικής εργασίας ... από το Δράση μενού και προχωρήστε στον οδηγό μέχρι να φτάσετε στο Δράση οθόνη.
Επιλέγω Ξεκινήστε ένα πρόγραμμα και κάντε κλικ Επόμενο Το
Χρησιμοποιήστε το Ξεφυλλίζω κουμπί για να βρείτε τη θέση του Microsoft Excel στον υπολογιστή σας ή αντιγράψτε και επικολλήστε τη διαδρομή στο Πρόγραμμα/σενάριο πεδίο.
Στη συνέχεια, εισαγάγετε τη διαδρομή προς το έγγραφο Microsoft Excel στο Προσθέστε επιχειρήματα πεδίο.
Ολοκληρώστε τον οδηγό και ο προγραμματισμός σας θα είναι στη θέση του.
Αξίζει να εκτελέσετε μια δοκιμή προγραμματίζοντας τη δράση για μερικά λεπτά στο μέλλον και, στη συνέχεια, τροποποιώντας την εργασία μόλις επιβεβαιώσετε ότι λειτουργεί.
Σημείωση : Mayσως χρειαστεί να προσαρμόσετε τις ρυθμίσεις του Trust Center για να διασφαλίσετε ότι η μακροεντολή εκτελείται σωστά.
Για να το κάνετε αυτό, ανοίξτε το υπολογιστικό φύλλο και μεταβείτε στο Αρχείο >> Επιλογές >> Trust Center Το
Από εδώ, κάντε κλικ Ρυθμίσεις Κέντρου Εμπιστοσύνης , και στην επόμενη οθόνη ρυθμίστε τον επιλογέα ραδιοφώνου σε Ποτέ μην εμφανίζετε πληροφορίες σχετικά με αποκλεισμένο περιεχόμενο Το
Κάντε το Microsoft Excel να λειτουργεί για εσάς
Το Microsoft Excel είναι ένα απίστευτα ισχυρό εργαλείο, αλλά το να μάθεις πώς να αξιοποιείς στο έπακρο μπορεί να είναι λίγο εκφοβιστικό. Εάν θέλετε να κυριαρχήσετε πραγματικά στο λογισμικό, θα πρέπει να είστε άνετα με VBA , και αυτό δεν είναι μικρό έργο.
Πώς να κάνετε jailbreak στο iphone 11
Ωστόσο, τα αποτελέσματα μιλούν από μόνα τους. Με λίγη εμπειρία στο VBA, σύντομα θα μπορείτε να κάνετε το Microsoft Excel να εκτελεί αυτόματα βασικές εργασίες, δίνοντάς σας περισσότερο χρόνο για να συγκεντρωθείτε σε πιο πιεστικά θέματα.
Χρειάζεται χρόνος για να αποκτήσετε τεχνογνωσία με το VBA, αλλά σύντομα θα δείτε τους καρπούς των εργασιών σας αν μπορείτε να το διατηρήσετε.
Ένα εξαιρετικό μέρος για να ξεκινήσετε είναι το έγκυρό μας σεμινάριο για τη χρήση του VBA στο Excel Το Μόλις τελειώσετε με αυτό, αυτό το απλό σενάριο για την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Excel θα μοιάζει με παιδικό παιχνίδι.
Μερίδιο Μερίδιο Τιτίβισμα ΗΛΕΚΤΡΟΝΙΚΗ ΔΙΕΥΘΥΝΣΗ Canon εναντίον Nikon: Ποια μάρκα κάμερας είναι καλύτερη;Η Canon και η Nikon είναι τα δύο μεγαλύτερα ονόματα στη βιομηχανία κάμερας. Ποια μάρκα προσφέρει όμως την καλύτερη γκάμα φωτογραφικών μηχανών και φακών;
Διαβάστε Επόμενο Σχετικά θέματα- Παραγωγικότητα
- Προγραμματισμός
- Συμβουλές για το ηλεκτρονικό ταχυδρομείο
- Προγραμματισμός
- Προγραμματισμός Visual Basic
- Microsoft Excel
- Συμβουλές για το Microsoft Office
Ο Ryan έχει πτυχίο Ηλεκτρολόγων Μηχανικών. Εργάστηκε 13 χρόνια στη μηχανική αυτοματισμού, 5 χρόνια στην πληροφορική και τώρα είναι Μηχανικός Εφαρμογών. Πρώην Διευθύνων Σύμβουλος του MakeUseOf, μίλησε σε εθνικά συνέδρια για την απεικόνιση δεδομένων και συμμετείχε στην εθνική τηλεόραση και ραδιόφωνο.
Περισσότερα από τον Ryan DubeΕγγραφείτε στο newsletter μας
Εγγραφείτε στο ενημερωτικό μας δελτίο για τεχνικές συμβουλές, κριτικές, δωρεάν ebooks και αποκλειστικές προσφορές!
Κάντε κλικ εδώ για εγγραφή