Πώς να εφαρμόσετε ένα κουμπί για αποστολή email με συνημμένο το τρέχον αρχείο του Word;
Εάν πρέπει να στείλετε ένα μήνυμα email από ένα έγγραφο του Word μέσω του Outlook και να επισυνάψετε το τρέχον αρχείο Word, μπορείτε να δημιουργήσετε ένα κουμπί εντολής και, στη συνέχεια, να στείλετε το μήνυμα κάνοντας κλικ σε αυτό το κουμπί χωρίς να ανοίξετε το Outlook. Αυτό το άρθρο, θα σας παρουσιάσω πώς να το χειριστείτε γρήγορα και εύκολα.
Εφαρμόστε ένα κουμπί για αποστολή email με συνημμένο το τρέχον αρχείο Word
Εφαρμόστε ένα κουμπί για αποστολή email με συνημμένο το τρέχον αρχείο Word
Ακολουθήστε τα παρακάτω βήματα για την επίλυση αυτής της εργασίας στο αρχείο Word:
1. Αρχικά, πρέπει να δημιουργήσετε ένα κουμπί εντολής, κάντε κλικ Εργολάβος > Εργαλεία παλαιού τύπου > Κουμπί εντολών (ActiveX Control), δείτε το στιγμιότυπο οθόνης:
2. Επιλέξτε το κουμπί και κάντε κλικ Ιδιοκτησίες σύμφωνα με το Εργολάβος στην καρτέλα Ιδιοκτησίες παράθυρο, πληκτρολογήστε το κείμενο λεζάντας που χρειάζεστε στο Λεζάντα πεδίο, δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια, κλείστε το Ιδιοκτησίες παράθυρο, τώρα, κάντε δεξί κλικ στο κουμπί και επιλέξτε Προβολή κωδικού, δείτε το στιγμιότυπο οθόνης:
4. Και μετά, στην οθόνη Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα μεταξύ των αρχικών σεναρίων, δείτε το στιγμιότυπο οθόνης:
Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmail = xOutlookObj.CreateItem(olMailItem)
Set xDoc = ActiveDocument
xDoc.Save
With xEmail
.Subject = "Fax-data"
.Body = "This is a test email."
.To = "yy@addin99.com"
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
Note: Στον παραπάνω κώδικα, θα πρέπει να αλλάξετε το θέμα, το κείμενο του κειμένου ή τη διεύθυνση που έχετε σταλεί ανάλογα με τις ανάγκες σας.
5. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, κάντε κλικ στο Λειτουργία σχεδίασης για να απενεργοποιήσετε τη λειτουργία σχεδίασης. Τώρα, όταν κάνετε κλικ στο κουμπί εντολής που έχετε δημιουργήσει, θα δημιουργηθεί ένα μήνυμα ηλεκτρονικού ταχυδρομείου με το τρέχον έγγραφο του Word ως συνημμένο, δείτε το στιγμιότυπο οθόνης:
6. Επιτέλους, πρέπει απλώς να κάνετε κλικ Στείλετε κουμπί για να στείλετε αυτό το μήνυμα.
Συνιστώμενα εργαλεία παραγωγικότητας του Word
Kutools For Word - Περισσότερες από 100 προηγμένες λειτουργίες για το Word, εξοικονομήστε 50% χρόνο
- Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
- Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
- Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
- Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
- Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
