Cara Menyesuaikan Teks Bendera dalam Item yang Dibenderakan di Outlook Anda

Apabila anda menandakan item, teks bendera lalai adalah "Tindak Lanjut". Sekiranya anda ingin menyesuaikannya, anda boleh membaca artikel ini. Di sini kami akan mengajar anda untuk menggunakan VBA untuk merealisasikannya.

Secara lalai, ketika anda menandai item, catatannya adalah "Tindak Lanjut". Sekiranya anda ingin mengubahnya, anda harus memilih opsi bendera "Custom" dan kemudian memasukkan teks yang anda inginkan di kotak dialog pop timbul. Sekiranya anda sering perlu memberikan teks bendera khusus, anda pasti tidak menyukai cara di atas kerana terlalu menyusahkan. Oleh itu, di sini kami akan berkongsi kaedah pintar. Ini secara langsung akan menyesuaikan teks bendera sesuai dengan keinginan anda. Sekarang, baca terus untuk mendapatkan langkah terperinci.

Sesuaikan Teks Bendera dalam Item yang Dibenderakan

1. Untuk sebagaitart, ubah tetapan makro mengikut “Cara Menjalankan Kod VBA di Outlook Anda".
2. Kemudian, tekan "Alt + F11" untuk mengakses editor VBA.
3. Seterusnya, buka projek "ThisOutlookSession" dan tampal kod berikut.

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. Selepas itu, restart Outlook anda untuk mengaktifkan makro ini.
5. Akhirnya, anda boleh mencuba.

• Pertama, pilih atau buka item Outlook.
• Kemudian, benderakan seperti biasa.
• Sekali gus, anda akan melihat teks bendera khusus yang ditugaskan untuk item ini, seperti yang ditunjukkan pada gambar berikut.

Bagaimana Sekiranya Fail PST Tidak Dapat Diakses

Telah terbukti bahawa fail Outlook terdedah kepada kerosakan kerana pelbagai faktor. Contohnya, jika anda sering menutup aplikasi Outlook dengan tidak betul atau anda memuat turun lampiran berbahaya, fail PST mungkin rosak. Pada masa itu, pilihan pertama anda adalah menggunakan alat pembaikan terpasang - Scanpst. Namun, jika gagal, anda tidak mempunyai pilihan selain untuk menggunakan utiliti luaran yang lebih profesional, seperti DataNumen Outlook Repair, yang sangat dihargai kerana tinggi Pemulihan PST kadar.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk rasuah SQL Server dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com