Kaip automatiškai sukurti užduotį, kai programa „Outlook“ el. paštui priskiriama konkreti kategorija

Šiame straipsnyje sužinosite, kaip automatiškai sukurti naują užduotį, kai el. laiškui priskiriate konkrečią spalvų kategoriją naudodami Outlook VBA.

Anksčiau, kai gavau el. laišką, susijusį su užduotimi, šiame el. laiške nurodydavau kategoriją „Užduotis“ ir pradėjau kurti naują susijusią užduotį. Tiesą sakant, šis procesas iš tiesų užima daug laiko. Turiu iš anksto užsirašyti visą informaciją, nes šios detalės turi būti reikalaujamos atliekant naują užduotį. Tačiau dabar, naudodama VBA, „Outlook“ gali automatiškai sukurti naują užduotį, kai tik aš nurodysiu kategoriją „Užduotis“ el. Jei jus domina šis patarimas, skaitykite toliau, kad gautumėte išsamią informaciją.

Automatiškai sukurkite užduotį, kai el. laiškui priskiriama konkreti kategorija

1. Norėdami pradėti, paleiskite „Outlook“ ir eikite į skirtuką „Kūrėjas“.
2. Šiame skirtuke galite rasti ir spustelėti mygtuką „Visual Basic“.
3. Tada atsidarys naujas „Microsoft Visual Basic for Applications“ langas. Jame turėtumėte du kartus spustelėti „ThisOutlookSession“ projektą.
4. Tada turėtumėte nukopijuoti šiuos VBA kodus į projekto langą „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. Po to turėsite pasirašyti šį kodą. Norėdami tai padaryti, galite naudoti „Office“ įmontuotą priemonę „Skaitmeninis sertifikatas VBA projektams“. Išsamesnius veiksmus rasite šio straipsnio 2 veiksme "2 žingsniai, norint automatiškai pažymėti nepageidaujamus el. laiškus kaip perskaitytus programoje „Outlook“.".
6. Vėliau, norėdami apsisaugoti nuo išorinės kenkėjiškos makrokomandos, turėtumėte kreiptis į „Pasitikėjimo centrą“ ir pakeisti makrokomandos nustatymus, kad būtų įjungtos tik skaitmeniniu parašu pasirašytos makrokomandos.
7. Galų gale galite pabandyti.

• Nurodykite pašto siuntą ir priskirkite jai konkrečią kategoriją, pvz., šią ekrano kopiją:
• Iš karto nauja užduotis bus sukurta automatiškai ir bus rodoma naujame iššokančiame lange.

Stebėkite kenkėjiškas makrokomandas įtariamuose el. laiškuose

Labai svarbu blokuoti visas išorines nepasirašytas makrokomandas, nes jose gali būti virusų ar kenkėjiškų programų, kurios gali lengvai sugadinti jūsų „Outlook“ duomenis. Taigi vartotojai turėtų atkreipti ypatingą dėmesį į el. laiškus, kurie ateina kartu su makrokomandomis. Be to, labai patartina investuoti į puikų sugadintas Outlook duomenų taisymo įrankis, Kaip DataNumen Outlook Repair. Jis gali jums padėti, kai patiriate nenumatytą „Outlook“ gedimą.

Autoriaus įvadas:

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