Kaip automatiškai perkelti kitiems priskirtas užduotis į konkretų užduočių aplanką „Outlook“.

Apskritai visos užduotys bus dedamos į numatytąjį „Outlook“ užduočių aplanką, neatsižvelgiant į jūsų laimėtas užduotis ar užduotis, kurias priskiriate kitiems. Šiame straipsnyje bus pristatyta, kaip priversti „Outlook“ automatiškai perkelti kitiems priskirtas užduotis į konkretų užduočių aplanką.

Outlook leidžia mums priskirti užduotis kitiems. Tačiau kol kas užduotys, kurias priskiriate kitiems žmonėms, taip pat bus išsaugotos numatytame užduočių aplanke. Tokiu atveju, jei dažnai reikia priskirti užduotis kitiems, jūsų užduočių aplankas bus netvarkingas. Geriausias būdas klasifikuoti ir valdyti užduotis yra sukurti atskirą aplanką ir perkelti kitiems priskirtas užduotis į šį aplanką. Tačiau tai padaryti rankiniu būdu bus šiek tiek varginantis. Čia mes padėsime jums tai pasiekti automatiškai naudojant Outlook VBA.

Automatiškai perkelkite kitiems priskirtas užduotis į konkretų užduočių aplanką

1. Pirmiausia turėtumėte sukurti naują užduočių aplanką. Dešiniuoju pelės mygtuku spustelėkite numatytąjį užduočių aplanką ir pasirinkite „Naujas aplankas“. Nurodykite jo pavadinimą. Čia kaip pavyzdį paimsime „Bandomasis aplankas“.
2. Tada pereikite į skirtuką „Kūrėjas“ ir spustelėkite mygtuką „Visual Basic“.
3. Tada naujame „Visual Basic“ lange dukart spustelėkite „ThisOutlookSession“ projektą ir nukopijuokite į jį šiuos VBA kodus.

Public WithEvents Items As Outlook.Items

Sub Application_Startup()
    Set Items = Session.GetDefaultFolder(olFolderTasks).Items
End Sub

Sub Items_ItemAdd(ByVal Item As Object)
    If TypeName(Item) = "TaskItem" Then
       MoveTask Item
    End If
End Sub

Sub MoveTask(Item As TaskItem)
    Dim Folder As Outlook.Folder
    Dim myName As String
 
    'replace "smith" with your own account name
    myName = "Smith"
 
    If InStr(Item.Owner, myName) = 0 Then
       Set Folder = Session.GetDefaultFolder(olFolderTasks).Folders("Test")
       Item.Move Folder
    End If
End Sub

Pastaba: Eilutė „myName“ priklauso nuo jūsų paskyros pavadinimo. Galite eiti į „Paskyros nustatymai“ ir patikrinti lauką „Jūsų vardas“, kaip parodyta toliau pateiktoje ekrano kopijoje:

4. Po to turėtumėte pasirašyti šį kodą ir pakeisti makrokomandos nustatymus. Norėdami gauti daugiau informacijos, žr. 2 veiksmą straipsnyje „2 žingsniai, norint automatiškai pažymėti nepageidaujamus el. laiškus kaip skaitytus programoje „Outlook“.
5. Pagaliau galite pabandyti.

• Pirmiausia sukurkite naują užduotį ir naujame Užduočių lange spustelėkite mygtuką „Priskirti užduotį“.
• Tada galite sudaryti užduotį ir pasirinkti gavėją ir galiausiai spustelėti mygtuką „Siųsti“.
• Po to galite pereiti į užduočių aplankų sąrašą. Pamatysite, kad ši užduotis tikrai yra „Test“ aplanke.

Susitvarkykite su sugadintais „Outlook“ failais

Jei gaunate „Outlook“ klaidų pranešimus, susijusius su „Outlook“ failais, tikėtina, kad failai yra sugadinti. Esant tokiai situacijai, galite pabandyti naudoti įtaisytąjį taisymo įrankį Scanpst.exe. Jei nepavyksta, paskutinė išeitis turi būti stipresnės priemonės pasirinkimas sugadintas Outlook failų taisymo įrankis, Kaip DataNumen Outlook Repair.

Autoriaus įvadas:

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