Ինչպես ավտոմատ ստեղծել առաջադրանք, երբ Outlook-ում հատուկ կատեգորիա է նշանակվում էլ.

Այս հոդվածը կսովորեցնի ձեզ, թե ինչպես ինքնաբերաբար ստեղծել նոր առաջադրանք, երբ Outlook VBA-ի միջոցով նամակին հատկացնում եք որոշակի գույների կատեգորիա:

Նախկինում, երբ ես ստանում էի առաջադրանքի հետ կապված նամակ, ես այս էլփոստի համար նշում էի «Առաջադրանք» կատեգորիան և շարունակում էի նոր առնչվող առաջադրանք ստեղծել: Անկեղծ ասած, այս գործընթացն իսկապես ժամանակատար է: Ես պետք է նախապես գրեմ բոլոր տեղեկությունները, քանի որ այդ մանրամասները պետք է պահանջվեն նոր առաջադրանքում։ Բայց այժմ, VBA-ի օգնությամբ, Outlook-ը կարող է ավտոմատ կերպով ստեղծել նոր առաջադրանք, երբ ես էլփոստում նշեմ «Առաջադրանք» կատեգորիան: Եթե ​​դուք հետաքրքրված եք այս հուշումով, կարդացեք դրանք մանրամասնորեն ստանալու համար:

Ավտոմատ ստեղծեք առաջադրանք, երբ էլփոստին հատուկ կատեգորիա է նշանակվում

1. Սկսելու համար բացեք Outlook-ը և անցեք «Մշակող» ներդիրին։
2. Այս ներդիրում կարող եք գտնել և սեղմել «Visual Basic» կոճակը:
3. Այնուհետև կբացվի «Microsoft Visual Basic հավելվածների համար» նոր պատուհան: Դրանում դուք պետք է կրկնակի սեղմեք «ThisOutlookSession» նախագծի վրա:
4. Հաջորդը դուք պետք է պատճենեք հետևյալ VBA կոդերը «ThisOutlookSession» նախագծի պատուհանում:

Public WithEvents OlItems As Outlook.Items

Sub Application_Startup()
    Set OlItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub OlItems_ItemChange(ByVal Item As Object)
    Dim obApp As Application
    Dim olTask As TaskItem

    If Item.Class = olMail And Item.Categories = "Task" Then
       Set obApp = Outlook.Application
       Set olTask = obApp.CreateItem(olTaskItem)
       With olTask
            .Subject = Item.Subject
            .Body = Item.Body
            .Attachments.Add Item
            .StartDate = Now
            .DueDate = Now + 3
            .Save
            .Display
       End With
    End If
 
    'To clear the category
    'If you want to keep the category, remove the following four lines
    With Item
         .Categories = ""
         .Save
    End With
 
    Set obApp = Nothing
    Set olTask = Nothing
End Sub

5. Դրանից հետո ձեզանից կպահանջվի ստորագրել այս կոդը: Դրան հասնելու համար կարող եք օգտագործել Office ներկառուցված կոմունալ ծրագիրը՝ «Digital Certificate for VBA Projects»: Ավելի մանրամասն քայլերի համար կարող եք դիմել այս հոդվածի Քայլ 2-ին «Անպիտան նամակները ավտոմատ կերպով նշելու 2 քայլ `Outlook- ում կարդացած".
6. Հետագայում արտաքին վնասակար մակրոները կանխելու համար դուք պետք է դիմեք «Վստահության կենտրոն» և փոխեք մակրո կարգավորումները՝ միայն թվային ստորագրված մակրոները միացնելու համար:
7. Ի վերջո կարող եք փորձել:

• Տեղադրեք փոստի տարրը և դրան հատուկ կատեգորիա հատկացրեք, ինչպես հետևյալ սքրինշոթը.
• Միանգամից նոր առաջադրանք կստեղծվի ինքնաբերաբար և կցուցադրվի նոր թռուցիկ պատուհանում:

Պահպանեք ներդիրները վնասակար մակրոների վրա կասկածելի էլ

Շատ կարևոր է արգելափակել բոլոր արտաքին չստորագրված մակրոները, քանի որ դրանք կարող են պարունակել վիրուսներ կամ չարամիտ ծրագրեր, որոնք կարող են հեշտությամբ վնասել ձեր Outlook-ի տվյալները: Այսպիսով, օգտվողները պետք է մեծ ուշադրություն դարձնեն նամակներին, որոնք գալիս են մակրոների հետ միասին: Բացի այդ, շատ նպատակահարմար է ներդրումներ կատարել ուշագրավ կոռումպացված Outlook տվյալների շտկման գործիքՆման DataNumen Outlook Repair. Այն կարող է օգնել ձեզ, երբ դուք տառապում եք Outlook-ի չնախատեսված վթարից:

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

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