Το Outlook δεν διαθέτει εγγενή δυνατότητα για να ορίσει την προεπιλεγμένη γραμματοσειρά για το αντικείμενο επαφής, συνάντησης και εργασίας. Επομένως, εάν θέλετε να καθορίσετε τη γραμματοσειρά, μπορείτε να καταφύγετε στη μέθοδο που εισάγεται σε αυτό το άρθρο.
Όπως το email, το ραντεβού του Outlook, η εργασία και η επαφή έχουν επίσης το πεδίο σώματος, στο οποίο μπορούμε να συμπληρώσουμε τα στοιχεία του αντικειμένου. Ωστόσο, το Outlook επιτρέπει στους χρήστες μόνο να ορίσουν την προεπιλεγμένη γραμματοσειρά που χρησιμοποιείται στο σώμα του email. Εάν θέλετε να καθορίσετε τη γραμματοσειρά στο σώμα επαφής, συνάντησης ή εργασίας, πρέπει να αναζητήσετε άλλα μέσα, όπως πρόσθετα τρίτων ή το Outlook VBA. Εδώ θα σας μάθουμε αναλυτικά πώς να χρησιμοποιείτε το VBA για να το αποκτήσετε. Διαβάστε παρακάτω για να μάθετε τα λεπτομερή βήματα και τους αντίστοιχους κωδικούς VBA.
Ορίστε την προεπιλεγμένη γραμματοσειρά για το κύριο μέρος της συνάντησης, της εργασίας και της επαφής
- Στην αρχή, starστο πρόγραμμά σας Outlook.
- Στη συνέχεια, πατήστε τα πλήκτρα "Alt + F11" για να εκκινήσετε το πρόγραμμα επεξεργασίας VBA του Outlook.
- Στο αναδυόμενο παράθυρο, πρέπει να ανοίξετε το έργο "ThisOutlookSession".
- Στη συνέχεια, αντιγράψτε τους ακόλουθους κωδικούς VBA σε αυτό το παράθυρο έργου.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objInspector As Outlook.Inspector
Public Sub Application_Startup()
Set objInspectors = Outlook.Application.Inspectors
End Sub
Public Sub objInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
Set objInspector = Inspector
End Sub
Public Sub objInspector_Activate()
Dim objCurrentItem As Object
Dim objCurrentInspector As Outlook.Inspector
Dim objWordDocument As Word.Document
Dim objWordSelection As Word.Selection
Set objCurrentItem = objInspector.CurrentItem
Set objCurrentInspector = objCurrentItem.GetInspector
Set objWordDocument = objCurrentInspector.WordEditor
Set objWordSelection = objWordDocument.Application.Selection
'You change the font as per your preference
Select Case objCurrentItem.Class
Case olContact
With objWordSelection.Font
.Name = "Segoe Script"
.ColorIndex = wdRed
.Size = 8
.Bold = True
End With
Case olAppointment
With objWordSelection.Font
.Name = "Comic Sans MS"
.ColorIndex = wdBlue
.Size = 9
.Bold = False
End With
Case olTask
With objWordSelection.Font
.Name = "MV Boli"
.ColorIndex = wdGreen
.Size = 10
.Bold = True
End With
End Select
End Sub
- Μετά από αυτό, πρέπει να υπογράψετε αυτόν τον κωδικό.
- Αρχικά, δημιουργήστε ένα ψηφιακό πιστοποιητικό από Digital Certificates για έργα VBA.
- Στη συνέχεια, αντιστοιχίστε αυτό το πιστοποιητικό στη νέα μακροεντολή.
- Αργότερα, θα μπορούσατε να αλλάξετε τις ρυθμίσεις μακροεντολών του Outlook για να επιτρέψετε τις μακροεντολές με ψηφιακή υπογραφή.
- Τελικά εσύ start το Outlook σας για να ενεργοποιήσετε το νέο έργο VBA. Από εδώ και στο εξής, όταν δημιουργείτε μια νέα επαφή, συνάντηση ή εργασία, το σώμα θα χρησιμοποιεί την προεπιλεγμένη γραμματοσειρά του, όπως το ακόλουθο στιγμιότυπο οθόνης:
Προστατέψτε τα δεδομένα PST σας από τη διαφθορά
Λόγω του γεγονότος ότι το αρχείο PST του Outlook είναι επιρρεπές σε σφάλματα και καταστροφή, πρέπει να δώσετε μεγάλη προσοχή στις προστασίες PST. Για παράδειγμα, θα πρέπει να προσέχετε τα μηνύματα ηλεκτρονικού ταχυδρομείου από άγνωστες πηγές, καθώς μπορεί να είναι κακόβουλα μηνύματα ηλεκτρονικού ταχυδρομείου με ιούς. Μόλις το αρχείο σας PST μολυνθεί, θα πρέπει να επιστρέψετε σε ένα αξιόπιστο και καλά αποδεδειγμένο εργαλείο επιδιόρθωσης, όπως π.χ. DataNumen Outlook Repair, Η οποία μπορεί να επισκευή PST αρχείο σαν ένα αεράκι.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων σταθερός SQL Server και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com