Slik angir du forskjellige hurtigklikkflagg for forskjellige typer Outlook-elementer

"Quick Click Flag" refererer til standardflagget når du enkeltklikker på flaggkolonnen til et Outlook-element. Outlook lar deg bare sette ett hurtigklikk-flagg uavhengig av elementtypen. Så hvis du ønsker å sette forskjellige hurtigklikk-flagg på grunnlag av varetyper, kan du bruke måten som er introdusert i denne artikkelen.

For å angi hurtigklikk-flagg, kan du høyreklikke på "flagg"-kolonnen til et element og velge "Angi hurtigklikk". Deretter, i den lille popup-dialogboksen, velger du flagget etter ønske. Som standard vil Outlook bruke dette hurtigklikkflagget for alle typer elementer. Ikke desto mindre håper et flertall av brukerne i realiteten å bruke forskjellige hurtigklikkflagg på forskjellige typer Outlook-elementer. Derfor vil vi i det følgende lære deg å få det ved å bruke et eksempel på e-poster og kontakter.

Angi forskjellige hurtigklikkflagg for forskjellige typer Outlook-elementer

1. Helt i begynnelsen, start Outlook VBA editor med referanse til "Hvordan kjøre VBA-kode i Outlook".
2. Deretter kopierer du VBA-koden nedenfor til "ThisOutlookSession" -prosjektet.

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. Etterpå, plasser markøren i "Application_Startup"-underrutinen og trykk "F5"-tasten for å aktivere denne makroen.
4. Til slutt kan du prøve.

• Velg en e-post og klikk på "Flagg"-kolonnen. Med en gang vil "I morgen"-flagget bli lagt til e-posten.
• Deretter slår du på en kontakt og klikker på "Flagg"-kolonnen. Umiddelbart vil "I dag"-flagget bli lagt til den valgte kontakten.

Forby ondsinnede e-poster

Selv om makroer bidrar mye til vårt arbeid i Outlook, ser du fortsatt opp for makroer, spesielt de fra eksterne ukjente e-poster. Det er fordi makroene kan inneholde virus, som kan angripe Outlook-dataene dine med letthet. Når Outlook-filen din er infisert, må du, bortsett fra å drepe virusene, reparere Outlook-filen. Vanligvis vil ikke reparasjonsverktøyet for innboks gi effekter. Din eneste utvei er en mer potent og kredittverdig tredjepart Outlook-fiks verktøy, for eksempel DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere mdf og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med