Outlook-dagi bayroqchali elementlardagi bayroq matnlarini qanday sozlash mumkin

Ob'ektni belgilaganingizda, standart bayroq matni "Kuzatuv" bo'ladi. Agar siz uni moslashtirmoqchi bo'lsangiz, ushbu maqolani o'qishingiz mumkin. Bu erda biz sizga buni amalga oshirish uchun VBA dan foydalanishni o'rgatamiz.

Odatiy bo'lib, biror narsani belgilaganingizda, eslatma "Kuzatuv" bo'ladi. Agar siz uni o'zgartirmoqchi bo'lsangiz, "Maxsus" bayroq opsiyasini tanlashingiz va keyin ochilgan dialog oynasiga kerakli matnni kiritishingiz kerak. Agar siz tez-tez ma'lum bir moslashtirilgan bayroq matnlarini belgilashingiz kerak bo'lsa, yuqoridagi usul sizga yoqmaydi, chunki bu juda qiyin. Shuning uchun, biz bu erda aqlli usulni baham ko'ramiz. U bayroq matnlarini bevosita sizning xohishingizga moslashtiradi. Endi uning batafsil qadamlarini olish uchun o'qing.

Belgilangan elementlardagi bayroq matnlarini moslashtiring

1. Boshlash uchun, makro sozlamalarini "ga muvofiq o'zgartiringOutlook-da VBA kodini qanday ishlatish kerak".
2. Keyin VBA muharririga kirish uchun "Alt + F11" tugmasini bosing.
3. Keyin, "ThisOutlookSession" loyihasini oching va quyidagi kodni joylashtiring.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.currentItem.Class = olMail Then
       Set objMail = Inspector.currentItem
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim strFlagRequest As String
 
    If Name = "FlagStatus" Then
       If objMail.IsMarkedAsTask = True Then
          If objMail.FlagStatus <> olFlagComplete And objMail.FlagStatus <> olNoFlag Then
             'Enter your preferred note
             objMail.FlagRequest = "Custom Flag texts"
             objMail.Save
         End If
       End If
    End If
End Sub

4. Shundan so'ng, ushbu so'lni faollashtirish uchun Outlook-ni qayta ishga tushiring.
5. Nihoyat, siz sinab ko'rishingiz mumkin.

• Birinchidan, Outlook elementini tanlang yoki oching.
• Keyin uni odatdagidek belgilang.
• Bir vaqtning o'zida siz quyidagi rasmda ko'rsatilganidek, ushbu elementga tayinlangan maxsus bayroq matnlarini ko'rasiz.

Agar PST fayliga kirish imkoni bo'lmasa nima bo'ladi?

Outlook fayli turli omillar tufayli buzilishlarga moyil ekanligi isbotlangan. Misol uchun, agar siz tez-tez Outlook ilovangizni noto'g'ri yopsangiz yoki tasodifan zararli qo'shimchalarni yuklab olsangiz, PST fayli buzilgan bo'lishi mumkin. O'sha paytda sizning birinchi chorangiz o'rnatilgan ta'mirlash vositasi - Scanpst-dan foydalanishdir. Shunga qaramay, agar u muvaffaqiyatsiz bo'lsa, sizda yana professional tashqi yordam dasturiga murojaat qilishdan boshqa tanlovingiz yo'q DataNumen Outlook Repair, bu uning yuqoriligi tufayli juda qadrlangan PSTni tiklash darajasi.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan SQL Server va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com