Κωδικός VBA για αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Excel
Στο VBA για αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Excel μπορούμε να αυτοματοποιήσουμε τη δυνατότητα αλληλογραφίας μας, ώστε να μπορούμε να στέλνουμε αυτόματα μηνύματα ηλεκτρονικού ταχυδρομείου σε πολλούς χρήστες κάθε φορά, για να το κάνουμε αυτό πρέπει να θυμόμαστε ότι γίνεται με προοπτική άλλο προϊόν προοπτικής, οπότε πρέπει να ενεργοποιήσουμε τις προοπτικές scripting σε VBA για να το κάνουμε αυτό και μόλις ολοκληρωθεί, χρησιμοποιούμε. Μέθοδος εφαρμογής για τη χρήση δυνατοτήτων προοπτικής.
Η ευελιξία της VBA είναι απίστευτη. Ο λόγος για τον οποίο οι κωδικοποιητές VBA αγαπούν το excel επειδή χρησιμοποιώντας το VBA, δεν μπορούμε μόνο να εργαζόμαστε στο Excel. Μάλλον μπορούμε επίσης να έχουμε πρόσβαση και σε άλλα εργαλεία της Microsoft. Μπορούμε να έχουμε πρόσβαση στο PowerPoint, το Word και το Outlook χρησιμοποιώντας το VBA. Αυτό που με εντυπωσίασε ήταν όταν άκουσα να στέλνω email από το ίδιο το excel. Ναι είναι αλήθεια. Μπορούμε να στείλουμε email από το excel. Σε αυτό το άρθρο, θα σας δείξουμε πώς μπορείτε να στείλετε email από το excel με συνημμένα χρησιμοποιώντας VBA Coding.
Ορισμός αναφοράς στη βιβλιοθήκη του Microsoft Office
Πρέπει να στείλουμε email από το Outlook. Επειδή το Outlook είναι ένα εξωτερικό αντικείμενο, το πρώτο πράγμα που πρέπει να κάνουμε είναι να ορίσουμε την αναφορά αντικειμένου σε " Microsoft Outlook 16.0 Object Library ".
- Στο VBA, μεταβείτε στα Εργαλεία> Αναφορές.
- Τώρα θα δούμε τη βιβλιοθήκη αναφοράς αντικειμένων. Σε αυτό το παράθυρο, πρέπει να ορίσουμε την αναφορά στο "Microsoft Outlook 16.0 Object Library."
- Αφού ορίσετε την αναφορά αντικειμένου, κάντε κλικ στο, Ok.
Τώρα μπορούμε να έχουμε πρόσβαση στο αντικείμενο του Outlook με κωδικοποίηση VBA.
13 εύκολα βήματα για την αποστολή μηνυμάτων ηλεκτρονικού ταχυδρομείου από το Excel
Η σύνταξη του κώδικα για την αποστολή email με συνημμένο από το excel είναι αρκετά περίπλοκη, αλλά αξίζει να περάσετε λίγο χρόνο.
Ακολουθήστε τα παρακάτω βήματα για να γράψετε την πρώτη σας μακροεντολή excel email.
Βήμα 1
Ξεκινήστε την υποδιαδικασία στο VBA.
Κώδικας:
Υπο SendEmail_Example1 () End Sub
Βήμα 2
Δηλώστε τη μεταβλητή Outlook.Application
Κώδικας:
Απενεργοποίηση EmailApp ως Outlook. Εφαρμογή «Για να αναφερθείτε στην εφαρμογή Outlook
Βήμα # 3
Η παραπάνω μεταβλητή είναι μια μεταβλητή αντικειμένου. Πρέπει να δημιουργήσουμε μια παρουσία ενός νέου αντικειμένου ξεχωριστά. Για να δημιουργήσετε μια νέα παρουσία του εξωτερικού αντικειμένου, παρακάτω είναι ο κωδικός.
Κώδικας:
Ορισμός EmailApp = Νέο Outlook. Εφαρμογή "Για εκκίνηση εφαρμογής Outlook
Βήμα # 4
Τώρα για να γράψουμε το email, δηλώνουμε μια ακόμη μεταβλητή ως "Outlook.MailItem".
Κώδικας:
Dim EmailItem ως Outlook.MailItem «Για να αναφέρετε νέο email προοπτικής
Βήμα # 5
Για να ξεκινήσουμε ένα νέο email, πρέπει να ορίσουμε την αναφορά στην προηγούμενη μεταβλητή μας ως CreateItem.
Κώδικας:
Ορισμός EmailItem = EmailApp.CreateItem (olMailItem) "Για να ξεκινήσετε νέα email προοπτικής
Εντάξει, τώρα η μεταβλητή "EmailApp" θα ξεκινήσει την προοπτική και στη μεταβλητή "EmailItem" μπορούμε να αρχίσουμε να γράφουμε το email.
Βήμα # 6
Τώρα πρέπει να γνωρίζουμε ποια είναι τα στοιχεία που έχουμε ενώ γράφουμε ένα email. Το πρώτο πράγμα είναι ότι πρέπει να αποφασίσουμε σε ποιον στέλνουμε το email. Γι 'αυτό, πρέπει να έχουμε πρόσβαση στην ιδιότητα "TO".
Βήμα # 7
Εισαγάγετε το αναγνωριστικό email του παραλήπτη σε διπλά εισαγωγικά.
Κώδικας:
EmailItem.To = "[email protected]"
Βήμα # 8
Αφού απευθυνθείτε στον κύριο δέκτη, εάν θέλετε να καλέσετε κάποιον στο email, μπορούμε να χρησιμοποιήσουμε την ιδιότητα "CC".
Κώδικας:
EmailItem.CC = "[email protected]"
Βήμα # 9
Μετά το CC, μπορούμε επίσης να ορίσουμε το αναγνωριστικό email BCC.
Κώδικας:
EmailItem.BCC = "[email protected]"
Βήμα # 10
Τώρα πρέπει να συμπεριλάβουμε το Θέμα του email που στέλνουμε.
Κώδικας:
EmailItem.Subject = "Δοκιμή ηλεκτρονικού ταχυδρομείου από το Excel VBA"
Βήμα # 11
Τώρα πρέπει να γράψουμε το κύριο μέρος του email χρησιμοποιώντας τον τύπο σώματος HTML.
Κώδικας:
EmailItem.HTMLBody = "Γεια," & vbNewLine & vbNewLine & "Αυτό είναι το πρώτο μου email από το Excel" & _ vbNewLine & vbNewLine & _ "Regards," & vbNewLine & _ "VBA Coder" "Το VbNewLine είναι η σταθερή VBA για εισαγωγή νέα γραμμή
Βήμα # 12
If we want to add an attachment as the current workbook, we are working on. Then we need to use attachments property. First, declare a variable source as a string.
Code:
Dim Source As String
Then in this variable, write ThisWorkbook.FullName after Email body.
Code:
Source = ThisWorkbook.FullName
In this VBA Code, ThisWorkbook is used for the current workbook and .FullName is used to get the full name of the worksheet.
Then write the following code to attach the file.
Code:
EmailItem.Attachments.Add Source
Step #13
Now finally, we need to send the email to the mentioned email IDs. This can be done by using the “Send” method.
Code:
EmailItem.Send
Ok, we are done with the coding part.
Code:
Sub SendEmail_Example1 () Dim EmailApp As Outlook.Appl Dim Dim As String Set EmailApp = New Outlook.Aplication Dim EmailItem As Outlook.MailItem Set EmailItem = EmailApp.CreateItem (olMailItem) EmailItem.To = "[email protected]" EmailItem.CC = "[email protected]" EmailItem.BCC = "[email protected]" EmailItem.Subject = "Δοκιμή ηλεκτρονικού ταχυδρομείου από το Excel VBA" EmailItem.HTMLBody = "Γεια," & vbNewLine & vbNewLine & "Αυτό είναι το πρώτο μου email από Excel "& _ vbNewLine & vbNewLine & _" Regards, "& vbNewLine & _" VBA Coder "Source = ThisWorkbook.FullName EmailItem.Attachments.Προσθήκη πηγής EmailItem.Send End Sub Sub
Εκτελέστε τον παραπάνω κωδικό και θα στείλει το μήνυμα ηλεκτρονικού ταχυδρομείου με το αναφερόμενο σώμα του email με το τρέχον βιβλίο εργασίας ως συνημμένο.
