Kā iestatīt dažādus ātro klikšķu karodziņus dažādiem Outlook vienumu veidiem

“Ātrā klikšķa karodziņš” attiecas uz noklusējuma karodziņu, veicot vienu klikšķi uz Outlook vienuma karoga kolonnas. Programma Outlook ļauj iestatīt tikai viena ātrā klikšķa karodziņu neatkarīgi no vienuma veida. Tātad, ja vēlaties iestatīt dažādus ātro klikšķu karodziņus, pamatojoties uz vienumu tipiem, varat izmantot šajā rakstā aprakstīto veidu.

Lai iestatītu ātrās klikšķināšanas karodziņu, varat ar peles labo pogu noklikšķināt uz vienuma kolonnas “karogs” un atlasīt “Iestatīt ātro klikšķi”. Pēc tam uznirstošajā mazajā dialoglodziņā pēc izvēles izvēlieties karodziņu. Pēc noklusējuma Outlook lietos šo ātrās klikšķināšanas karodziņu visu veidu vienumiem. Neskatoties uz to, patiesībā lielākā daļa lietotāju cer izmantot dažādus ātro klikšķu karodziņus dažādu veidu Outlook vienumiem. Tādēļ turpmāk mēs iemācīsim jums to iegūt, izmantojot e-pasta ziņojumu un kontaktu piemēru.

Iestatiet dažādus ātro klikšķu karodziņus dažāda veida Outlook vienumiem

1. Jau pašā sākumā start Outlook VBA redaktors ar norādi “Kā palaist VBA kodu programmā Outlook".
2. Pēc tam nokopējiet zemāk esošo VBA kodu 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. Pēc tam novietojiet kursoru “Application_Startup ”apakšprogrammu un nospiediet taustiņu“ F5 ”, lai aktivizētu šo makro.
4. Galu galā jūs varat izmēģināt.

• Atlasiet e-pastu un noklikšķiniet uz kolonnas “Atzīmēt”. Uzreiz e-pastam tiks pievienots karodziņš “Rīt”.
• Pēc tam atzīmējiet kontaktu un noklikšķiniet uz kolonnas “Karogs”. Tūlīt atlasītajam kontaktam tiks pievienots karodziņš “Šodien”.

Aizliegt ļaunprātīgus e-pastus

Lai gan makro dod lielu ieguldījumu mūsu darbā programmā Outlook, jūs joprojām uzmanāties no makro, it īpaši no ārējiem nezināmiem e-pasta ziņojumiem. Tas ir tāpēc, ka makros var būt vīrusi, kas var viegli uzbrukt jūsu Outlook datiem. Kad jūsu Outlook fails ir inficēts, jums ir jālabo Outlook fails, izņemot vīrusu iznīcināšanu. Parasti iesūtnes labošanas rīks neradīs efektus. Jūsu vienīgais kūrorts ir spēcīgāka un kredītspējīgāka trešā puse Outlook labojums rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonta mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar