Kako postaviti različite oznake brzog klika za različite vrste Outlook stavki

„Oznaka brzog klika“ odnosi se na zadanu oznaku kada jednom kliknete na kolonu zastavice Outlook stavke. Outlook vam omogućava samo postavljanje oznake za jedan brzi klik bez obzira na vrstu stavke. Dakle, ako želite postaviti različite oznake brzog klika na osnovu tipova stavki, možete koristiti način predstavljen u ovom članku.

Da biste postavili oznaku brzog klika, možete desnim klikom na kolonu “zastavica” stavke i odabrati “Postavi brzi klik”. Zatim, u iskačućem malom dijaloškom okviru, odaberite zastavicu po želji. Outlook će prema zadanim postavkama primijeniti ovu oznaku brzog klika na sve vrste stavki. Ipak, u stvarnosti, većina korisnika se nada da će primijeniti različite oznake brzog klika na različite vrste Outlook stavki. Stoga ćemo vas u nastavku naučiti da ga dobijete na primjeru e-pošte i kontakata.

Postavite različite oznake brzog klika za različite vrste Outlook stavki

1. Na samom početku, start Outlook VBA editor sa referencom na “Kako pokrenuti VBA kod u vašem Outlooku".
2. Zatim kopirajte VBA kod u nastavku u projekat “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” i pritisnite taster “F5” da aktivirate ovaj makro.
4. Na kraju, možete probati.

• Odaberite e-poštu i kliknite na kolonu “Zastavica”. Odmah će e-mailu biti dodana zastavica “Sutra”.
• Zatim postavite kontakt i kliknite na kolonu „Zastavica“. Odmah će se odabranom kontaktu dodati oznaka “Danas”.

Zabrana zlonamjerne e-pošte

Iako makroi mnogo doprinose našem radu u Outlooku, i dalje pazite na makroe, posebno na one iz vanjskih nepoznatih e-poruka. To je zato što makroi mogu sadržavati viruse, koji mogu s lakoćom napasti vaše Outlook podatke. Kada je vaša Outlook datoteka zaražena, osim ubijanja virusa, morate popraviti Outlook datoteku. Generalno, alat za popravku prijemnog sandučeta neće imati efekte. Vaše jedino sredstvo je moćnija i kreditno sposobnija treća strana Outlook popravka alat, kao npr DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com