Cara Cepat Mengekstrak Semua Alamat Email dari Badan Beberapa Email Outlook

Banyak pengguna merindukan metode untuk mengekstrak semua alamat email dengan cepat dari badan email Outlook, atau bahkan beberapa email. Oleh karena itu, artikel ini akan melihat masalah ini dan membagikan kepada Anda metode cepat yang menggunakan VBA.

Ketika seseorang mengirimi Anda email yang isinya berisi daftar alamat email, jika Anda ingin menggunakan alamat email ini karena beberapa alasan, seperti menambahkan ke folder Kontak Anda atau yang lain, Anda harus terlebih dahulu mengekstrak semua alamat email di dalam badan. . Oleh karena itu, berikut ini, kami akan menunjukkan cara mencapainya dengan VBA.

Ekstrak Semua Alamat Email dari Badan Beberapa Email Outlook

1. Pertama-tama, luncurkan aplikasi Outlook Anda.
2. Kemudian, setelah masuk ke jendela utama Outlook, Anda dapat menekan tombol “Alt + F11”.
3. Selanjutnya, di jendela "Microsoft Visual Basic for Applications" baru, Anda perlu membuka modul yang tidak digunakan atau cukup memasukkan yang baru.
4. Nanti, Anda harus menyalin dan menempelkan kode VBA berikut ke dalam modul ini.

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. Nanti, Anda dapat keluar dari jendela editor VBA saat ini dan terus menambahkan makro baru ke Bilah Alat Akses Cepat.
6. Setelah itu, Anda harus mengubah tingkat keamanan makro Outlook Anda ke rendah.
7. Akhirnya, Anda bisa mencobanya.

• Pertama, di daftar email, pilih beberapa email Outlook, yang badannya Anda perlukan untuk mengekstrak alamat email.
• Kemudian klik tombol baru di Bilah Alat Akses Cepat.
• Saat Anda mendapatkan pesan yang meminta Anda "Selesai", Anda bisa masuk ke folder yang telah ditentukan di kode VBA untuk menemukan file .TXT baru.
• Buka file ini dan Anda akan melihat bahwa semua alamat email yang diekstrak, ditampilkan sebagai gambar layar berikut:

Lindungi Outlook dari Makro Berbahaya

Jika Anda telah mengatur Outlook Anda untuk mengizinkan semua makro, Anda harus mengawasi semua makro yang disamarkan dalam email yang tidak dikenal. Itu karena mungkin mengandung banyak virus tersembunyi, yang secara langsung dapat menyebabkan kerusakan Outlook. File PST yang terinfeksi virus cukup sulit untuk dipulihkan. Pada saat itu, mungkin pilihan terakhir Anda adalah yang ampuh dan dapat diandalkan Perbaikan Outlook utilitas, seperti DataNumen Outlook Repair. Itu dapat memperbaiki file Outlook tidak peduli seberapa parah kerusakannya.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk sql yang korup dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com