Kā pielāgot karšu tekstus atzīmētajos vienumos jūsu programmā Outlook

Kopīgot tūlīt:

Atzīmējot vienumu, noklusējuma karodziņa teksts ir “Sekošana”. Ja vēlaties to pielāgot, varat izlasīt šo rakstu. Šeit mēs iemācīsim jums izmantot VBA, lai to realizētu.

Pēc noklusējuma, atzīmējot vienumu, piezīme ir “Sekošana”. Ja vēlaties to mainīt, jums jāizvēlas opcija “Pielāgots” un pēc tam uznirstošajā dialoglodziņā jāievada vēlamais teksts. Ja jums bieži jāpiešķir īpašs pielāgots karodziņa teksts, jums noteikti nepatiks iepriekš minētais veids, jo tas ir pārāk apgrūtinošs. Tāpēc šeit mēs dalīsimies ar viedo metodi. Tas tieši pielāgos karodziņa tekstus pēc jūsu gaumes. Tagad lasiet tālāk, lai iegūtu detalizētas darbības.

Noklusētie karodziņu teksti atzīmētos vienumos

Pielāgojiet karodziņu tekstus atzīmētajos vienumos

  1. Vispirms mainiet makro iestatījumus atbilstoši “Kā palaist VBA kodu programmā Outlook".
  2. Pēc tam nospiediet “Alt + F11”, lai piekļūtu VBA redaktoram.
  3. Pēc tam atveriet projektu “ThisOutlookSession” un ielīmējiet šo kodu.
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 kods - pielāgojiet karodziņu tekstus atzīmētajos priekšmetos

  1. Pēc tam restartējiet programmu Outlook, lai aktivizētu šo makro.
  2. Visbeidzot, jūs varat izmēģināt.
  • Pirmkārt, atlasiet vai atveriet Outlook vienumu.
  • Pēc tam atzīmējiet to kā parasti.
  • Uzreiz redzēsiet šim vienumam piešķirtos pielāgotos karodziņu tekstus, kā parādīts nākamajā attēlā.Pielāgoti karogu teksti atzīmētos priekšmetos

Ko darīt, ja PST fails kļūst nepieejams

Ir pierādīts, ka Outlook fails dažādu faktoru dēļ ir pakļauts korupcijai. Piemēram, ja bieži nepareizi aizverat Outlook lietojumprogrammu vai nejauši lejupielādējat kaitīgos pielikumus, PST fails var būt bojāts. Tajā laikā jūsu pirmais kūrorts ir izmantot iebūvēto remonta rīku - Scanpst. Tomēr, ja tas neizdodas, jums nekas cits neatliek kā atgriezties pie profesionālākas ārējas utilītas, piemēram DataNumen Outlook Repair, kas ir augstu novērtēts tā augstā līmeņa dēļ PST atkopšana likme.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāt SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar

Kopīgot tūlīt:

Komentāri ir slēgti.