Όταν θέλετε να εισαγάγετε γρήγορα κείμενα στο τέλος ενός αρκετά μεγάλου μηνύματος email, θα σας πάρει λίγο χρόνο για να μετακινηθείτε προς τα κάτω μέχρι το τέλος. Αυτό το άρθρο θα αποκαλύψει μια μέθοδο που μπορεί να σας επιτρέψει να μεταβείτε γρήγορα στο τέλος ή στην αρχή του σώματος του email μέσω VBA.
Μερικές φορές, όταν βλέπετε ένα μεγάλο μήνυμα email, ίσως θελήσετε να μπορείτε να μεταβείτε ή να μετακινήσετε τον κέρσορα στο τέλος ή στην αρχή του μηνύματος γρήγορα κατά βούληση. Για παράδειγμα, αν θέλετε να ελέγξετε την υπογραφή του αποστολέα, πρέπει να μεταβείτε στο τέλος. Γενικά, πρέπει να συνεχίσετε να κάνετε κύλιση προς τα κάτω μέχρι να φτάσετε στο τέλος. Μπορεί να είναι λίγο δύσκολο. Επομένως, εδώ θα σας προσφέρουμε ένα κομμάτι κώδικα VBA, το οποίο μπορεί να σας βοηθήσει να μεταβείτε στο τέλος ή να ξεκινήσετε με ένα μόνο κλικ.
Μεταβείτε γρήγορα στην αρχή ή στο τέλος του σώματος του μηνύματος
- Από την αρχή, ξεκινήστε το πρόγραμμα Outlook.
- Στη συνέχεια, στο κύριο παράθυρο του Outlook, πατήστε τα πλήκτρα "Alt + F11".
- Στη συνέχεια θα εισέλθετε στο παράθυρο "Microsoft Visual Basic for Applications".
- Σε αυτό το σημείο, πρέπει να ανοίξετε μια κενή μονάδα ή να εισαγάγετε απευθείας μια νέα.
- Στη συνέχεια, θα πρέπει να αντιγράψετε και να επικολλήσετε τον ακόλουθο κώδικα VBA σε ένα τέτοιο παράθυρο λειτουργικής μονάδας.
Dim objCurrentMail As Outlook.MailItem Dim objWordDocument As Word.Document Dim objWordRange As Word.Range Dim VarPosition As Variant Sub JumpToEnd() 'Λειτουργεί μόνο εάν το τρέχον email χρησιμοποιεί πρόγραμμα επεξεργασίας κειμένου Set objCurrentMail = Outlook.Application.ActiveInspector.CurrentItem Set objWordDocument = objCurrentMail.GetInspector.WordEditor If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.End - 1 Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub Sub JumpToStart() If Not (objWordDocument Is Nothing) Then VarPosition = objWordDocument.Range.Start Set objWordRange = objWordDocument.Range(VarPosition, VarPosition) objWordRange.Select End If End Sub
- Μετά από αυτό, καλύτερα να προσθέσετε τις δύο νέες υπορουτίνες στη γραμμή εργαλείων γρήγορης πρόσβασης του παραθύρου μηνυμάτων.
- Αρχικά, ανοίξτε ένα email στο παράθυρο μηνυμάτων.
- Στη συνέχεια, κάντε κλικ στο κάτω βέλος στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Από την αναπτυσσόμενη λίστα, θα πρέπει να επιλέξετε "Περισσότερες εντολές".
- Στο επόμενο παράθυρο, μπορείτε να προσθέσετε τις μακροεντολές στη γραμμή εργαλείων γρήγορης πρόσβασης όπως το ακόλουθο στιγμιότυπο οθόνης:
- Τέλος, κάντε κλικ σε μια σειρά από "OK" για να αποθηκεύσετε τις αλλαγές.
- Τελικά, από εδώ και στο εξής, μπορείτε να μεταβείτε στην αρχή ή στο τέλος ενός email απλώς κάνοντας κλικ στο κουμπί στη Γραμμή εργαλείων γρήγορης πρόσβασης, το οποίο εμφανίζεται στην ακόλουθη εικόνα:
Τι γίνεται αν το αρχείο PST παραβιαστεί
Λόγω του γεγονότος ότι το αρχείο PST είναι επιρρεπές σε σφάλματα και καταστροφή, θα πρέπει να καταβάλετε κάθε δυνατή προσπάθεια για να προστατεύσετε τα δεδομένα σας PST. Για παράδειγμα, πρέπει να δημιουργείτε αντίγραφα ασφαλείας του αρχείου PST σε περιοδική βάση. Επιπλέον, για να μπορέσουμε να επιστρέψουμε κατεστραμμένο PST δεδομένα εγκαίρως, καλύτερα να κρατήσετε ένα ισχυρό εργαλείο σε κοντινή απόσταση, όπως π.χ DataNumen Outlook Repair. Εξειδικεύεται στη διόρθωση προβλημάτων PST και στην ανάκτηση δεδομένων PST.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων SQL Server σταθερός και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com