Jak szybko wyodrębnić wszystkie adresy e-mail z korpusów wielu wiadomości e-mail programu Outlook

Wielu użytkowników tęskni za metodą szybkiego wyodrębnienia wszystkich adresów e-mail z treści wiadomości e-mail programu Outlook, a nawet wielu wiadomości e-mail. Dlatego w tym artykule przyjrzymy się temu problemowi i udostępnimy szybką metodę, która wykorzystuje VBA.

Gdy ktoś wyśle ​​Ci wiadomość e-mail, której treść zawiera listę adresów e-mail, jeśli chcesz skorzystać z tych adresów e-mail z pewnych powodów, takich jak dodanie do folderu Kontakty lub innych, musisz najpierw wyodrębnić wszystkie adresy e-mail w treści . Dlatego poniżej pokażemy, jak to osiągnąć za pomocą VBA.

Wyodrębnij wszystkie adresy e-mail z treści wielu wiadomości e-mail programu Outlook

1. Na samym początku uruchom aplikację Outlook.
2. Następnie po wejściu do głównego okna Outlooka możesz wcisnąć klawisze „Alt + F11”.
3. Następnie w nowym oknie „Microsoft Visual Basic for Applications” należy otworzyć nieużywany moduł lub po prostu wstawić nowy.
4. Później musisz skopiować i wkleić następujący kod VBA do tego modułu.

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. Później możesz wyjść z bieżącego okna edytora VBA i kontynuować dodawanie nowego makra do paska narzędzi szybkiego dostępu.
6. Następnie musisz zmienić poziom bezpieczeństwa makr programu Outlook na niski.
7. Wreszcie możesz spróbować.

• Po pierwsze, na liście e-mail wybierz wiele wiadomości e-mail programu Outlook, z których treści chcesz wyodrębnić adresy e-mail.
• Następnie kliknij nowy przycisk na pasku narzędzi szybkiego dostępu.
• Gdy pojawi się komunikat z pytaniem „Ukończono”, możesz przejść do predefiniowanego folderu w kodzie VBA, aby znaleźć nowy plik .TXT.
• Otwórz ten plik, a zobaczysz, że wszystkie wyodrębnione adresy e-mail, pokazane na poniższym zrzucie ekranu:

Zabezpiecz program Outlook przed złośliwymi makrami

Jeśli ustawiłeś program Outlook tak, aby zezwalał na wszystkie makra, musisz uważać na wszystkie makra ukryte w nieznanych wiadomościach e-mail. Dzieje się tak, ponieważ mogą zawierać wiele ukrytych wirusów, które mogą bezpośrednio powodować uszkodzenie programu Outlook. Plik PST zainfekowany wirusem jest dość trudny do odzyskania. W tym czasie być może twoja ostatnia deska ratunku jest potężna i niezawodna Poprawka programu Outlook narzędzie, takie jak DataNumen Outlook Repair. Może naprawić plik programu Outlook bez względu na to, jak poważne są szkody.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony plik sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com