Sådan indstilles standardskrifttypen for kontakttekst, aftale og opgave via VBA

Outlook har ingen indbygget funktion til at indstille standardskrifttypen for brødteksten af ​​kontaktperson, aftale og opgaveelement. Så hvis du vil angive skrifttypen, kan du ty til den metode, der er introduceret i denne artikel.

Ligesom mailen har Outlook aftale, opgave og kontakt også brødtekstfeltet, hvori vi kan udfylde vareoplysningerne. Men Outlook tillader kun brugere at indstille standardskrifttypen, der bruges i e-mail-brødteksten. Hvis du ønsker at specificere skrifttypen i kontaktteksten, aftalen eller opgaven, skal du søge andre midler, såsom tredjeparts-tilføjelser eller Outlook VBA. Her vil vi udførligt lære dig, hvordan du bruger VBA til at få det. Læs videre for at lære de detaljerede trin og tilsvarende VBA-koder.

Indstil standardskrifttypen for indholdet af aftale, opgave og kontakt

1. Fra begyndelsen, start dit Outlook-program.
2. Tryk derefter på "Alt + F11"-tasterne for at starte Outlook VBA-editor.
3. I pop op-vinduet skal du åbne "ThisOutlookSession"-projektet.
4. Kopier derefter følgende VBA-koder til dette projektvindue.

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

5. Derefter skal du underskrive denne kode.

• Først skal du oprette et digitalt certifikat af digitale certifikater til VBA-projekter.
• Tildel derefter dette certifikat til den nye makro.

6. Senere kan du ændre dine Outlook-makroindstillinger for at tillade de digitalt signerede makroer.
7. Endelig er du start din Outlook for at aktivere det nye VBA-projekt. Fra nu af, når du opretter en ny kontakt, aftale eller opgave, vil body bruge sin standardskrifttype, som følgende skærmbillede:

Beskyt dine PST-data mod korruption

På grund af det faktum, at Outlook PST-fil er tilbøjelig til fejl og korruption, skal du være meget opmærksom på PST-beskyttelse. For eksempel skal du passe på e-mails fra ukendte kilder, da de kan være ondsindede e-mails med virus. Når først din PST-fil bliver inficeret, skal du vende tilbage til et velrenommeret og velafprøvet fixværktøj, som f.eks. DataNumen Outlook Repair, Hvilket kan reparation PST fil som en leg.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder fastsætte SQL Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com