Kā iestatīt noklusējuma fontu kontaktpersonu, iecelšanas un uzdevuma ķermenim, izmantojot VBA

Programmā Outlook nav vietējas funkcijas, lai iestatītu noklusējuma fontu kontaktu pamattekstam, tikšanās un uzdevuma vienumam. Tādējādi, ja vēlaties norādīt fontu, varat izmantot šajā rakstā ieviesto metodi.

Tāpat kā e-pasts, arī Outlook iecelšanai, uzdevumam un kontaktpersonai ir ķermeņa lauks, kurā mēs varam aizpildīt informāciju par preci. Tomēr programma Outlook lietotājiem ļauj iestatīt tikai noklusējuma fontu, kas tiek izmantots e-pasta pamattekstā. Ja vēlaties norādīt fontu kontaktpersonu, tikšanās vai uzdevuma pamattekstā, jums jāmeklē citi līdzekļi, piemēram, trešo pušu pievienojumprogrammas vai Outlook VBA. Šeit mēs jums rūpīgi iemācīsim, kā izmantot VBA, lai to iegūtu. Lasiet tālāk, lai uzzinātu detalizētas darbības un atbilstošos VBA kodus.

Iestatiet noklusējuma fontu iecelšanas, uzdevumu un kontaktu pamattekstam

1. Jau pašā sākumā start savu Outlook programmu.
2. Pēc tam nospiediet taustiņu “Alt + F11”, lai palaistu Outlook VBA redaktoru.
3. Uznirstošajā logā ir jāatver projekts “ThisOutlookSession”.
4. Pēc tam šajā projekta logā nokopējiet šādus VBA kodus.

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. Pēc tam jums jāparaksta šis kods.

• Vispirms izveidojiet digitālo sertifikātu, izmantojot digitālos sertifikātus VBA projektiem.
• Pēc tam piešķiriet šo sertifikātu jaunajam makro.

6. Vēlāk jūs varat mainīt savus Outlook makro iestatījumus, lai atļautu digitāli parakstītus makro.
7. Beidzot jūs start, lai aktivizētu jauno VBA projektu. Turpmāk, izveidojot jaunu kontaktu, tikšanos vai uzdevumu, pamatteksts izmantos noklusējuma fontu, piemēram, šo ekrānuzņēmumu:

Aizsargājiet savus PST datus no korupcijas

Sakarā ar to, ka Outlook PST failā ir tendence uz kļūdām un korupciju, jums ir jāpievērš liela uzmanība PST aizsardzībai. Piemēram, jums vajadzētu piesargāties no e-pasta ziņojumiem no nezināmiem avotiem, jo ​​tie var būt ļaunprātīgi e-pasta ziņojumi ar vīrusiem. Kad jūsu PST fails ir inficēts, jums atkārtoti jāizmanto cienījams un labi pārbaudīts labošanas rīks, piemēram, DataNumen Outlook Repair, kas var remonts PST failu kā vēsma.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp noteikts SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar