როგორ დავაყენოთ ნაგულისხმევი შრიფტი კონტაქტის ორგანოსთვის, დანიშვნა და დავალება 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. ბოლოს თქვენ სtarთქვენი Outlook გააქტიურეთ ახალი VBA პროექტი. ამიერიდან, როდესაც თქვენ შექმნით ახალ კონტაქტს, დანიშვნას ან ამოცანას, სხეული გამოიყენებს თავის ნაგულისხმევ შრიფტს, როგორიცაა შემდეგი ეკრანის სურათი:

დაიცავით თქვენი PST მონაცემები კორუფციისგან

იმის გამო, რომ Outlook PST ფაილი მიდრეკილია შეცდომებისა და კორუფციისკენ, დიდი ყურადღება უნდა მიაქციოთ PST დაცვას. მაგალითად, ფრთხილად უნდა იყოთ უცნობი წყაროებიდან წერილებისგან, რადგან ისინი შეიძლება იყოს მავნე წერილები ვირუსებით. მას შემდეგ რაც თქვენი PST ფაილი დაინფიცირდება, თქვენ უნდა მიმართოთ რეპუტაციის მქონე და კარგად დადასტურებულ სარემონტო ინსტრუმენტს, როგორიცაა DataNumen Outlook Repair, რომელსაც შეუძლია PST შეკეთება ნიავივით ფაილი.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაფიქსირება SQL Server და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად