Kako postaviti različite zastavice za brzi klik za različite vrste Outlook stavki

"Oznaka brzog klika" odnosi se na zadanu oznaku kada jednom kliknete na stupac zastavice Outlook stavke. Outlook vam omogućuje samo postavljanje jedne zastavice za brzi klik bez obzira na vrstu stavke. Dakle, ako želite postaviti različite zastavice za brzi klik na temelju vrsta stavki, možete upotrijebiti način predstavljen u ovom članku.

Da biste postavili oznaku brzog klika, možete desnom tipkom kliknuti na stupac "zastavica" stavke i odabrati "Postavi brzi klik". Zatim u skočnom malom dijaloškom okviru odaberite zastavu po želji. Prema zadanim postavkama, Outlook će primijeniti ovu oznaku brzog klika za sve vrste stavki. Unatoč tome, u stvarnosti se većina korisnika nada primijeniti različite oznake brzog klika na različite vrste Outlook stavki. Stoga ćemo vas u nastavku naučiti da to dobijete koristeći primjer e-pošte i kontakata.

Postavite različite zastavice za brzi klik za različite vrste Outlook stavki

1. Na samom početku start Outlook VBA uređivač s referencom na “Kako pokrenuti VBA kod u vašem Outlooku".
2. Zatim kopirajte donji VBA kod u 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. Nakon toga, postavite kursor na “Application_Startup” potprogram i pritisnite tipku “F5” da aktivirate ovu makronaredbu.
4. Naposljetku, možete pokušati.

• Odaberite e-poštu i kliknite stupac "Označi". Zastavica "Sutra" će se odmah dodati e-poruci.
• Zatim postavite kontakt i kliknite stupac "Označi". Zastavica "Danas" odmah će biti dodana odabranom kontaktu.

Zabrani zlonamjernu e-poštu

Iako makronaredba uvelike pridonosi našem radu u Outlooku, ipak pripazite na makronaredbe, posebno one iz vanjskih nepoznatih e-poruka. To je zato što makronaredbe mogu sadržavati viruse koji mogu s lakoćom napasti vaše Outlook podatke. Nakon što je vaša Outlook datoteka zaražena, osim ubijanja virusa, morate popraviti Outlook datoteku. Općenito, alat za popravak pristigle pošte neće imati učinka. Vaše jedino utočište je moćnija i kreditno sposobnija treća strana Outlook popravak alat, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak mdf-a i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com