Αυτό το σεμινάριο θα σας δείξει πώς να στέλνετε μηνύματα ηλεκτρονικού ταχυδρομείου από το Excel μέσω Gmail χρησιμοποιώντας VBA.
Προσθήκη της αναφοράς CDO της Microsoft
Για να επιτρέψετε στο Excel να στέλνει email μέσω Gmail, πρέπει πρώτα να προσθέσετε τη βιβλιοθήκη αναφοράς CDO στο έργο σας Excel.
Στο πρόγραμμα επεξεργασίας VBA, κάντε κλικ στο Εργαλεία, αναφορές.
Αναζητήστε το Microsoft CDO Reference και κάντε κλικ στο OK.
Αποστολή email μέσω GMail
Για να στείλετε ένα email από το Excel μέσω Gmail θα πρέπει πρώτα να δηλώσετε ένα αντικείμενο CDO (Dim gMail ως CDO.Message).
Δεύτερον, θα πρέπει να ρυθμίσετε τον έλεγχο ταυτότητας SSL για το μήνυμά σας στον κώδικά σας. Αυτό σημαίνει ότι πρέπει να ορίσετε διακομιστή SMTP και λεπτομέρειες θύρας για να περάσει σωστά το email σας, καθώς και να ρυθμίσετε το όνομα χρήστη και τον κωδικό πρόσβασής σας.
Στο παρακάτω απόσπασμα κώδικα, αυτό θα χρειαστείτε στην αρχή της συνάρτησης Excel. Χρειάζεστε έναν παραλήπτη ηλεκτρονικού ταχυδρομείου (strTo) και ένα θέμα (strSubject), αλλά το CC και το σώμα του μηνύματος ηλεκτρονικού ταχυδρομείου μπορεί να είναι προαιρετικές μεταβλητές.
| 12345678910111213141516171819202122232425262728 | Λειτουργία CreateEmail (strTo As String, strSubject As String, Optional strCC As String, Optional strBody As String)«Δημιουργήστε ένα αντικείμενο CDODim gMail As CDO.MessageΟρισμός gMail = Νέο CDO.Message«Ενεργοποίηση ελέγχου ταυτότητας SSLgMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Αλήθεια«Κάντε ενεργοποίηση του ελέγχου ταυτότητας SMTP = true (1)gMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1«Ορίστε τον διακομιστή SMTP και τις λεπτομέρειες θύραςgMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"gMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25gMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2"Ορίστε το όνομα χρήστη και τον κωδικό πρόσβασής σας για τον δικό σας λογαριασμό gmail εδώgMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"gMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"«Ενημερώστε τα πεδία διαμόρφωσηςgMail.Configuration.Fields.Update |
Μόλις γίνει αυτό, μπορείτε να δημιουργήσετε το email σας και να ολοκληρώσετε τη λειτουργία.
| 123456789 | «ορίστε τις ιδιότητες email και το αρχείο προς αποστολήΜε gMail .Subject = "Γράψτε θέμα εδώ".From = "[email protected]".To = strTo.TextBody = strBodyΤέλος με«για να στείλετε το ταχυδρομείοgMail. ΑποστολήΛειτουργία Τέλους |
Στη συνέχεια, μπορείτε να καλέσετε τη λειτουργία σας με τον ακόλουθο κώδικα
| 1234567 | Sub SendEmail«Δημιουργήστε το σώμα του μηνύματος ηλεκτρονικού ταχυδρομείουDim strText ως συμβολοσειράstrText = "Καλημέρα. Ελπίζω να είστε καλά - αυτό είναι ένα δοκιμαστικό email""συμπληρώστε τα ορίσματα της συνάρτησης - αφήστε το CC κενό, οπότε βάλτε ένα κόμμα ως σύμβολο κράτησης θέσηςCreateEmail ("[email protected]", "Test Email",, strText)Τέλος υπο |
Αποστολή βιβλίου εργασίας μέσω GMail
Για να στείλετε ένα βιβλίο εργασίας ως συνημμένο μέσω GMail, μπορείτε να δημιουργήσετε μια λειτουργία παρόμοια με αυτήν της παραπάνω με λίγες προσθήκες.
Πρέπει να προσθέσετε κώδικα για να επιλέξετε το βιβλίο εργασίας και, στη συνέχεια, πρέπει να επισυνάψετε το επιλεγμένο αρχείο στο email.
Θα χρησιμοποιήσουμε το Microsoft Office FileDialog εντολή για να επιλέξετε το αρχείο προς αποστολή και, στη συνέχεια, χρησιμοποιήστε το Προσθήκη συνημμένου ιδιότητα του μηνύματος ηλεκτρονικού ταχυδρομείου για να προσθέσετε το αρχείο ως συνημμένο.
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 | Λειτουργία SendWorkbook (strTo As String, strSubject As String, Optional strCC As String, Optional strBody As String) As BooleanΣτο σφάλμα πήρα ε:«Δημιουργήστε ένα αντικείμενο CDODim gMail As CDO.MessageΟρισμός gMail = Νέο CDO.Message«Ενεργοποίηση ελέγχου ταυτότητας SSLgMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = Αλήθεια«Κάντε ενεργοποίηση του ελέγχου ταυτότητας SMTP = true (1)gMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1«Ορίστε τον διακομιστή SMTP και τις λεπτομέρειες της θύραςgMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"gMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25gMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2"Ορίστε το όνομα χρήστη και τον κωδικό πρόσβασής σας για τον δικό σας λογαριασμό gmail εδώgMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"gMail.Configuration.Fields.Theem _("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********"«Ενημερώστε τα πεδία διαμόρφωσηςgMail.Configuration.Fields.Update'επιλέξτε το αρχείο για αποστολή με το παράθυρο διαλόγου microsoft fileDim strFileToSend As StringDim dlgFile As FileDialogDim strItem As VariantDim nDlgResult As LongΟρισμός dlgFile = Application.FileDialog (msoFileDialogFilePicker)"φίλτρο μόνο για αρχεία excel και csvdlgFile.Filters.Add "Excel Files", " *.csv; *.xls; *.xlsx; *.xlsm"nDlgResult = dlgFile.ShowΕάν nDlgResult = -1 ΤότεΕάν dlgFile.SelectedItems.Count> 0 ΤότεΓια κάθε strItem σε dlgFile.SelectedItemsstrFileToSend = strItemΕπόμενο strItemΤέλος εανΤέλος εαν«ορίστε τις ιδιότητες email και το αρχείο προς αποστολήΜε gMail.Subject = "Γράψτε θέμα εδώ".From = "[email protected]".To = strTo.TextBody = strBody"προσθέστε το επιλεγμένο αρχείο ως συνημμένο.Προσθήκη Προσάρτησης strFileToSendΤέλος με«για να στείλετε το ταχυδρομείοgMail. ΑποστολήSendWorkbook = ΣωστόΛειτουργία εξόδουε:SendWorkbook = ΛάθοςΛειτουργία Τέλους |
Εάν η θύρα διαμόρφωσης 25 δεν λειτουργεί, ενδέχεται να λάβετε ένα σφάλμα - "Η μεταφορά απέτυχε να συνδεθεί με τον διακομιστή" Αλλάξτε τη θύρα σε 25 και δοκιμάστε ξανά.
Η παραπάνω συνάρτηση μπορεί να κληθεί χρησιμοποιώντας την παρακάτω διαδικασία.
| 123456789101112131415 | Sub SendMail ()Dim strTo As StringDim strSubject As StringDim strBody As String"συμπληρώστε μεταβλητέςstrTo = "[email protected]"strSubject = "Βρείτε συνημμένο αρχείο χρηματοδότησης"strBody = "κάποιο κείμενο πηγαίνει εδώ για το σώμα του μηνύματος ηλεκτρονικού ταχυδρομείου"«καλέστε τη λειτουργία για να στείλετε το emailΑν SendWorkbook (strTo, strSubject,, strBody) = true τότεMsgbox "Επιτυχία δημιουργίας email"ΑλλούMsgbox "Η δημιουργία email απέτυχε!"Τέλος εανΤέλος υπο |
Θα σας ζητηθεί να επιλέξετε το αρχείο που θέλετε να στείλετε. Αυτός ο κωδικός περιορίζεται σε αρχεία Excel, επειδή το φίλτρο είναι «*.csv; *.xls; *.xlsx; *.xlsm ” - ωστόσο, μπορείτε να χρησιμοποιήσετε αυτόν τον κώδικα και στο Word, και να τροποποιήσετε ανάλογα το φίλτρο σας.
Επιλέξτε το αρχείο και κάντε κλικ στο Άνοιγμα. Ο κώδικας μπορεί να διαρκέσει για να εκτελεστεί - εάν η αλληλογραφία σας αποσταλεί επιτυχώς, θα λάβετε το ακόλουθο μήνυμα.
