Kaip nustatyti skirtingas greito paspaudimo vėliavėles įvairių tipų „Outlook“ elementams

„Greito paspaudimo vėliavėlė“ reiškia numatytąją vėliavėlę, kai vieną kartą spustelite „Outlook“ elemento vėliavėlės stulpelį. „Outlook“ leidžia nustatyti tik vieną greito paspaudimo vėliavėlę, neatsižvelgiant į elemento tipą. Taigi, jei norite nustatyti skirtingas greito paspaudimo vėliavėles pagal elementų tipus, galite naudoti šiame straipsnyje aprašytą būdą.

Norėdami nustatyti greito paspaudimo vėliavėlę, dešiniuoju pelės mygtuku spustelėkite elemento stulpelį „vėliava“ ir pasirinkite „Nustatyti greitą paspaudimą“. Tada iššokančiajame mažame dialogo lange pasirinkite vėliavėlę. Pagal numatytuosius nustatymus „Outlook“ taikys šią greito paspaudimo vėliavėlę visų tipų elementams. Nepaisant to, iš tikrųjų dauguma vartotojų tikisi pritaikyti skirtingas greito paspaudimo vėliavėles skirtingų tipų „Outlook“ elementams. Todėl toliau mes išmokysime jus tai gauti naudodami el. laiškų ir kontaktų pavyzdį.

Nustatykite skirtingas greito paspaudimo vėliavėles įvairių tipų „Outlook“ elementams

1. Pačioje pradžioje start Outlook VBA redaktorius su nuoroda įKaip paleisti VBA kodą „Outlook“.".
2. Tada nukopijuokite toliau pateiktą VBA kodą į projektą „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. Po to užveskite žymeklį į „Application_Startup“ paprogramę ir paspauskite „F5“ klavišą, kad suaktyvintumėte šią makrokomandą.
4. Galų gale galite pabandyti.

• Pasirinkite el. laišką ir spustelėkite stulpelį „Vėliava“. Iš karto prie el. laiško bus pridėta vėliavėlė „Rytoj“.
• Tada nustatykite kontaktą ir spustelėkite stulpelį „Vėliava“. Iš karto prie pasirinkto kontakto bus pridėta vėliavėlė „Šiandien“.

Uždrausti kenkėjiškus el

Nors makrokomandos labai prisideda prie mūsų darbo programoje „Outlook“, vis tiek saugokitės makrokomandų, ypač iš išorinių nežinomų el. laiškų. Taip yra todėl, kad makrokomandose gali būti virusų, kurie gali lengvai atakuoti jūsų „Outlook“ duomenis. Kai jūsų „Outlook“ failas bus užkrėstas, turite ne tik naikinti virusus, bet ir pataisyti „Outlook“ failą. Paprastai gautųjų taisymo įrankis nepadarys efektų. Vienintelis jūsų kurortas yra galingesnė ir patikimesnė trečioji šalis Outlook taisymas įrankis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontuoti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com