Πώς να εισαγάγετε συγκεκριμένο κείμενο στον κέρσορα κατά τη σύνταξη μηνύματος στο Outlook; 

Ας υποθέσουμε ότι έχετε ορισμένες συγκεκριμένες συμβολοσειρές κειμένου που χρησιμοποιούνται συχνά κατά τη σύνταξη του μηνύματος ηλεκτρονικού ταχυδρομείου, επομένως, θα θέλατε να εισαγάγετε το κείμενο στην τρέχουσα θέση του δρομέα στο σώμα αλληλογραφίας χωρίς να τα πληκτρολογείτε ξανά και ξανά. Σε αυτό το άρθρο, θα μιλήσω για μια εύκολη μέθοδο για γρήγορη επίλυση αυτής της εργασίας.

Εισαγάγετε συγκεκριμένο κείμενο ή τρέχουσα ημερομηνία στον κέρσορα κατά τη σύνταξη μηνύματος με κώδικα VBA

Εισαγάγετε συγκεκριμένο κείμενο ή τρέχουσα ημερομηνία στον κέρσορα κατά τη σύνταξη μηνύματος με κώδικα VBA

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να εισαγάγετε μια συγκεκριμένη συμβολοσειρά κειμένου ή τρέχουσα ημερομηνία στη θέση του δρομέα, κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή κενή ενότητα:

Κωδικός VBA: Εισαγάγετε συγκεκριμένο κείμενο ή τρέχουσα ημερομηνία στον κέρσορα

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

Note: Στον παραπάνω κώδικα, ExtendOffice είναι το συγκεκριμένο κείμενο που θέλετε να εισαγάγετε, εάν πρέπει να εισαγάγετε την τρέχουσα ημερομηνία αντί της συμβολοσειράς κειμένου, αλλάξτε το κείμενο σε αυτό το σενάριο xSel.InsertBefore Format ("ExtendOffice") προς την xSel.InsertBefore Format (Τώρα, "ΗΗ / ΜΜ / ΕΕΕΕ").

3. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο κώδικα, δημιουργήστε ένα νέο email και κάντε κλικ στο παράθυρο μηνύματος Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης ρίξτε προς τα κάτω και επιλέξτε Περισσότερες εντολές, δείτε το στιγμιότυπο οθόνης:

4. Στην Επιλογές του Outlook πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

(1.) Επιλέξτε Μακροεντολές από το Επιλέξτε εντολή από πτώση

(2.) Κάντε κλικ στο όνομα της μακροεντολής που έχετε εισαγάγει.

(3.) Στη συνέχεια, κάντε κλικ στο Πρόσθεση κουμπί για να προσθέσετε αυτήν τη μακροεντολή στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης πλαίσιο λίστας.

5. Και μετά, κάντε κλικ στο OK κουμπί για να κλείσετε το παράθυρο διαλόγου, τώρα, το εικονίδιο μακροεντολής έχει εισαχθεί στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης. Τοποθετήστε τον κέρσορα όπου θέλετε να εισαγάγετε το κείμενο και, στη συνέχεια, κάντε κλικ σε αυτό το κουμπί μακροεντολής, το συγκεκριμένο κείμενο θα εισαχθεί ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:

---

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα Pro: Μαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

Δείτε Περισσότερα       Δωρεάν κατέβασμα      Αγορά