Farklı Outlook Öğeleri Türleri İçin Farklı Hızlı Tıklama Bayrakları Nasıl Ayarlanır

"Hızlı Tıklama Bayrağı", bir Outlook öğesinin bayrak sütununu tek tıklattığınızda varsayılan bayrağı ifade eder. Outlook, öğe türünden bağımsız olarak yalnızca bir hızlı tıklama bayrağı ayarlamanıza izin verir. Bu nedenle, öğe türlerine göre farklı hızlı tıklama bayrakları ayarlamak isterseniz, bu makalede açıklanan yöntemi kullanabilirsiniz.

Hızlı tıklama bayrağını ayarlamak için, bir öğenin "işaret" sütununa sağ tıklayıp "Hızlı Tıklamayı Ayarla"yı seçebilirsiniz. Ardından, açılan küçük iletişim kutusunda istediğiniz gibi bayrağı seçin. Varsayılan olarak, Outlook bu hızlı tıklama bayrağını her tür öğe için uygular. Bununla birlikte, gerçekte, kullanıcıların çoğu, farklı türdeki Outlook öğelerine farklı hızlı tıklama bayrakları uygulamayı umuyor. Bu nedenle, aşağıda, e-posta ve kişiler örneğini kullanarak size bunu nasıl alacağınızı öğreteceğiz.

Farklı Outlook Öğesi Türleri İçin Farklı Hızlı Tıklama Bayrakları Ayarlayın

1. En başta, star“ “ referansıyla Outlook VBA düzenleyicisiOutlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
2. Ardından aşağıdaki VBA kodunu “ThisOutlookSession” projesine kopyalayı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, imleci “Application_Startup” alt yordamı ve bu makroyu etkinleştirmek için “F5” tuşuna basın.
4. Sonunda, bir deneyebilirsin.

• Bir e-posta seçin ve "İşaretle" sütununa tıklayın. Hemen, e-postaya "Yarın" bayrağı eklenecektir.
• Ardından, bir kişiye adım atın ve "Bayrak" sütununa tıklayın. Hemen, seçilen kişiye “Bugün” bayrağı eklenecektir.

Kötü Amaçlı E-postaları Engelleyin

Makro, Outlook'ta çalışmamıza çok katkıda bulunsa da, makrolara, özellikle de harici bilinmeyen e-postalardan gelenlere dikkat etmeye devam edersiniz. Bunun nedeni, makroların Outlook verilerinize kolaylıkla saldırabilecek virüsler içermesidir. Outlook dosyanıza virüs bulaştığında, virüsleri öldürmenin yanı sıra, Outlook dosyasını onarmanız gerekir. Genel olarak, gelen kutusu onarım aracı etki yapmaz. Tek çareniz, daha güçlü ve güvenilir bir üçüncü şahıstır. Outlook düzeltmesi araç, örneğin DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com