Jak nastavit různé příznaky rychlého kliknutí pro různé druhy položek aplikace Outlook

„Příznak rychlého kliknutí“ označuje výchozí příznak, když kliknete na sloupec příznaku položky aplikace Outlook. Outlook umožňuje nastavit pouze jeden příznak rychlého kliknutí bez ohledu na typ položky. Pokud tedy chcete nastavit různé příznaky rychlého kliknutí na základě typů položek, můžete použít způsob uvedený v tomto článku.

Chcete-li nastavit příznak rychlého kliknutí, můžete kliknout pravým tlačítkem na sloupec „označit“ položky a vybrat „Nastavit rychlé kliknutí“. Poté v malém vyskakovacím dialogovém okně vyberte libovolnou vlajku. Ve výchozím nastavení použije Outlook tento příznak rychlého kliknutí pro všechny druhy položek. Ve skutečnosti však většina uživatelů doufá, že použije různé příznaky rychlého kliknutí na různé typy položek aplikace Outlook. Proto vás v následujících částech naučíme, jak si ji získat na příkladu e-mailů a kontaktů.

Nastavit různé příznaky rychlého kliknutí pro různé druhy položek aplikace Outlook

1. Hned na začátku, start Outlook VBA editor s odkazem na „Jak spustit kód VBA ve vašem Outlooku".
2. Poté zkopírujte níže 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. Poté umístěte kurzor do pole „Application_Startup “podprogram a stiskněte klávesu„ F5 “pro aktivaci tohoto makra.
4. Nakonec to můžete vyzkoušet.

• Vyberte e-mail a klikněte na sloupec „Nahlásit“. K e-mailu bude najednou přidán příznak „Zítra“.
• Poté přidejte kontakt a klikněte na sloupec „Označit“. K vybranému kontaktu bude okamžitě přidán příznak „Dnes“.

Zakázat škodlivé e-maily

Ačkoli makro hodně přispívá k naší práci v Outlooku, stále si dávejte pozor na makra, zejména ta z externích neznámých e-mailů. Je to proto, že makra mohou obsahovat viry, které mohou snadno zaútočit na vaše data aplikace Outlook. Jakmile je váš soubor aplikace Outlook infikován, kromě zabíjení virů musíte soubor aplikace Outlook opravit. Nástroj pro opravu doručené pošty obecně nebude mít účinky. Vaším jediným střediskem je silnější a důvěryhodnější třetí strana Oprava aplikace Outlook nástroj, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com