Bir kishiga bir nechta Outlook topshiriqlarini to'plashning 2 ta tezkor usuli

Agar siz Outlook-da bir nechta vazifalarni yaratgan bo'lsangiz va endi ularni bir kishiga tayinlamoqchi bo'lsangiz, ularni ommaviy tayinlash usullarini orzu qilasiz. Ushbu maqolada biz sizga 2 ta yondashuvni ko'rsatamiz.

Ba'zida, ba'zi sabablarga ko'ra, siz o'zingizning Vazifalar papkangizdagi bir nechta mavjud vazifalarni kimgadir belgilashingiz kerak bo'ladi. Umuman olganda, vazifani belgilash uchun siz uni ochishingiz kerak va "Vazifa tayinlash" tugmasini bosing, "Kimga" maydoniga qabul qiluvchini to'ldiring va nihoyat "Yuborish" tugmasini bosing. Ammo, agar siz ko'p vazifalarni topshirmoqchi bo'lsangiz, bu juda zerikarli. Shunday qilib, quyida biz siz bilan 2 ta samaraliroq va qulay usulni baham ko'ramiz.

1-usul: Vazifalarni elektron pochtaga qo'shimchalar sifatida yuborish

1. Boshlash uchun, "Vazifalar" papkasida "Ctrl" tugmasini bosing va shu bilan birga tayinlamoqchi bo'lgan barcha vazifalarni tanlang.
2. Keyin, "Uy" yorlig'idagi "Javob berish" guruhidagi "O'tkazish" tugmasini bosing.
3. Bir vaqtning o'zida yangi elektron pochta xabari ko'rsatiladi.
4. Ushbu xatga barcha tanlangan vazifalar biriktirilgan.
5. Nihoyat, siz oluvchini qo'shishingiz, yozishingiz va o'zingizning xohishingiz bilan xat yuborishingiz mumkin.

2-usul: Outlook VBA yordamida topshiriqlarni to'plash

1. Eng boshida Outlook VBA muharririga "" ga murojaat qilib o'ting.Outlook-da VBA kodini qanday ishlatish kerak".
2. Keyinchalik, quyidagi VBA kodini modulga qo'ying.

Sub AssignMultipleTasksToAPerson()
    Dim objSelection As Outlook.Selection
    Dim objTask As Outlook.TaskItem
    Dim i As Long
    Dim lTaskCount As Long
 
    'Get selected items
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       lTaskCount = 0
       For i = objSelection.Count To 1 Step -1
           If TypeOf objSelection(i) Is TaskItem Then
              Set objTask = objSelection(i)
              With objTask
                   'Alter the recipient email address as per your needs
                   .Recipients.Add ("johnsmith@datanumen.com")
                   .Recipients.ResolveAll
                   .Assign
                   .Send
              End With
              lTaskCount = lTaskCount + 1
           End If
       Next
 
      'Get prompt
       MsgBox lTaskCount & " tasks have been assigned!", vbInformation + vbOKOnly
    End If
End Sub

3. Shundan so'ng, ushbu makrosni Tez kirish asboblar paneliga qo'shing.
4. Keyinchalik, tayinlanadigan vazifalarni tanlang.
5. Nihoyat, Tez kirish asboblar panelidagi makros tugmasini bosing.
6. Darhol, bu vazifalar oldindan belgilangan qabul qiluvchiga yuklanadi.

Og'riqli Outlook ma'lumotlarini yo'qotishdan qoching

Ma'lumotlar yo'qolishi, shu jumladan Outlook ma'lumotlarining yo'qolishi juda achinarli bo'ladi. Shuning uchun, buning oldini olish uchun samarali choralar ko'rish kerak. Avvalo, muntazam ravishda ma'lumotlarning zaxira nusxasini yaratishingiz kerak. Bundan tashqari, siz o'rnatilgan tuzatish vositasini qaerdan olishingiz mumkinligini bilishingiz kerak - Scanpst va uni qanday ishlatish kerak. Va nihoyat, eng muhimi, kirish qutisini ta'mirlash vositasi ishdan chiqqan taqdirda darhol qutqaruvni ta'minlash uchun siz kuchli tashqi vositani oldindan tayyorlaganingiz ma'qul, masalan. DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com