Kuidas kohandada oma Outlookis märgistatud üksuste liputekste

Outlooki lahendused September 29, 2025

Kui märgistate üksuse, on lipu vaiketekst "Jälgimine". Kui soovite seda kohandada, lugege seda artiklit. Siin õpetame teid selle realiseerimiseks kasutama VBA-d.

Vaikimisi on üksuse märgistamise ajal märkus „Jälgimine”. Kui soovite seda muuta, peate valima lipuvaliku "Kohandatud" ja seejärel sisestama soovitud teksti hüpikaknasse. Kui teil on sageli vaja määrata konkreetseid kohandatud liputekste, siis ülaltoodud viis teile kindlasti ei meeldi, kuna see on liiga tülikas. Seetõttu jagame siin nutikat meetodit. See kohandab lipu tekste otse teie maitse järgi. Nüüd lugege edasi, et saada üksikasjalikke juhiseid.

Lipu vaiketekstid märgistatud üksustes

Kohandage märgistatud üksuste liputekste

  1. Alustuseks muutke makro seadeid vastavalt jaotisele „Kuidas Outlookis VBA-koodi käivitada".
  2. Seejärel vajutage VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
  3. Järgmisena avage projekt "ThisOutlookSession" ja kleepige järgmine kood.
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

VBA kood – kohandage märgistatud üksuste liputekste

  1. Pärast seda taaskäivitage Outlook selle makro aktiveerimiseks.
  2. Lõpuks võite proovida.
  • Kõigepealt valige või avage Outlooki üksus.
  • Seejärel märgistage see nagu tavaliselt.
  • Kohe näete sellele üksusele määratud kohandatud liputekste, nagu on näidatud järgmisel joonisel.Kohandatud lipu tekstid märgistatud üksustes

Mis siis, kui PST-fail muutub kättesaamatuks?

On tõestatud, et Outlooki fail on erinevate tegurite tõttu korruptsiooniohtlik. Näiteks kui sulgete sageli Outlooki rakenduse valesti või laadite kogemata alla pahatahtlikud manused, võib PST-fail olla rikutud. Sel ajal on teie esimene abinõu kasutada sisseehitatud remonditööriista – Scanpst. Kuid kui see ebaõnnestub, ei jää teil muud üle, kui pöörduda mõne professionaalsema välise utiliidi poole, näiteks DataNumen Outlook Repair, mida on kõrgelt hinnatud PST taastamine määra.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas korrumpeerunud SQL Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.