Ako nastaviť rôzne príznaky rýchleho kliknutia pre rôzne druhy položiek programu Outlook

„Príznak rýchleho kliknutia“ označuje predvolený príznak, keď kliknete na stĺpec vlajky položky Outlooku. Program Outlook umožňuje nastaviť iba jeden príznak rýchleho kliknutia bez ohľadu na typ položky. Ak teda chcete nastaviť rôzne príznaky rýchleho kliknutia na základe typov položiek, môžete použiť spôsob uvedený v tomto článku.

Ak chcete nastaviť príznak rýchleho kliknutia, kliknite pravým tlačidlom myši na stĺpec položky „označiť“ a vyberte možnosť „Nastaviť rýchle kliknutie“. Potom v rozbaľovacom malom dialógovom okne vyberte ľubovoľnú vlajku. V predvolenom nastavení použije program Outlook tento príznak rýchleho kliknutia na všetky druhy položiek. V skutočnosti však väčšina používateľov dúfa, že na rôzne typy položiek Outlooku použije rôzne príznaky rýchleho kliknutia. Preto vás v nasledujúcich textoch naučíme získať pomocou príkladu e-mailov a kontaktov.

Nastaviť rôzne vlajky rýchleho kliknutia pre rôzne druhy položiek Outlooku

1. Hneď na úvod start Outlook VBA editor s odkazom na „Ako spustiť kód VBA v programe Outlook".
2. Potom skopírujte nižšie uvedený kód VBA do projektu „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. Potom umiestnite kurzor na „Aplikácia_Startup “a stlačte„ F5 “na aktiváciu tohto makra.
4. Nakoniec to môžete vyskúšať.

• Vyberte e-mail a kliknite na stĺpec „Nahlásiť“. K e-mailu bude naraz pridaný príznak „Zajtra“.
• Potom posuňte kontakt na kontakt a kliknite na stĺpec „Nahlásiť“. K vybranému kontaktu bude okamžite pridaný príznak „Dnes“.

Zakážte škodlivé e-maily

Aj keď makro výrazne prispieva k našej práci v Outlooku, stále si treba dávať pozor na makrá, najmä tie z externých neznámych e-mailov. Je to preto, že makrá môžu obsahovať vírusy, ktoré môžu ľahko napadnúť vaše údaje Outlooku. Po infikovaní súboru Outlook musíte okrem zabitia vírusov aj súbor Outlook opraviť. Nástroj na opravu doručenej pošty spravidla nebude mať účinky. Vaše jediné letovisko je silnejšia a dôveryhodnejšia tretia strana Oprava programu Outlook nástroj, ako napr DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S