Kaip rodyti kontaktų grupės narius sąraše naudojant „Outlook VBA“.

Apskritai, norėdami patikrinti kontaktų grupės narius, pirmiausia turite ją atidaryti. Jei norite matyti kontaktų grupės narius tiesiogiai sąraše jo neatverdami, galite pasinaudoti šiame straipsnyje aprašytu metodu.

Iš mano ankstesnio straipsnio – „Kaip automatiškai rodyti narių skaičių „Outlook“ kontaktų grupėse“, galite sužinoti, kaip sąraše rodyti grupės narių skaičių. Panašiai, daugelis vartotojų tikisi tiesiogiai parodyti konkrečius grupės narius atskirame stulpelyje. Todėl čia mes išmokysime jus, kaip tai pasiekti.

Rodyti kontaktų grupės narius sąraše

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada galite paspausti „Alt + F11“ klavišus, kad pasiektumėte VBA redaktorių.
3. Kitame lange „Microsoft Visual Basic for Applications“ atidarykite projektą „ThisOutlookSession“.
4. Tada nukopijuokite ir įklijuokite šį VBA kodą į šį projektą.

Private WithEvents olItems As Outlook.Items
Private objContactGroup As Outlook.DistListItem
Private objProperty As Outlook.UserProperty
Private strProperName As String
Private i As Long
Private objGroupMember As Outlook.recipient
Private strMemberName, strMembers As String

Private Sub Application_Startup()
    Set olItems = Application.Session.GetDefaultFolder(olFolderContacts).Items
    'Auto Update the members in group list on startup
    Call DisplayMembers
End Sub

'Auto Display the members of new Contact Group
Private Sub olItems_ItemAdd(ByVal Item As Object)
    If TypeOf objItem Is DistListItem Then
 
       strProperName = "Members"
       Set objProperty = objCurrentItem.UserProperties.Find(strProperName, True)
 
       Set objContactGroup = objItem
       Set objProperty = objContactGroup.UserProperties.Add(strProperName, olText, True)
 
       For i = 1 To objContactGroup.MemberCount
           Set objGroupMember = objContactGroup.GetMember(i)
           strMemberName = Split(objGroupMember.Address, "@")(0)
           strMemberName = UCase(Left(strMemberName, 1)) & Right(strMemberName, Len(strMemberName) - 1)
           strMembers = strMembers & strMemberName & "; "
       Next i

       objProperty.value = strMembers
       objContactGroup.Save
    End If
End Sub

Sub DisplayMembers()
    For Each objItem In olItems
        If TypeOf objItem Is DistListItem Then
           strProperName = "Members"
           Set objProperty = objItem.UserProperties.Find(strProperName, True)
 
           Set objContactGroup = objItem
           Set objProperty = objContactGroup.UserProperties.Add(strProperName, olText, True)
 
           'Get the names of all group members
           For i = 1 To objContactGroup.MemberCount
               Set objGroupMember = objContactGroup.GetMember(i)
               strMemberName = Split(objGroupMember.Address, "@")(0)
               strMemberName = UCase(Left(strMemberName, 1)) & Right(strMemberName, Len(strMemberName) - 1)
               strMembers = strMembers & strMemberName & "; "
           Next i
 
           objProperty.value = strMembers
           objContactGroup.Save
        End If
        strMembers = ""
    Next
End Sub

5. Toliau turėtumėte spustelėti „Application_Startup“ subrutiną ir įrankių juostoje spustelėti piktogramą „Vykdyti“, kuri iš karto suaktyvins šią makrokomandą.
6. Po to išeikite iš VBA redaktoriaus ir toliau pridėkite lauką „Nariai“ į kontaktų grupių sąrašą.

• Kontaktų srityje pasiekite tinkamą aplanką.
• Tada pereikite į skirtuką „Rodinys“, spustelėkite „Keisti vaizdą“ ir pasirinkite „Sąrašas“.
• Tada paspauskite mygtuką „Peržiūrėti nustatymus“.
• Vėliau naujai iššokančiajame dialogo lange spustelėkite „Stulpeliai“.
• Tolesniame dialogo lange „Rodyti stulpelius“ pridėkite lauką „Nariai“, atlikdami toliau pateiktoje ekrano kopijoje nurodytus veiksmus.

7. Galiausiai galite grįžti į kontaktų aplanką. Kontaktų grupės sąraše matysite narius, pavyzdžiui, šį paveikslėlį:
8. Nuo šiol kiekvieną kartą paleidus „Outlook“, ji automatiškai atnaujins kiekvienos kontaktų grupės narių sąrašą.
9. Be to, „Outlook“ automatiškai gaus ir parodys naujos kontaktų grupės narius stulpelyje „Nariai“.

Būkite gerai pasiruošę „Outlook“ korupcijai

Nors „Outlook“ yra daug funkcijų, ji vis tiek negali apsisaugoti nuo žalos. Taigi jūs turite būti budrūs, kad išvengtumėte visų galimų pavojų. Be jokių abejonių, turite sukurti nuoseklią ir naujausią PST duomenų atsarginę kopiją. Be to, geriau išlikti nepaprastam ir patikimam PST taisymas patogus įrankis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

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