Hvordan batchutvide alle kontaktgrupper i "Til"-feltet når du skriver en Outlook-e-post

Mange brukere ønsker seg en metode som lar dem utvide alle kontaktgrupper i "Til"-feltet samtidig når de skriver en Outlook-e-post. Derfor vil vi i dette innlegget dele en slik tilnærming med deg.

Vanligvis, for å utvide en kontaktgruppe i "Til"-feltet, kan du klikke på "+"-ikonet foran gruppenavnet. Men på denne måten, hvis det er mange kontaktgrupper i "Til"-feltet og hvis du vil utvide dem alle, er det litt kjedelig. Derfor vil vi her dele deg en måte å raskt utvide alle grupper i "Til"-feltet ved å klikke.

Batch-utvid alle kontaktgrupper i "Til"-feltet

1. For det første, start Outlook-programmet.
2. Deretter trykker du på "Alt + F11" i hovedvinduet i Outlook.
3. Deretter kommer du til VBA-redigeringsskjermen, der du bør få tilgang til en ubrukt modul eller bare sette inn en ny.
4. Kopier deretter følgende VBA-kode inn i denne modulen.

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. Etter det kan du gå ut av det gjeldende vinduet bare ved å klikke på kryssikonet i øvre høyre hjørne.
6. Senere må du legge til dette VBA-prosjektet til hurtigtilgangsverktøylinjen i meldingsvinduet.

• Først oppretter du en ny e-post.
• Klikk deretter på nedoverpilen i øvre venstre hjørne.
• Velg deretter "Flere kommandoer".
• I den nye dialogboksen kan du utføre trinnene vist i bildet nedenfor for å fullføre tilleggingen av makro til Quick Access Toolbar.

7. Til slutt kan du ta et skudd:

• Til å begynne med, opprett og skriv en ny e-post som vanlig.
• Legg deretter til flere kontaktgrupper i "Til"-feltet.
• Etter det kan du klikke på makroknappen i hurtigtilgangsverktøylinjen.
• På en gang vil alle kontaktgruppene utvides, som følgende bilde:

Redd Outlook-dataene dine i tide

Vanligvis, så snart du blir konfrontert med problemer i Outlook, vil reparasjonsverktøyet for innboks dukke opp i tankene dine i utgangspunktet. Men oftere enn ikke vil det ikke gi noen effekter. På slike tidspunkter anbefales det å gå tilbake til et mer potent og pålitelig verktøy, som f.eks DataNumen Outlook Repair. Det kan fikse PST fil på et øyeblikk, uavhengig av hvor ekstremt PST-filen din er skadet.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med