Ինչպես սահմանել կանխադրված տառատեսակը կոնտակտային մարմնի, նշանակման և առաջադրանքի համար VBA-ի միջոցով

Outlook-ը չունի բնօրինակ հատկություն՝ կոնտակտային մարմնի, նշանակման և առաջադրանքի տարրի լռելյայն տառատեսակը սահմանելու համար: Այսպիսով, եթե ցանկանում եք նշել տառատեսակը, կարող եք դիմել այս հոդվածում ներկայացված մեթոդին:

Ինչպես էլփոստը, Outlook-ի նշանակումը, առաջադրանքը և կոնտակտը նույնպես ունեն մարմնի դաշտ, որտեղ մենք կարող ենք լրացնել ապրանքի մանրամասները: Այնուամենայնիվ, Outlook-ը թույլ է տալիս օգտատերերին միայն սահմանել էլփոստի տեքստում օգտագործվող լռելյայն տառատեսակը: Եթե ​​ցանկանում եք նշել տառատեսակը կոնտակտի, նշանակման կամ առաջադրանքի մեջ, դուք պետք է փնտրեք այլ միջոցներ, օրինակ՝ երրորդ կողմի հավելումներ կամ Outlook VBA: Այստեղ մենք մանրամասն կսովորեցնենք ձեզ, թե ինչպես օգտագործել VBA-ն այն ստանալու համար: Կարդացեք՝ մանրամասն քայլերին և համապատասխան VBA կոդերին ծանոթանալու համար:

Սահմանեք նախնական տառատեսակը նշանակման մարմնի, առաջադրանքի և կոնտակտի համար

1. Սկզբում գործարկեք ձեր Outlook ծրագիրը։
2. Այնուհետև սեղմեք «Alt + F11» կոճակները՝ Outlook VBA խմբագրիչը գործարկելու համար:
3. Բացվող պատուհանում դուք պետք է բացեք «ThisOutlookSession» նախագիծը:
4. Հետևաբար, պատճենեք հետևյալ VBA կոդերը ծրագրի այս պատուհանում:

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. Դրանից հետո դուք պետք է ստորագրեք այս կոդը:

• Նախ, թվային վկայական ստեղծեք թվային վկայագրերի կողմից VBA նախագծերի համար:
• Այնուհետև այս վկայականը նշանակեք նոր մակրո:

6. Ավելի ուշ դուք կարող եք փոխել ձեր Outlook մակրո կարգավորումները՝ թվային ստորագրված մակրոները թույլատրելու համար:
7. Վերջապես, դուք գործարկում եք ձեր Outlook-ը՝ նոր VBA նախագիծը ակտիվացնելու համար: Այսուհետ, երբ դուք ստեղծում եք նոր կոնտակտ, հանդիպում կամ առաջադրանք, տեքստը կօգտագործի իր լռելյայն տառատեսակը, ինչպես հետևյալ էկրանի նկարում.

Պաշտպանեք ձեր PST տվյալները կոռուպցիայի դեմ

Շնորհիվ այն բանի, որ Outlook PST ֆայլը հակված է սխալի և կոռուպցիայի, դուք պետք է մեծ ուշադրություն դարձնեք PST պաշտպանությանը: Օրինակ, դուք պետք է զգուշանաք անհայտ աղբյուրներից ստացված էլ. նամակներից, քանի որ դրանք կարող են լինել վիրուսներով վնասակար նամակներ: Երբ ձեր PST ֆայլը վարակվի, դուք պետք է նորից դիմեք հեղինակավոր և լավ ապացուցված ուղղման գործիքին, ինչպիսին է. DataNumen Outlook Repair, որը կարող է վերանորոգել PST քամու նման

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում ուղղել SQL Server և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com