Müxtəlif növ Outlook elementləri üçün müxtəlif sürətli klik bayraqlarını necə təyin etmək olar

“Tez Klik Bayrağı” Outlook elementinin bayraq sütununa bir dəfə kliklədiyiniz zaman standart bayrağa aiddir. Outlook element növündən asılı olmayaraq yalnız bir sürətli klik bayrağı təyin etməyə imkan verir. Beləliklə, element növləri əsasında müxtəlif sürətli klik bayraqları təyin etmək istəyirsinizsə, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz.

Sürətli klik bayrağını təyin etmək üçün elementin “bayraq” sütununa sağ klikləyib “Tez klik təyin et” seçimini edə bilərsiniz. Sonra açılan kiçik dialoq qutusunda istəyə görə bayrağı seçin. Varsayılan olaraq, Outlook bütün növ elementlər üçün bu sürətli klik bayrağını tətbiq edəcəkdir. Buna baxmayaraq, əslində istifadəçilərin əksəriyyəti Outlook elementlərinin müxtəlif növlərinə müxtəlif sürətli klik bayraqlarını tətbiq etməyə ümid edir. Buna görə də, aşağıdakılarda biz sizə e-poçt və kontaktlar nümunəsindən istifadə edərək onu əldə etməyi öyrədəcəyik.

Müxtəlif növ Outlook elementləri üçün Fərqli Sürətli Klik Bayraqları təyin edin

1. Ən başlanğıcda, start Outlook VBA redaktoru “Outlook-da VBA kodunu necə işlətmək olar".
2. Sonra, aşağıdakı VBA kodunu “ThisOutlookSession” layihəsinə köçürün.

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. Daha sonra kursoru “Application_Startup” alt proqramını seçin və bu makronu aktivləşdirmək üçün “F5” düyməsini basın.
4. Nəhayət, bir cəhd edə bilərsiniz.

• E-poçtu seçin və “Bayraq” sütununa klikləyin. E-poçta dərhal “Sabah” bayrağı əlavə olunacaq.
• Sonra kontaktı göstərin və “Bayraq” sütununa klikləyin. Dərhal "Bu gün" bayrağı seçilmiş kontakta əlavə olunacaq.

Zərərli e-poçtları qadağan edin

Makro bizim Outlook-da işləməyimizə böyük töhfə versə də, siz hələ də makrolara, xüsusən də xarici naməlum e-poçtlardan gələnlərə diqqət yetirirsiniz. Bunun səbəbi, makroların Outlook məlumatlarınıza asanlıqla hücum edə bilən virusları ehtiva etməsidir. Outlook faylınıza yoluxduqdan sonra, virusları öldürməkdən başqa, Outlook faylını təmir etməlisiniz. Ümumiyyətlə, gələnlər qutusu təmir aləti effekt verməyəcək. Yeganə kurortunuz daha güclü və kreditə layiq üçüncü tərəfdir Outlook düzəlişi kimi alət DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com