Cara Menetapkan Bendera Klik Cepat yang Berbeda untuk Berbagai Jenis Item Outlook

"Quick Click Flag" mengacu pada bendera default saat Anda mengklik tunggal kolom bendera dari item Outlook. Outlook hanya memungkinkan Anda menyetel satu bendera klik cepat apa pun tipe itemnya. Jadi, jika Anda ingin menyetel tanda klik cepat yang berbeda berdasarkan jenis item, Anda dapat menggunakan cara yang diperkenalkan di artikel ini.

Untuk menyetel bendera klik cepat, Anda dapat mengeklik kanan pada kolom "bendera" dari sebuah item dan memilih "Setel Klik Cepat". Kemudian, di kotak dialog kecil popup, pilih bendera sesuka hati. Secara default, Outlook akan menerapkan tanda klik cepat ini untuk semua jenis item. Namun demikian, pada kenyataannya, sebagian besar pengguna berharap untuk menerapkan tanda klik cepat yang berbeda ke berbagai jenis item Outlook. Oleh karena itu, berikut ini, kami akan mengajari Anda mendapatkannya menggunakan contoh email dan kontak.

Tetapkan Bendera Klik Cepat Berbeda untuk Berbagai Jenis Item Outlook

1. Pada awalnya, start Editor Outlook VBA dengan referensi ke “Cara Menjalankan Kode VBA di Outlook Anda".
2. Kemudian, salin kode VBA di bawah ini ke dalam proyek "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. Setelah itu, letakkan kursor ke dalam “Application_Startup ”subrutin dan tekan tombol“ F5 ”untuk mengaktifkan makro ini.
4. Akhirnya, Anda bisa mencobanya.

• Pilih email dan klik kolom "Bendera". Segera, bendera "Besok" akan ditambahkan ke email.
• Kemudian, lakukan promosi ke kontak dan klik kolom "Bendera". Segera, bendera "Hari Ini" akan ditambahkan ke kontak yang dipilih.

Larang Email Berbahaya

Meskipun makro berkontribusi banyak pada pekerjaan kami di Outlook, Anda tetap berhati-hati terhadap makro, terutama yang berasal dari email eksternal yang tidak dikenal. Itu karena makro mungkin berisi virus, yang dapat menyerang data Outlook Anda dengan mudah. Setelah file Outlook Anda terinfeksi, selain membunuh virus, Anda juga harus memperbaiki file Outlook tersebut. Umumnya, alat perbaikan kotak masuk tidak akan berpengaruh. Resor Anda satu-satunya adalah pihak ketiga yang lebih kuat dan layak kredit Perbaikan Outlook alat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com