Mange brukere lengter etter en metode som kan gjøre dem i stand til å utvide alle kontaktgrupper i "Til"-feltet i bulk når de skriver en Outlook-e-post. Derfor, i denne sost, vil vi dele deg en slik tilnærming.
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
- For det første, start Outlook-programmet.
- Deretter trykker du på "Alt + F11" i hovedvinduet i Outlook.
- Deretter kommer du til VBA-redigeringsskjermen, der du bør få tilgang til en ubrukt modul eller bare sette inn en ny.
- 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 'Hent gjeldende e-postsett objMail = ActiveInspector.CurrentItem bContactGroupFound = True Doup obFoundRecipe KontaktgruppeFunnet = False 'Utvid alle kontaktgrupper i "To"-feltet For i = objRecipients.Count To 1 Step -1 If objRecipients(i).Type = olTo Then If objRecipients(i).AddressEntry.DisplayType <> olUser Then For n = 1 Til objRecipients(i).AddressEntry.Members.Count If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Deretter objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n). Adresse) Else objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name) bContactGroupFound = True End If Next objRecipients(i).Slett End If End If Next i objRecipients.ResolveAll Loop End Sub
- Etter det kan du gå ut av det gjeldende vinduet bare ved å klikke på kryssikonet i øvre høyre hjørne.
- 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.
- Til slutt kan du ta et skudd:
- Til start med, opprett og komponer en ny e-post som normalt.
- 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
Hva med å i stedet respektere formålet med e-postgrupper og ikke utvide dem? Hvorfor gjør du det lettere for folk som er uvitende om hensiktene å beseire arbeidet vi har gjort for å organisere hjelpe verden med et enkelt lat klikk?
Samme feil for meg også..
Få en feilmelding med denne makroen
"Objektvariabel eller Med blokkvariabel ikke angitt"
høydepunkter linjen nedenfor:
For n = 1 Til objRecipients(i).AddressEntry.Members.Count