Qanday qilib Outlook-da bir nechta odamga topshiriqni to'plash mumkin

Ba'zi sabablarga ko'ra, masalan, maxfiylik yoki maxfiylik, ko'p odamlarga vazifa tayinlashda, siz alohida yuborishni xohlashingiz mumkin. Endi biz uni olish usulini taqdim etamiz.

Vazifani tayinlaganingizda, bir nechta qabul qiluvchilarni to'ldirib, "Yuborish" tugmasini bossangiz, ko'p odamlarga yuborilgan topshiriq yangilanmasligi haqida ogohlantirish olasiz. Shunday qilib, agar siz vazifa yangilanishlarini o'z vaqtida olishni istasangiz, vazifani ko'plab oluvchilarga alohida tayinlaganingiz ma'qul.

Albatta, topshiriqni yangilashni ko'rib chiqishdan tashqari, maxfiylik tufayli siz topshiriqni bir nechta shaxslarga alohida yuborishingiz kerak. Umuman olganda, siz alohida vazifalar yaratishingiz, qabul qiluvchini qo'shishingiz va birma-bir yuborishingiz kerak. Bu muammoli ekanligi aniq. Shunday qilib, quyida biz sizni yanada samaraliroq usul bilan tanishtiramiz.

To'plam bir nechta shaxsga alohida topshiriq bering

1. Boshlash uchun Outlook VBA muharririga kirish uchun "Alt + F11" tugmalarini bosing.
2. Keyin, "Microsoft Visual Basic for Applications" oynasida VBA kodini bo'sh modul yoki loyihaga nusxalash.

Sub AssignTaskToMultipleContactsSeparately()
    Dim objCurrentTask As Outlook.TaskItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim objCopiedTask As Outlook.TaskItem
    Dim i As Long
    Dim strRecipientName As String
 
    Set objCurrentTask = Outlook.Application.ActiveInspector.CurrentItem
 
    If Not objCurrentTask Is Nothing Then
       Set objRecipients = objCurrentTask.Recipients
 
       For Each objRecipient In objRecipients
           Set objCopiedTask = objCurrentTask.Copy
 
           For i = objCopiedTask.Recipients.Count To 1 Step -1
               objCopiedTask.Recipients.Remove (i)
           Next
 
           strRecipientName = Split(objRecipient.Address, "@")(0)
           strRecipientName = UCase(Left(strRecipientName, 1)) & Right(strRecipientName, Len(strRecipientName) - 1)
 
           With objCopiedTask
                .Recipients.Add (objRecipient.Address)
                .Recipients.ResolveAll
                .Subject = .Subject & " (" & strRecipientName & ")"
                .Assign
                .Send
          End With
        Next
 
        objCurrentTask.Close olDiscard
    End If
End Sub

3. Keyinchalik, ushbu makroni Vazifa oynasining lentasiga qo'shing, postdagi "Ixtiyoriy qadam" ga murojaat qiling - "Outlook-da VBA kodini qanday ishlatish kerak".
4. Oxir-oqibat, ushbu makroni sinab ko'rish uchun quyidagi amallarni bajaring.

• Birinchidan, yangi vazifa yarating va o'z xohishiga ko'ra qabul qiluvchilarni qo'shing.
• Keyin lentadagi so'l tugmani bosing.
• Quyidagi skrinshotda ko'rsatilganidek, bir vaqtning o'zida joriy vazifa oluvchilarga alohida tayinlanadi.

Outlookingizga g'amxo'rlik qiling

Outlook xatolar va buzilishlarga moyil. Shunday qilib, agar siz Outlook ma'lumotlarini yo'qotishni istamasangiz, Outlook ma'lumotlaringiz uchun muntazam zaxira nusxalarini yaratishingiz kerak. Faqat shu tarzda, Outlook fayli buzilgan bo'lsa ham, siz hali ham osongina tiklashingiz mumkin buzilgan Outlook zaxira nusxalaridan olingan ma'lumotlar. Agar zaxira bo'lmasa, siz ajoyib va ​​kuchli tiklash vositasiga murojaat qilishingiz kerak, 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 SQL Server qayta tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com