Бүх ажлын байрны гарчигтай бүх Outlook контактуудаас холбоо барих бүлгийг хэрхэн хурдан үүсгэх вэ

Тодорхой албан тушаалын нэрээр холбоо барих хүмүүстэй илүү хялбар харьцахын тулд та эдгээр харилцагчаас холбоо барих бүлгийг хурдан үүсгэхийг хүсч магадгүй юм. Одоо энэ нийтлэлд бид танд хурдан аргыг хуваалцах болно.

Хэрэв та тодорхой албан тушаалын нэр бүхий харилцагчид руу и-мэйл, даалгавар эсвэл уулзалтын урилга байнга илгээдэг бол та тэднээс холбоо барих бүлэг үүсгэх нь илүү тохиромжтой байх болно. Ерөнхийдөө стандарт аргаар эхлээд шинэ холбоо барих бүлэг үүсгээд дараа нь бүлэгт холбоо барих гишүүдийг нэг нэгээр нь нэмэх хэрэгтэй. Энэ нь жаахан асуудалтай байна. Тиймээс дараахь зүйлийг олж авахын тулд бид танд илүү хурдан арга замыг зааж өгөх болно.

Ажлын тодорхой нэртэй бүх харилцагчаас холбоо барих бүлэг үүсгэх

1. Эхлээд Холбоо барих хавтаснаас тухайн ажлын гарчигтай харилцагчаа сонгоно уу.
2. Дараа нь "Alt + F11" товчийг дарж Outlook VBA засварлагч руу орно уу.
3. Дараа нь дараахь VBA кодыг хоосон модуль эсвэл төсөлд хуулж ав.

Dim objContact As Outlook.ContactItem
Dim strJobTitle As String
Dim objNewGroup As Outlook.DistListItem
Dim objTempMail As Outlook.MailItem

Sub CreateContactGroupfromContactsSameJobTitle()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    Set objContact = Outlook.Application.ActiveExplorer.Selection(1)
    strJobTitle = objContact.JobTitle
 
    Set objNewGroup = Outlook.Application.CreateItem(olDistributionListItem)
    Set objTempMail = Outlook.Application.CreateItem(olMailItem)
 
    'Process all Contacts folders
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olContactItem Then
               Call ProcessContactsFolders(objFolder)
            End If
        Next
    Next
 
    objNewGroup.AddMembers objTempMail.Recipients
    objNewGroup.Display
End Sub

Sub ProcessContactsFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objSubfolder As Outlook.Folder
 
    For Each objItem In objCurFolder.Items
        If objItem.Class = olContact Then
           If objItem.JobTitle = strJobTitle Then
              'Add the contact having the specific job title to the new group
              objTempMail.Recipients.Add (objItem.Email1Address)
              objTempMail.Recipients.ResolveAll
           End If
        End If
    Next
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call ProcessContactsFolders(objSubfolder)
       Next
    End If
End Sub

4. Үүний дараа курсорыг эхний дэд програм руу шилжүүлнэ үү.
5. Эцэст нь “F5” товчлуур дээр дарж энэ макро ажиллуулна уу.
6. Макро дуусахад шинэ холбоо барих бүлэг гарч ирнэ. Үүнд 1-р алхам дахь сонгосон харилцагчийн ижил ажлын нэртэй бүх харилцагчдыг багтаана.

Outlook өгөгдлийг үр дүнтэй хамгаалах

Outlook нь боломжоор баялаг боловч эмзэг байдлаасаа салж чадахгүй. Тиймээс, хэрэв та Outlook-ийн үнэтэй өгөгдлөө алдахыг хүсэхгүй байгаа бол түүнийг хамгаалахын тулд хүчин чармайлт гаргах хэрэгтэй. Жишээлбэл, та Outlook-ийн өгөгдлийг тодорхой хугацаанд нөөцлөх хэрэгтэй. Түүнчлэн, боломжийн үнэтэй бол PST засварын багаж хэрэгсэлтэй байхыг зөвлөж байна DataNumen Outlook RepairАль болох засварын газар jiff дэх өгөгдөл.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. эвдэрсэн кв програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com