Outlook nu are nicio funcție nativă pentru a seta fontul implicit pentru corpul contactului, programarea și elementul de activitate. Astfel, dacă doriți să specificați fontul, puteți recurge la metoda introdusă în acest articol.
La fel ca e-mailul, programarea Outlook, sarcina și contactul au și câmpul body, în care putem completa detaliile articolului. Cu toate acestea, Outlook permite utilizatorilor doar să seteze fontul implicit utilizat în corpul e-mailului. Dacă doriți să specificați fontul în corpul contactului, al programului sau al sarcinii, trebuie să căutați alte mijloace, cum ar fi suplimente terțe sau Outlook VBA. Aici vă vom învăța în mod elaborat cum să utilizați VBA pentru a-l obține. Citiți mai departe pentru a afla pașii detaliați și codurile VBA corespunzătoare.
Setați fontul implicit pentru Corpul de numire, Sarcină și Contact
- De la bun început, start programul dvs. Outlook.
- Apoi apăsați butoanele tastei „Alt + F11” pentru a lansa editorul Outlook VBA.
- În fereastra pop-up, trebuie să deschideți proiectul „ThisOutlookSession”.
- Ulterior, copiați următoarele coduri VBA în această fereastră de proiect.
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
- După aceea, trebuie să semnați acest cod.
- Mai întâi, creați un certificat digital prin certificate digitale pentru proiecte VBA.
- Apoi atribuiți acest certificat noii macrocomenzi.
- Mai târziu, puteți modifica setările macrocomenzilor Outlook pentru a permite macrocomenzile semnate digital.
- În cele din urmă tu starla Outlook pentru a activa noul proiect VBA. De acum înainte, când creați o nouă persoană de contact, o întâlnire sau o sarcină, body va folosi fontul implicit, cum ar fi următoarea captură de ecran:
Protejați-vă datele PST împotriva corupției
Datorită faptului că fișierul PST Outlook este predispus la erori și corupție, trebuie să acordați multă atenție protecțiilor PST. De exemplu, ar trebui să aveți grijă de e-mailurile din surse necunoscute, deoarece pot fi e-mailuri rău intenționate cu viruși. Odată ce fișierul dvs. PST este infectat, trebuie să recurgeți la un instrument de remediere reputat și bine dovedit, cum ar fi DataNumen Outlook Repair, care poate repara PST dosar ca o briză.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv stabili SQL Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com