Hur du anpassar flaggtexterna i flaggade objekt i din Outlook

När du flaggar ett objekt är standardflaggtexten ”Uppföljning”. Om du vill anpassa den kan du läsa den här artikeln. Här lär vi dig att använda VBA för att förverkliga det.

Som standard är anteckningen ”Uppföljning” när du flaggar ett objekt. Om du vill ändra det måste du välja flaggan "Anpassad" och sedan skriva in önskad text i popup-dialogrutan. Om du ofta behöver tilldela specifika anpassade flaggtexter, kommer du säkert att ogillar ovanstående sätt eftersom det är för besvärligt. Därför delar vi här en smart metod. Det kommer att anpassa flaggtexterna direkt efter eget tycke. Läs vidare för att få detaljerade steg.

Anpassa flaggtexterna i flaggade objekt

1. För somtarändra makroinställningarna enligt “Hur du kör VBA-kod i din Outlook".
2. Tryck sedan på “Alt + F11” för att komma åt VBA-redigeraren.
3. Öppna sedan projektet “ThisOutlookSession” och klistra in följande kod.

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. Efter det, restart din Outlook för att aktivera detta makro.
5. Slutligen kan du prova.

• Välj först eller öppna ett Outlook-objekt.
• Flagga sedan som vanligt.
• På en gång ser du de anpassade flaggtexter som tilldelats det här objektet, som visas i följande bild.

Vad händer om PST-fil blir otillgänglig

Det har bevisats att Outlook-filen är utsatt för korruption på grund av olika faktorer. Om du till exempel ofta stänger ditt Outlook-program felaktigt eller om du av misstag laddar ner skadliga bilagor kan PST-filen vara skadad. Vid den tiden är din första utväg att använda det inbyggda reparationsverktyget - Scanpst. Ändå, om det misslyckas, har du inget annat val än att återgå till ett mer professionellt externt verktyg, som DataNumen Outlook Repair, som har uppskattats mycket på grund av dess höga PST-återhämtning Betygsätta.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive korrupta SQL Server och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com