Birden Çok Outlook İletisi (.msg) Dosyasından Tüm Alıcıları Hızlı Bir Şekilde Çıkarma

Bazı kullanıcılar, Outlook e-postalarından kaydedilen birden çok Outlook iletisi dosyasındaki tüm alıcıları hızlı bir şekilde ayıklamak ister. Şimdi, bu post hızlı bir yaklaşımı paylaşmak için buna bakacaktır.

Alıcıları tek bir Outlook mesaj dosyasından ayıklamak için dosyayı çift tıklayarak açabilir ve ardından alıcıları açılan Mesaj penceresine kopyalayabilirsiniz. Ancak, bir grup Outlook mesaj dosyasıyla uğraşmanız gerekiyorsa, manuel yöntem yeterince verimli değildir. Böylece çok daha verimli bir yol arayabilirsiniz. İşte size böyle birini tanıtacağız. Ayrıntılarını öğrenmek için okumaya devam edin.

Birden Fazla Outlook Mesajı (.msg) Dosyasından Tüm Alıcıları Çıkarın

1. olaraktart, “ göre Outlook VBA düzenleyicisine erişinOutlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
2. Ardından, aşağıdaki VBA kodunu kopyalayıp boş bir modüle yapıştırın.

Dim strRecipients As String

Sub ExtractRecipientsFromOutlookMSGFiles()
    Dim objShell, objWindowsFolder As Object
 
    strRecipients = ""
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       Call ProcessWindowsFolders(objWindowsFolder.self.Path & "\")
       'Display a Message
       MsgBox "Recipients: " & vbCrLf & strRecipients, vbInformation + vbOKOnly
    End If
End Sub

Sub ProcessWindowsFolders(strFolderPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objSubfolder As Object

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strFolderPath)
 
    For Each objFile In objFolder.Files
        If objFileSystem.GetExtensionName(objFile) = "msg" Then
           Set objItem = Session.OpenSharedItem(objFile.Path)

           If TypeName(objItem) = "MailItem" Then
              Set objMail = objItem
              'Extract recipients' email addresses
              For Each objRecipient In objMail.Recipients
                  strRecipients = strRecipients & objRecipient.Address & vbCr
              Next
           End If
        End If
    Next
 
    'Process all subfolders recursively
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubfolder In objFolder.SubFolders
           If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
               Call ProcessWindowsFolders(objSubfolder.Path)
           End If
       Next
    End If
End Sub

3. Ardından, imleci ilk alt programda hareket ettirin.
4. Ardından “Çalıştır” butonuna tıklayın veya “F5” tuşuna basın.
5. Ardından, açılan iletişim kutusunda, kaynak Outlook mesajı (.msg) dosyalarını içeren Windows klasörünü seçin.
6. Seçtikten sonra, makronun çalışmaya devam etmesi için “Tamam”a tıklayın.
7. Makro bittiğinde, aşağıdaki ekran görüntüsünde gösterildiği gibi, çıkarılan tüm alıcıların e-posta adreslerini listeleyen bir mesaj görünecektir.

Outlook Verilerinizi Tehlikeden Koruyun

Outlook verileri kuşkusuz bozulmaya eğilimlidir. Bu nedenle, Outlook verilerini korumak oldukça zahmetli bir iştir. Outlook verileri için düzenli yedekleme yapmaya devam etmenizi gerektirir. Ayrıca, mümkünse, deneyimli ve profesyonel bir Görünüm hazırlamak ihtiyatlı ve tavsiye edilir. PST onarımı araç, gibi DataNumen Outlook Repair, böylece Outlook bozulması durumunda anında ve zamanında kurtarma elde edebilirsiniz.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. kurtarmak Sql Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com