Kako nastaviti različne oznake hitrih klikov za različne vrste elementov Outlooka

»Oznaka za hitri klik« se nanaša na privzeto zastavico, ko z enim samim klikom kliknete stolpec zastavice v Outlookovem elementu. Outlook vam omogoča, da nastavite samo eno zastavico za hitri klik, ne glede na vrsto elementa. Torej, če želite na podlagi vrst elementov nastaviti različne zastavice za hitri klik, lahko uporabite način, predstavljen v tem članku.

Če želite nastaviti zastavico za hitri klik, lahko z desno miškino tipko kliknete stolpec »zastavica« elementa in izberete »Nastavi hitri klik«. Nato v pojavnem oknu izberite poljubno zastavico. Outlook bo to zastavico za hitri klik privzeto uporabil za vse vrste elementov. Kljub temu v resnici večina uporabnikov upa, da bo uporabila različne zastavice za hitri klik za različne vrste Outlookovih elementov. Zato vas bomo v nadaljevanju naučili, da ga dobite na primeru e-pošte in stikov.

Nastavite različne zastavice za hiter klik za različne vrste Outlookovih elementov

1. Na samem začetku je start Urejevalnik Outlook VBA s sklicevanjem na “Kako zagnati kodo VBA v Outlooku".
2. Nato kopirajte spodnjo kodo VBA v projekt »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. Nato postavite kurzor v polje »Application_Startup “in pritisnite tipko„ F5 “, da aktivirate ta makro.
4. Sčasoma lahko poskusite.

• Izberite e-poštno sporočilo in kliknite stolpec »Označi«. Takoj bo v e-poštno sporočilo dodana zastavica »Jutri«.
• Nato postavite stik in kliknite stolpec »Označi«. Takoj bo izbranemu stiku dodana zastavica »Danes«.

Prepovedati zlonamerno e-pošto

Čeprav makro veliko prispeva k našemu delu v Outlooku, še vedno pazite na makre, zlasti tiste iz zunanjih neznanih e-poštnih sporočil. Makri lahko vsebujejo viruse, ki z lahkoto napadajo vaše Outlookove podatke. Ko je datoteka Outlook okužena, morate poleg pobijanja virusov popraviti tudi datoteko Outlook. Na splošno orodje za popravilo nabiralnika ne bo dajalo učinkov. Vaše edino letovišče je močnejša in kreditno sposobna tretja oseba Outlook popravek orodje, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com