Jak ustawić różne flagi szybkiego kliknięcia dla różnych rodzajów elementów programu Outlook

„Flaga szybkiego kliknięcia” odnosi się do domyślnej flagi po pojedynczym kliknięciu kolumny flagi elementu programu Outlook. W programie Outlook można ustawić tylko jedną flagę szybkiego kliknięcia, niezależnie od typu elementu. Jeśli więc chcesz ustawić różne flagi szybkiego kliknięcia na podstawie typów przedmiotów, możesz skorzystać ze sposobu przedstawionego w tym artykule.

Aby ustawić flagę szybkiego kliknięcia, możesz kliknąć prawym przyciskiem kolumnę „flaga” elementu i wybrać „Ustaw szybkie kliknięcie”. Następnie w małym oknie podręcznym wybierz dowolną flagę. Domyślnie program Outlook zastosuje tę flagę szybkiego kliknięcia do wszystkich rodzajów elementów. Niemniej jednak w rzeczywistości większość użytkowników ma nadzieję na zastosowanie różnych flag szybkiego kliknięcia do różnych typów elementów programu Outlook. Dlatego w dalszej części nauczymy Cię jak go uzyskać na przykładzie e-maili i kontaktów.

Ustaw różne flagi szybkiego kliknięcia dla różnych rodzajów elementów programu Outlook

1. Na wstępie starEdytor Outlook VBA z odniesieniem do „Jak uruchomić kod VBA w swoim Outlooku".
2. Następnie skopiuj poniższy kod 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. Następnie umieść kursor w „Application_Startup ”i naciśnij klawisz„ F5 ”, aby aktywować to makro.
4. W końcu możesz spróbować.

• Wybierz e-mail i kliknij kolumnę „Oflaguj”. Flaga „Jutro” zostanie natychmiast dodana do wiadomości e-mail.
• Następnie wybierz kontakt i kliknij kolumnę „Flaga”. Flaga „Dzisiaj” zostanie natychmiast dodana do wybranego kontaktu.

Zabroń złośliwych wiadomości e-mail

Chociaż makra mają duży wpływ na naszą pracę w Outlooku, nadal uważaj na makra, szczególnie te z zewnętrznych nieznanych wiadomości e-mail. Dzieje się tak, ponieważ makra mogą zawierać wirusy, które mogą z łatwością atakować dane programu Outlook. Gdy plik Outlooka zostanie zainfekowany, oprócz zabijania wirusów, musisz naprawić plik Outlooka. Ogólnie rzecz biorąc, narzędzie do naprawy skrzynki odbiorczej nie przyniesie efektów. Twoim jedynym ośrodkiem jest silniejsza i bardziej wiarygodna strona trzecia Poprawka programu Outlook narzędzie, takie jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com