Come estrarre rapidamente tutti gli indirizzi e-mail dai corpi di più e-mail di Outlook

Molti utenti desiderano ardentemente un metodo per estrarre rapidamente tutti gli indirizzi e-mail dal corpo di un'e-mail di Outlook o anche più e-mail. Pertanto, questo articolo esaminerà questo problema e condividerà un metodo rapido che utilizza VBA.

Quando qualcuno ti invia un'e-mail il cui corpo contiene un elenco di indirizzi e-mail, se desideri utilizzare questi indirizzi e-mail per alcuni motivi, come l'aggiunta alla tua cartella Contatti o altri, devi prima estrarre tutti gli indirizzi e-mail nel corpo . Pertanto, di seguito, ti mostreremo come ottenerlo con VBA.

Estrai tutti gli indirizzi e-mail dal corpo di più e-mail di Outlook

1. All'inizio, avvia la tua applicazione Outlook.
2. Quindi, dopo essere entrato nella finestra principale di Outlook, puoi premere i tasti "Alt + F11".
3. Successivamente, nella nuova finestra "Microsoft Visual Basic for Applications", è necessario aprire un modulo inutilizzato o semplicemente inserirne uno nuovo.
4. Successivamente, devi copiare e incollare il seguente codice VBA in questo modulo.

Sub ExtractEmailAddresses_BodyofMultipleEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim i, n As Long
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim strEmailAddresses As String
    Dim objFileSystem As Object
    Dim strTextFile As String
    Dim objTextFile As Object
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       i = 0
       n = 1
       On Error Resume Next
       For i = objSelection.count To 1 Step -1
           Set objMail = objSelection.Item(i)
 
           objMail.Display
 
           Set objWordDocument = objMail.GetInspector.WordEditor
           Set objWordApp = objWordDocument.Application
           Set objSearchRange = objWordDocument.Range

           'Find the email addresses via wildcards
           With objWordApp.Selection.Find
                .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
                .MatchWildcards = True
                .Execute
           End With
 
           While objWordApp.Selection.Find.Found
                 'Get a list of email addresses in the body
                 strEmailAddresses = strEmailAddresses & n & ": " & objWordApp.Selection.Text & vbCrLf
                 objWordApp.Selection.Find.Execute
                 n = n + 1
           Wend
           objMail.Close olDiscard
      Next
    End If
 
    'Create a new Text file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTextFile = "E:\Extracted Email Addresses-" & Format(Date, "YYYYMMDD") & ".txt"
    Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True)
 
    'Input the list of extracted email addresses into this Text file
    objTextFile.WriteLine (strEmailAddresses)
    objTextFile.Close
 
    MsgBox "Completed!", vbInformation, "Extract Email Addresses"
End Sub

5. Successivamente, puoi uscire dalla finestra dell'editor VBA corrente e continuare ad aggiungere la nuova macro alla barra degli strumenti di accesso rapido.
6. Successivamente, devi modificare il livello di sicurezza delle macro di Outlook su basso.
7. Finalmente puoi provare.

• Innanzitutto, nell'elenco e-mail, seleziona più e-mail di Outlook, dal cui corpo devi estrarre gli indirizzi e-mail.
• Quindi fare clic sul nuovo pulsante nella barra di accesso rapido.
• Quando ricevi un messaggio che ti chiede "Completato", puoi andare alla cartella predefinita nel codice VBA per trovare un nuovo file .TXT.
• Apri questo file e vedrai che tutti gli indirizzi email estratti, mostrati come il seguente screenshot:

Proteggi Outlook da macro dannose

Se hai impostato Outlook per consentire tutte le macro, devi tenere d'occhio tutte le macro mascherate nelle e-mail sconosciute. È perché possono contenere molti virus nascosti, che possono causare direttamente la corruzione di Outlook. Il file PST infetto da virus è piuttosto difficile da recuperare. A quel tempo, forse la tua ultima risorsa è un potente e affidabile Correzione di Outlook utilità, come ad es DataNumen Outlook Repair. Può riparare il file di Outlook, non importa quanto sia estremo il danno.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui sql corrotto e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com