Slik angir du standardfonten for hoveddelen av kontakt, avtale og oppgave via VBA

Outlook har ingen innebygd funksjon for å angi standardfonten for brødteksten til kontakt, avtale og oppgaveelement. Derfor, hvis du vil spesifisere fonten, kan du ty til metoden introdusert i denne artikkelen.

I likhet med e-posten har Outlook-avtale, oppgave og kontakt også brødtekstfeltet, der vi kan fylle ut varedetaljer. Men Outlook tillater bare brukere å angi standardfonten som brukes i e-postteksten. Hvis du vil spesifisere skrifttypen i kontaktteksten, avtalen eller oppgaven, må du søke andre måter, for eksempel tredjepartstillegg eller Outlook VBA. Her vil vi utførlig lære deg hvordan du bruker VBA for å få det. Les videre for å lære de detaljerte trinnene og tilsvarende VBA-koder.

Angi standardfonten for hoveddelen av avtale, oppgave og kontakt

1. Helt i begynnelsen, start Outlook-programmet ditt.
2. Trykk deretter "Alt + F11"-tastene for å starte Outlook VBA-redigering.
3. I popup-vinduet må du åpne "ThisOutlookSession" -prosjektet.
4. Kopier deretter følgende VBA-koder inn i dette prosjektvinduet.

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. Etter det må du signere denne koden.

• Først oppretter du et digitalt sertifikat av digitale sertifikater for VBA-prosjekter.
• Tilordne deretter dette sertifikatet til den nye makroen.

6. Senere kan du endre Outlook-makroinnstillingene for å tillate de digitalt signerte makroene.
7. Endelig du start Outlook for å aktivere det nye VBA-prosjektet. Fra nå av, når du oppretter en ny kontakt, avtale eller oppgave, vil body bruke standardfonten, som følgende skjermbilde:

Beskytt PST-dataene dine mot korrupsjon

På grunn av det faktum at Outlook PST-fil er utsatt for feil og korrupsjon, må du betale mye oppmerksomhet til PST-beskyttelse. For eksempel bør du passe deg for e-poster fra ukjente kilder ved at de kan være ondsinnede e-poster med virus. Når PST-filen din blir infisert, må du gå tilbake til et anerkjent og velprøvd fikseverktøy, som f.eks. DataNumen Outlook Repair, som kan reparere PST fil som en lek.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fastsette SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med