Cum să extrageți rapid adresele de e-mail din tabelele din e-mailul dvs. Outlook

Dacă trebuie să extrageți toate adresele de e-mail care apar în toate tabelele unui e-mail, puteți utiliza metoda prezentată în acest articol. Vă poate permite să-l obțineți într-o clipă.

Primiți un e-mail, care conține o mulțime de adrese de e-mail în corpul mesajului său. Unele dintre adresele de e-mail sunt în tabele, dar unele sunt în corpul textului. Uneori, este posibil să doriți doar să extrageți adresele de e-mail din tabele. De obicei, în mijloace standard, trebuie să copiați manual pentru a extrage adresele de e-mail. Dar, va fi destul de greoi dacă există prea multe tabele în acest e-mail. Prin urmare, în cele ce urmează, vă vom împărtăși o abordare, care vă poate permite să o obțineți în vrac.

Extrageți rapid adresele de e-mail din tabelele din e-mail

1. De la bun început, lansați aplicația Outlook.
2. Apoi, apăsați „Alt + F11” pentru a declanșa editorul VBA.
3. Apoi, adăugați referință la „MS Word Object Library” citind „Cum să adăugați un obiect Library Referință în VBA".
4. Apoi, copiați următorul cod într-un modul neutilizat.

Sub ExtractEmailAddressesFromAllTables() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Dim strEmailAddresses As String Dim objNewMail As Outlook.MailItem Dim objNewMailDocument As Word.Document 'Obțineți e-mailul. Selectați Case Outlook. ActiveInspector.CurrentItem Case olExplorer Set objMail = ActiveExplorer.Selection.Item(1) End Select Set objMailDocument = objMail.GetInspector.WordEditor „Găsiți toate adresele de e-mail prin caractere metalice Cu objMailDocument.Range Cu .Find = .ClearReplacetFortmatting.T. [Az,0-9]{1,}\@[Az,0-9,.]{1,}" .MatchWildcards = True .Forward = True .Wrap = wdFindStop .Execute End With „Obțineți adresele de e-mail în tabel Do Until .Find.Found = False If .Information(wdWithInTable) = True Then strEmailAddresses = .Cells(1).Range.Text & strEmailAddresses End If .Collapse wdCollapseEnd .Find.Execute Loop End With 'Input from the extras addresses tabelele într-un e-mail nou Setați objNewMail = Outlook.CreateItem(olMailItem) Cu objNewMail .Body = strEmailAddresses .Afișați cu .GetInspector.WordEditor.Application.Selection .WholeStory .Range.Font.Size = 12 End With End

5. Mai târziu, ieșiți din fereastra curentă.
6. Ulterior, urmați „Pasul opțional” din „Cum să rulați codul VBA în Outlook” pentru a adăuga această macrocomandă în Bara de instrumente Acces rapid sau în panglică.
7. În sfârșit, puteți încerca.

• Mai întâi, selectați sau deschideți un e-mail.
• Apoi, rulați această macrocomandă făcând clic pe butonul nou adăugat în Bara de instrumente Acces rapid sau în panglică.
• Imediat, va apărea un nou e-mail, care conține toate adresele de e-mail extrase în corpul mesajului său, cum ar fi următoarea captură de ecran.

Recuperați după blocarea Outlook

Din când în când, Outlook se poate bloca în mod neașteptat. În cel mai bun caz, nu se va întâmpla nimic rău. O simplă restarnu o pot restaura. Cu toate acestea, în cel mai rău caz, veți întâlni o corupție gravă a Outlook. În acel moment, trebuie remediați Outlook fişier. Puteți folosi instrumentul de reparare inbox pentru a încerca. Dacă nu reușește, atunci puteți recurge la un instrument extern mai puternic, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

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