Slik trekker du raskt ut e-postadressene fra tabellene i Outlook-e-posten din

Hvis du trenger å trekke ut alle e-postadressene som vises i alle tabellene i en e-post, kan du bruke metoden vist i denne artikkelen. Det kan la deg få det i en håndvending.

Du mottar en e-post som inneholder mange e-postadresser i meldingsteksten. Noen av e-postadressene er i tabellene, men noen er i teksten. Noen ganger vil du kanskje bare trekke ut e-postadressene fra tabellene. Vanligvis, på standardmåter, må du kopiere manuelt for å trekke ut e-postadressene. Men det vil være ganske tungvint hvis det er for mange bord i denne e-posten. Derfor vil vi i det følgende dele deg en tilnærming som kan la deg få den i bulk.

Trekk ut e-postadressene raskt fra tabellene i e-post

1. Start Outlook-applikasjonen helt i begynnelsen.
2. Trykk deretter "Alt + F11" for å utløse VBA-editor.
3. Deretter legger du til referanse til "MS Word Object Library" ved å lese "Hvordan legge til et objekt Library Referanse i VBA".
4. Kopier deretter følgende kode til en ubrukt modul.

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 'Få posten Velg sak Outlook.Application.ActiveWindow.Classor => ActiveInspector.CurrentItem Case olExplorer Set objMail = ActiveExplorer.Selection.Item(1) End Select Set objMailDocument = objMail.GetInspector.WordEditor 'Finn alle e-postadresser via jokertegn med objMailDocument.Range With .Find .ClearReplacementFormatting =.ClearReplacementFormatting. [Az,0-9]{1,}\@[Az,0-9,.]{1,}" .MatchWildcards = True .Forward = True .Wrap = wdFindStop .Execute End With 'Få e-postadressene i tabellen Gjør til .Find.Found = False If .Information(wdWithInTable) = True Deretter strEmailAddresses = .Cells(1).Range.Text & strEmailAddresses End If .Collapse wdCollapseEnd .Find.Execute Loop End Med 'Skriv inn alle utpakkede e-postadresser fra tabeller inn i en ny post Sett objNewMail = Outlook.CreateItem(olMailItem) Med objNewMail .Body = strEmailAddresses .Vis med .GetInspector.WordEditor.Application.Selection .WholeStory .Range.Font.Size = 12 End With End With End Sub

5. Avslutt det gjeldende vinduet senere.
6. Følg deretter "Valgfritt trinn" i "Hvordan kjøre VBA-kode i Outlook" for å legge til denne makroen til hurtigtilgangsverktøylinjen eller båndet.
7. Endelig kan du prøve.

• Først velger du eller åpner en e-post.
• Kjør deretter denne makroen ved å klikke på den nylig lagt til knappen i verktøylinjen eller båndet for hurtigtilgang.
• Med en gang vil en ny e-post vises, som inneholder alle de utpakkede e-postadressene i meldingsteksten, som følgende skjermbilde.

Gjenopprett fra Outlook-krasj

Fra tid til annen kan Outlook krasje uventet. I beste fall vil ingenting vondt skje. En enkel restarkan gjenopprette den. Men i verste fall vil du møte alvorlig Outlook-korrupsjon. På den tiden må du fikse Outlook fil. Du kan bruke reparasjonsverktøyet for innboks for å prøve. Hvis det mislykkes, kan du ty til et mer potent eksternt verktøy, som f.eks DataNumen Outlook Repair.

Forfatterintroduksjon:

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