Ինչպես սահմանել արագ սեղմման տարբեր դրոշներ Outlook-ի տարբեր տեսակների համար

«Արագ սեղմման դրոշը» վերաբերում է լռելյայն դրոշին, երբ մեկ սեղմում եք Outlook-ի տարրի դրոշի սյունակի վրա: Outlook-ը թույլ է տալիս սահմանել միայն մեկ սեղմումով դրոշակ՝ անկախ տարրի տեսակից: Այսպիսով, եթե ցանկանում եք տեղադրել տարբեր արագ սեղմումների դրոշակներ՝ ըստ իրերի տեսակների, կարող եք օգտագործել այս հոդվածում ներկայացված եղանակը:

Արագ սեղմման դրոշը սահմանելու համար կարող եք աջ սեղմել ապրանքի «դրոշակ» սյունակի վրա և ընտրել «Սահմանել արագ սեղմում»: Այնուհետև բացվող փոքր երկխոսության վանդակում ընտրեք դրոշը ըստ ցանկության: Լռելյայնորեն, Outlook-ը կկիրառի այս արագ սեղմման դրոշակը բոլոր տեսակի տարրերի համար: Այնուամենայնիվ, իրականում օգտատերերի մեծամասնությունը հույս ունի կիրառել տարբեր արագ սեղմումների դրոշակներ Outlook-ի տարբեր տեսակների վրա: Հետևաբար, մենք կսովորեցնենք ձեզ ստանալ այն՝ օգտագործելով էլ. նամակների և կոնտակտների օրինակ:

Սահմանեք արագ սեղմման տարբեր դրոշներ Outlook-ի տարբեր տեսակների համար

1. Հենց ամենասկզբում, սtart Outlook VBA խմբագիր՝ հղում կատարելով «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
2. Այնուհետև պատճենեք ներքևի VBA կոդը «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. Այնուհետև տեղադրեք կուրսորը «Application_Startup »ենթածրագիրը և սեղմել« F5 »ստեղնը ՝ այս մակրոը ակտիվացնելու համար:
4. Ի վերջո, կարող եք փորձել:

• Ընտրեք նամակ և սեղմեք «Դրոշակ» սյունակը: Միանգամից էլփոստին կավելացվի «Վաղը» դրոշը:
• Այնուհետև տեղադրեք կոնտակտի վրա և սեղմեք «Դրոշակ» սյունակը: Անմիջապես «Այսօր» դրոշը կավելացվի ընտրված կոնտակտին:

Արգելեք վնասակար նամակները

Թեև մակրոները շատ են նպաստում Outlook-ում մեր աշխատանքին, դուք դեռևս հետևում եք մակրոներին, հատկապես արտաքին անհայտ էլ. Պատճառն այն է, որ մակրոները կարող են պարունակել վիրուսներ, որոնք կարող են հեշտությամբ հարձակվել ձեր Outlook տվյալների վրա: Երբ ձեր Outlook ֆայլը վարակվի, բացի վիրուսները սպանելուց, դուք պետք է վերանորոգեք Outlook ֆայլը: Ընդհանրապես, մուտքի արկղի վերանորոգման գործիքը ազդեցություն չի թողնի: Ձեր միակ հանգստավայրը ավելի հզոր և վարկունակ երրորդ կողմն է Outlook- ի շտկում գործիք, ինչպիսիք են DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերանորոգել mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com