Kuinka erälaajentaa kaikki yhteystietoryhmät Vastaanottaja-kentässä kirjoittaessasi Outlook-sähköpostia

Monet käyttäjät kaipaavat menetelmää, jonka avulla he voivat laajentaa kaikkia yhteystietoryhmiä "Vastaanottaja"-kentässä kerralla Outlook-sähköpostia kirjoittaessaan. Siksi tässä viestissä jaamme teille tällaisen lähestymistavan.

Tavallisesti voit laajentaa yhteysryhmää Vastaanottaja-kenttään napsauttamalla ryhmän nimen edessä olevaa + -kuvaketta. Tällä tavoin, jos "Vastaanottaja" -kentässä on useita kontaktiryhmiä ja jos haluat laajentaa niitä kaikkia, se on hieman tylsiä. Siten tässä jaamme sinulle tavan laajentaa kaikki ryhmät Vastaanottaja-kenttään yksinkertaisesti napsautuksella.

Erälaajenna kaikki yhteystietoryhmät Vastaanottaja-kenttään

1. Käynnistä ensin Outlook-ohjelma.
2. Paina sitten Outlookin pääikkunassa ”Alt + F11” -näppäimiä.
3. Seuraavaksi pääset VBA-editorin näyttöön, jossa sinun on käytettävä käyttämätöntä moduulia tai yksinkertaisesti lisättävä uusi.
4. Kopioi sitten seuraava VBA-koodi tähän moduuliin.

Sub ExpandAllContactGroupsInToField()
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim bContactGroupFound As Boolean
    Dim i As Long
 
    'Get the current mail
    Set objMail = ActiveInspector.CurrentItem
    bContactGroupFound = True
 
    Do While bContactGroupFound = True
       Set objRecipients = objMail.Recipients
       bContactGroupFound = False
 
       'Expand all contact groups in "To" field
       For i = objRecipients.Count To 1 Step -1
           If objRecipients(i).Type = olTo Then
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        bContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          End If
      Next i
      objRecipients.ResolveAll
    Loop
End Sub

5. Sen jälkeen voit poistua nykyisestä ikkunasta napsauttamalla ristikuvaketta oikeassa yläkulmassa.
6. Myöhemmin sinun on lisättävä tämä VBA-projekti Viestin pikakäyttötyökaluriville.

• Luo ensin uusi posti.
• Napsauta sitten vasemmassa yläkulmassa olevaa alanuolta.
• Valitse seuraavaksi "Lisää komentoja".
• Uudessa valintaikkunassa voit suorittaa alla olevan kuvan osoittamat vaiheet täydentääksesi makron pikakäyttötyökaluriville.

7. Lopuksi voit ottaa kuvan:

• Aloita luomalla ja kirjoittamalla uusi sähköpostiviesti normaalisti.
• Lisää sitten useita yhteystietoryhmiä Vastaanottaja-kenttään.
• Tämän jälkeen voit napsauttaa makropainiketta Pikakäynnistystyökalurivillä.
• Kaikkia kontaktiryhmiä laajennetaan kerralla, kuten seuraava kuva:

Pelastaa Outlook-tiedot oikeaan aikaan

Yleensä heti, kun kohtaat ongelmia Outlookissa, postilaatikon korjaustyökalu tulee mieleesi ensinnäkin. Usein kuin ei, sillä ei kuitenkaan ole vaikutuksia. Sellaisina aikoina on suositeltavaa palata tehokkaampaan ja luotettavampaan apuohjelmaan, kuten DataNumen Outlook Repair. Se voi korjaa PST tiedosto hetkessä, riippumatta siitä, kuinka erittäin PST-tiedosto on vahingoittunut.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauttaa sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com