Πώς να εφαρμόσετε ένα κουμπί για αποστολή 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 = ""
.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. Επιτέλους, πρέπει απλώς να κάνετε κλικ Αποστολή κουμπί για να στείλετε αυτό το μήνυμα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...