Cum să extindeți în lot toate grupurile de contacte în câmpul „Către” atunci când compuneți un e-mail Outlook

Mulți utilizatori tânjesc după o metodă, care să le permită să extindă toate grupurile de contacte din câmpul „Către” în bloc atunci când compun un e-mail Outlook. Prin urmare, în această post, vă vom împărtăși o astfel de abordare.

De obicei, pentru a extinde un grup de contacte în câmpul „Către”, puteți face clic pe pictograma „+” din fața numelui grupului. Cu toate acestea, prin acest mijloc, dacă există multe grupuri de contact în câmpul „Către” și dacă doriți să le extindeți pe toate, este puțin plictisitor. Astfel, aici vă vom împărtăși o modalitate de a extinde rapid toate grupurile din câmpul „Către” printr-un simplu clic.

Extindeți în lot toate grupurile de contacte în câmpul „Către” atunci când compuneți un e-mail Outlook

Extindeți în lot toate grupurile de contacte în câmpul „Către”.

  1. În primul rând, lansați programul Outlook.
  2. Apoi, în fereastra principală Outlook, apăsați butoanele tastei „Alt + F11”.
  3. Apoi veți intra în ecranul editorului VBA, în care ar trebui să accesați un modul neutilizat sau pur și simplu să introduceți unul nou.
  4. Ulterior, copiați următorul cod VBA în acest modul.
Sub ExpandAllContactGroupsInToField() Dim objMail As Outlook.MailItem Dim objRecipients As Outlook.Recipients Dim bContactGroupFound As Boolean Dim i As Long 'Obține e-mailul curent Set objMail = ActiveInspector.CurrentItem bContact = TrucGroupSet objFoundsWhile bContactGroups = objMail.Destinatari bContactGroupFound = Fals „Extindeți toate grupurile de contacte din câmpul „Către” Pentru i = objRecipients.Count To 1 Step -1 If objRecipients(i).Type = olTo Then If objRecipients(i).AddressEntry.DisplayType <> olUser Then For n = 1 Pentru a objRecipients(i).AddressEntry.Members.Count Dacă objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Apoi 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

Cod VBA - Batch Extinde toate grupurile de contact în câmpul „Către”.

  1. După aceea, puteți ieși din fereastra curentă doar făcând clic pe pictograma cruce din colțul din dreapta sus.
  2. Mai târziu, trebuie să adăugați acest proiect VBA la bara de instrumente Acces rapid a ferestrei Mesaj.
  • În primul rând, creați un e-mail nou.
  • Apoi faceți clic pe săgeata în jos din colțul din stânga sus.
  • Apoi alegeți „Mai multe comenzi”.
  • În noua casetă de dialog, puteți urma pașii indicați în imaginea de mai jos pentru a finaliza adăugarea macrocomenzii la Bara de instrumente Acces rapid.Adăugați acest proiect VBA la bara de instrumente Acces rapid a ferestrei Mesaj
  1. În cele din urmă, puteți face o fotografie:
  • Pentru a starcu, creați și compuneți un nou e-mail în mod normal.
  • Apoi adăugați mai multe grupuri de contacte în câmpul „Către”.
  • După aceea, puteți face clic pe butonul macro din Bara de instrumente Acces rapid.Rulați Macro
  • Deodată, toate grupurile de contact vor fi extinse, ca în imaginea următoare:Grupuri de contact extinse

Salvați-vă datele Outlook în timp util

În general, de îndată ce vă confruntați cu orice problemă în Outlook, instrumentul de reparare a căsuței primite vă va veni în minte în primul rând. Cu toate acestea, de cele mai multe ori, nu va produce niciun efect. În astfel de momente, se recomandă să recurgeți la o utilitate mai puternică și mai de încredere, cum ar fi DataNumen Outlook Repair. Poate reparați PST fișier într-o clipă, indiferent de cât de extrem de deteriorat este fișierul dvs. PST.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com

3 răspunsuri la „Cum să extindeți în lot toate grupurile de contacte în câmpul „Către” atunci când compuneți un e-mail Outlook”

  1. Ce zici, în schimb, oamenii onorează scopul grupurilor de e-mail și nu le extind? De ce le faceți mai ușor oamenilor ignoranți cu privire la scopuri să învingă munca pe care am făcut-o pentru a ajuta lumea cu un singur clic leneș?

  2. Primiți o eroare cu aceste macrocomenzi
    „Variabila obiect sau Cu variabila bloc nesetata”

    subliniază rândul de mai jos:
    Pentru n = 1 To objRecipients(i).AddressEntry.Members.Count

Lasă un comentariu

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate *