Cum să setați diferite steaguri de clic rapid pentru diferite tipuri de elemente Outlook

„Signal de clic rapid” se referă la steagul implicit atunci când faceți un singur clic pe coloana de steag a unui element Outlook. Outlook vă permite doar să setați un semnal de clic rapid, indiferent de tipul articolului. Deci, dacă doriți să setați diferite steaguri de clic rapid pe baza tipurilor de articole, puteți utiliza modul introdus în acest articol.

Pentru a seta semnalizarea clicului rapid, puteți face clic dreapta pe coloana „semnal” a unui articol și selectați „Setare clic rapid”. Apoi, în fereastra de dialog pop-up mică, alegeți steagul după cum doriți. În mod implicit, Outlook va aplica acest semnal de clic rapid pentru toate tipurile de elemente. Cu toate acestea, în realitate, majoritatea utilizatorilor speră să aplice diferite steaguri de clic rapid diferitelor tipuri de elemente Outlook. Prin urmare, în cele ce urmează, vă vom învăța să îl obțineți folosind un exemplu de e-mailuri și contacte.

Setați diferite steaguri de clic rapid pentru diferite tipuri de elemente Outlook

1. De la bun început, start Editor Outlook VBA cu referire la „Cum să rulați codul VBA în Outlook".
2. Apoi, copiați codul VBA de mai jos în proiectul „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. Apoi, plasați cursorul în „Application_Startup” și apăsați tasta „F5” pentru a activa această macrocomandă.
4. În cele din urmă, puteți încerca.

• Selectați un e-mail și faceți clic pe coloana „Semnal”. Imediat, indicatorul „Mâine” va fi adăugat la e-mail.
• Apoi, prezentați un contact și faceți clic pe coloana „Semnal”. Imediat, steagul „Azi” va fi adăugat contactului selectat.

Interziceți e-mailurile rău intenționate

Deși macrocomandă contribuie foarte mult la lucrul nostru în Outlook, tot aveți grijă la macrocomenzi, în special la cele din e-mailurile externe necunoscute. Se datorează faptului că macrocomenzile pot conține viruși, care vă pot ataca cu ușurință datele Outlook. Odată ce fișierul Outlook este infectat, pe lângă uciderea virușilor, trebuie să reparați fișierul Outlook. În general, instrumentul de reparare inbox nu va produce efecte. Singura dumneavoastră stațiune este o terță parte mai puternică și mai solvabilă Remediere Outlook instrument, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com