Yhteyshenkilön, tapaamisen ja tehtävän oletusfontin asettaminen VBA:n kautta

Outlookissa ei ole alkuperäistä ominaisuutta oletusfontin määrittämiseksi yhteystietotekstiin, tapaamiseen ja tehtäväkohtaan. Jos siis haluat määrittää fontin, voit turvautua tässä artikkelissa esiteltyyn menetelmään.

Kuten sähköpostissa, myös Outlook-tapaamisessa, tehtävässä ja yhteyshenkilössä on body-kenttä, johon voimme täyttää tuotteen tiedot. Outlook sallii kuitenkin vain käyttäjien määrittää sähköpostin rungossa käytetyn oletusfontin. Jos haluat määrittää fontin yhteystiedoissa, tapaamisessa tai tehtävässä, sinun on etsittävä muita keinoja, kuten kolmannen osapuolen apuohjelmia tai Outlook VBA:ta. Täällä opetamme yksityiskohtaisesti kuinka VBA:ta käytetään sen hankkimiseen. Lue yksityiskohtaiset vaiheet ja vastaavat VBA-koodit.

Aseta oletusfontti nimitystekstiin, tehtävään ja yhteyshenkilöön

1. Heti alussa start Outlook-ohjelmasi.
2. Paina sitten Alt + F11 -näppäinpainikkeita käynnistääksesi Outlook VBA -editorin.
3. Ponnahdusikkunassa sinun on avattava "ThisOutlookSession" -projekti.
4. Kopioi sitten seuraavat VBA-koodit tähän projektiikkunaan.

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. Sen jälkeen sinun on allekirjoitettava tämä koodi.

• Luo ensin digitaalinen varmenne VBA-projekteille Digital Certificatesilla.
• Määritä sitten tämä varmenne uudelle makrolle.

6. Myöhemmin voit muuttaa Outlook-makroasetuksiasi salliaksesi digitaalisesti allekirjoitetut makrot.
7. Lopulta sinä start Outlookista aktivoidaksesi uuden VBA-projektin. Tästä eteenpäin, kun luot uuden yhteystiedon, tapaamisen tai tehtävän, runko käyttää oletusfonttiaan, kuten seuraavaa kuvakaappausta:

Suojaa PST-tietosi korruptiolta

Koska Outlook PST -tiedosto on altis virheille ja korruptiolle, sinun on kiinnitettävä paljon huomiota PST-suojauksiin. Sinun tulee esimerkiksi varoa tuntemattomista lähteistä tulevia sähköposteja, koska ne voivat olla haitallisia viruksia sisältäviä sähköposteja. Kun PST-tiedostosi saa tartunnan, sinun on valittava hyvämaineinen ja hyväksi havaittu korjaustyökalu, kuten DataNumen Outlook Repair, joka voi korjaa PST viilaa kuin tuulta.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjata SQL Server ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com