Как да зададете различни флагчета за бързо щракване за различни видове елементи в Outlook

„Флаг за бързо щракване“ се отнася до знамето по подразбиране, когато щракнете с едно щракване върху колоната на флага на елемент в Outlook. Outlook ви позволява да зададете само един флаг за бързо щракване, независимо от типа на елемента. Така че, ако искате да зададете различни флагове за бързо щракване въз основа на типовете елементи, можете да използвате начина, представен в тази статия.

За да зададете флаг за бързо щракване, можете да щракнете с десния бутон върху колоната „флаг“ на елемент и да изберете „Задаване на бързо щракване“. След това в изскачащия малък диалогов прозорец изберете флага по желание. По подразбиране Outlook ще приложи този флаг за бързо щракване за всички видове елементи. Независимо от това, в действителност повечето потребители се надяват да приложат различни знамена за бързо щракване към различни видове елементи в Outlook. Следователно в следващите стъпки ще ви научим да ги получавате, като използвате пример за имейли и контакти.

Задайте различни знамена за бързо щракване за различни видове елементи в Outlook

1. В самото начало, start Outlook VBA редактор с препратка към „Как да стартирате VBA код във вашия Outlook".
2. След това копирайте VBA кода по-долу в проекта „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. След това поставете курсора в „Application_Startup “и натиснете клавиша„ F5 “, за да активирате този макрос.
4. В крайна сметка можете да опитате.

• Изберете имейл и щракнете върху колоната „Флаг“. Веднага флагът „Утре“ ще бъде добавен към имейла.
• След това поставете върху контакт и щракнете върху колоната „Флаг“. Веднага флагът „Днес“ ще бъде добавен към избрания контакт.

Забранете злонамерени имейли

Въпреки че макросът допринася много за работата ни в Outlook, все пак внимавате за макроси, особено тези от външните неизвестни имейли. Това е така, защото макросите могат да съдържат вируси, които могат лесно да атакуват данните ви в Outlook. След като вашият файл на Outlook е заразен, освен да убивате вирусите, трябва да поправите и файла на Outlook. По принцип инструментът за поправка на входящата кутия няма да направи ефекти. Единственият ви курорт е по-мощна и кредитоспособна трета страна Поправка на Outlook инструмент, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително ремонт mdf и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com