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

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

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

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

1. Հենց ամենասկզբում, սtarձեր 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. Վերջապես դուք starձեր Outlook-ը ակտիվացնելու նոր VBA նախագիծը: Այսուհետ, երբ դուք ստեղծեք նոր կոնտակտ, նշանակում կամ առաջադրանք, մարմինը կօգտագործի իր լռելյայն տառատեսակը, ինչպես հետևյալ սքրինշոթը.

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

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

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

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