VBA арқылы байланыс, тағайындау және тапсырма денесіне әдепкі қаріпті қалай орнатуға болады

Outlook бағдарламасында контакт, кездесу және тапсырма денесі үшін әдепкі қаріпті орнататын жергілікті мүмкіндік жоқ. Осылайша, қаріпті көрсеткіңіз келсе, осы мақалада енгізілген әдіске жүгіне аласыз.

Электрондық пошта сияқты, Outlook кездесуі, тапсырмасы мен байланысының негізгі бөлігі де бар, онда біз элементтің мәліметтерін толтыра аламыз. Алайда, Outlook пайдаланушыларға электрондық пошта денесінде қолданылатын әдепкі қаріпті орнатуға ғана рұқсат береді. Егер сіз байланыс, кездесу немесе тапсырма мазмұнында қаріпті көрсеткіңіз келсе, басқа құралдарды іздеуіңіз керек, мысалы, үшінші тарап қондырмалары немесе Outlook VBA. Мұнда біз сізге VBA-ны алу үшін оны егжей-тегжейлі үйретеміз. Егжей-тегжейлі қадамдар мен тиісті VBA кодтарын білу үшін оқыңыз.

Кездесу, тапсырма және байланыс корпусы үшін әдепкі қаріпті орнатыңыз

1. Ең басында, сtarсіздің Outlook бағдарламаңыз.
2. Одан кейін Outlook VBA редакторын іске қосу үшін «Alt + F11» батырмаларын басыңыз.
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жаңа VBA жобасын іске қосу үшін Outlook бағдарламасын іске қосыңыз. Бұдан былай сіз жаңа контакт, кездесу немесе тапсырма жасаған кезде, орган келесі скриншот сияқты өзінің әдепкі қарпін қолданады:

PST деректерін сыбайлас жемқорлықтан қорғаңыз

Outlook PST файлы қателіктер мен бұзылуларға бейім болғандықтан, сіз PST қорғауларына көп көңіл бөлуіңіз керек. Мысалы, сіз белгісіз көздерден келген электрондық хаттардан, олар вирустық зиянды хаттардан сақ болуыңыз керек. PST файлын жұқтырғаннан кейін, сіз беделді және дәлелденген түзету құралына жүгінуіңіз керек, мысалы DataNumen Outlook Repairмүмкін жөндеу PST самал сияқты файл.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бекіту SQL Server және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com