Verschillende snelklikvlaggen instellen voor verschillende soorten Outlook-items

"Quick Click Flag" verwijst naar de standaardvlag wanneer u één keer klikt op de vlagkolom van een Outlook-item. Met Outlook kunt u slechts één snelklikvlag instellen, ongeacht het itemtype. Dus als u verschillende snelklikvlaggen wilt instellen op basis van itemtypen, kunt u de manier gebruiken die in dit artikel is geïntroduceerd.

Om een ​​snelklikvlag in te stellen, kunt u met de rechtermuisknop op de kolom "vlag" van een item klikken en "Snelklikken instellen" selecteren. Kies vervolgens in het kleine pop-upvenster de vlag naar believen. Standaard past Outlook deze snelklikvlag toe op allerlei soorten items. Niettemin hoopt een meerderheid van de gebruikers in werkelijkheid verschillende snelklikvlaggen toe te passen op verschillende soorten Outlook-items. Daarom zullen we u in het volgende leren het te krijgen met behulp van een voorbeeld van e-mails en contacten.

Stel verschillende snelklikvlaggen in voor verschillende soorten Outlook-items

1. Vanaf het allereerste begin start Outlook VBA-editor met verwijzing naar “Hoe u VBA-code in uw Outlook uitvoert'.
2. Kopieer vervolgens de onderstaande VBA-code naar het project "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. Plaats daarna de cursor in het bestand "Application_Startup ”subroutine en druk op de“ F5 ”toets om deze macro te activeren.
4. Uiteindelijk kun je het proberen.

• Selecteer een e-mail en klik op de kolom "Markeren". Meteen wordt de vlag "Morgen" aan de e-mail toegevoegd.
• Pitch vervolgens op een contactpersoon en klik op de kolom "Vlag". Onmiddellijk wordt de vlag "Vandaag" toegevoegd aan het geselecteerde contact.

Verbied kwaadaardige e-mails

Hoewel macro's veel bijdragen aan ons werken in Outlook, pas je nog steeds op voor macro's, vooral die van de externe onbekende e-mails. Het is omdat de macro's virussen kunnen bevatten, die gemakkelijk uw Outlook-gegevens kunnen aanvallen. Zodra uw Outlook-bestand is geïnfecteerd, moet u, naast het doden van de virussen, het Outlook-bestand repareren. Over het algemeen zal de inbox-reparatietool geen effecten hebben. Uw enige toevlucht is een krachtigere en kredietwaardige derde partij Outlook-oplossing tool, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie mdf en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com