Kuinka asettaa erilaisia ​​pikaklikkauslippuja erityyppisille Outlook-kohteille

"Pikaklikkauslippu" viittaa oletuslippuun, kun napsautat Outlook-kohteen lippusaraketta yhdellä napsautuksella. Outlook sallii sinun asettaa vain yhden nopean napsautuksen lipun alkiotyypistä riippumatta. Joten, jos haluat asettaa erilaisia ​​pikaklikkauslippuja tuotetyyppien perusteella, voit käyttää tässä artikkelissa esitettyä tapaa.

Voit asettaa nopean napsautuksen lipun napsauttamalla hiiren kakkospainikkeella kohteen "lippu" -saraketta ja valitsemalla "Aseta pikaklikkaus". Valitse sitten ponnahdusikkunassa pieni valintaikkuna haluamasi lippu. Oletusarvoisesti Outlook käyttää tätä pikaklikkauslippua kaikenlaisille kohteille. Siitä huolimatta todellisuudessa suurin osa käyttäjistä toivoo soveltavansa erilaisia ​​pikaklikkauslippuja erityyppisiin Outlook-kohteisiin. Siksi seuraavissa opetamme sinut saamaan sen käyttämällä esimerkkiä sähköposteista ja yhteystiedoista.

Aseta erilaisia ​​pikaklikkauslippuja erityyppisille Outlook-kohteille

1. Heti alussa start Outlook VBA -editori viitteellä "Kuinka suorittaa VBA-koodi Outlookissa".
2. Kopioi sitten alla oleva VBA-koodi ThisOutlookSession-projektiin.

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. Sitten, siirrä kohdistin kohtaan Application_Startup ”-alirutiini ja paina“ F5 ”-näppäintä aktivoidaksesi tämän makron.
4. Lopulta voit kokeilla.

• Valitse sähköpostiosoite ja napsauta "Flag" -saraketta. Huomenna-lippu lisätään kerralla sähköpostiin.
• Napsauta sitten yhteystietoa ja napsauta Lippu-saraketta. "Tänään" -lippu lisätään heti valittuun yhteyshenkilöön.

Kiellä haitalliset sähköpostit

Vaikka makro auttaa paljon työskentelemään Outlookissa, varo silti makroja, etenkin ulkoisista tuntemattomista sähköposteista tulevia. Se johtuu siitä, että makrot saattavat sisältää viruksia, jotka voivat hyökätä Outlook-tietoihin helposti. Kun Outlook-tiedosto on saanut tartunnan, virusten tappamisen lisäksi sinun on korjattava Outlook-tiedosto. Yleensä postilaatikon korjaustyökalulla ei ole vaikutuksia. Ainoa lomakohteesi on tehokkaampi ja luottokelpoinen kolmas osapuoli Outlook-korjaus työkalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com