Cara Menetapkan Bendera Klik Pantas yang Berbeza untuk Berbagai Jenis Item Outlook

"Bendera Klik Pantas" merujuk pada bendera lalai ketika Anda mengklik satu kali pada lajur bendera item Outlook. Outlook hanya membolehkan anda menetapkan satu bendera klik pantas tanpa mengira jenis item. Oleh itu, jika anda ingin menetapkan bendera klik cepat yang berbeza berdasarkan jenis item, anda boleh menggunakan cara yang diperkenalkan dalam artikel ini.

Untuk mengatur bendera klik cepat, Anda dapat mengklik kanan pada kolom "bendera" item dan memilih "Tetapkan Klik Cepat". Kemudian, dalam kotak dialog kecil pop timbul, pilih bendera sesuka hati. Secara lalai, Outlook akan menggunakan bendera klik cepat ini untuk semua jenis item. Walaupun begitu, pada hakikatnya, sebilangan besar pengguna berharap dapat menerapkan bendera klik cepat yang berlainan untuk pelbagai jenis item Outlook. Oleh itu, berikut ini, kami akan mengajar anda mendapatkannya menggunakan contoh e-mel dan kenalan.

Tetapkan Bendera Klik Pantas Berbeza untuk Berbagai Jenis Item Outlook

1. Pada peringkat awal, start Outlook VBA editor dengan merujuk kepada "Cara Menjalankan Kod VBA di Outlook Anda".
2. Kemudian, salin kod VBA di bawah ke dalam projek "ThisOutlookSession".

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem
Public WithEvents objContact As Outlook.ContactItem

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

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

Private Sub objMail_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objMail.IsMarkedAsTask = True Then
          '"Tomorrow" Flag for Emails
          objMail.TaskStartDate = Now + 1
          objMail.Save
       End If
   End If
End Sub

Private Sub objContact_PropertyChange(ByVal Name As String)
    If Name = "ToDoTaskOrdinal" Then
       If objContact.IsMarkedAsTask = True Then
          '"Today" Flag for Contacts
          objContact.TaskStartDate = Date & " 17:00"
          objContact.Save
       End If
    End If
End Sub

3. Selepas itu, letakkan kursor ke dalam “Application_Starsubrutin tup "dan tekan kekunci" F5 "untuk mengaktifkan makro ini.
4. Akhirnya, anda boleh mencuba.

• Pilih e-mel dan klik lajur "Bendera". Sekali gus, bendera "Esok" akan ditambahkan ke e-mel.
• Kemudian, tekan kenalan dan klik lajur "Bendera" Segera, bendera "Hari Ini" akan ditambahkan ke kenalan yang dipilih.

Melarang E-mel Berbahaya

Walaupun makro banyak memberi sumbangan kepada kerja kami di Outlook, anda masih memerhatikan makro, terutama dari e-mel luaran yang tidak diketahui. Ini kerana makro mungkin mengandungi virus, yang dapat menyerang data Outlook anda dengan mudah. Setelah fail Outlook anda dijangkiti, selain membunuh virus, anda harus memperbaiki fail Outlook. Secara amnya, alat pembaikan peti masuk tidak akan memberi kesan. Satu-satunya tempat peranginan anda adalah pihak ketiga yang lebih kuat dan boleh dipercayai Pembaikan Outlook alat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

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