Qanday qilib bir nechta Outlook xabar (.msg) fayllaridan barcha qabul qiluvchilarni tezda chiqarib olish mumkin

Ba'zi foydalanuvchilar Outlook elektron pochtalaridan saqlangan bir nechta Outlook xabarlari fayllaridan barcha qabul qiluvchilarni tezda chiqarib olishni xohlashadi. Endi, bu post tezkor yondashuvni baham ko'rish uchun buni ko'rib chiqamiz.

Qabul qiluvchilarni bitta Outlook xabar faylidan ajratib olish uchun uni ochish uchun ikki marta bosishingiz va ochilgan Xabar oynasida qabul qiluvchilarni nusxalashingiz mumkin. Ammo, agar siz Outlook xabar fayllari to'plami bilan shug'ullanishingiz kerak bo'lsa, qo'lda ishlaydigan usul etarli darajada samarali emas. Shunday qilib, siz yanada samaraliroq yo'lni izlashingiz mumkin. Bu erda biz sizga shunday birini taqdim etamiz. Uning tafsilotlarini bilish uchun o'qing.

Bir nechta Outlook xabarlari (.msg) fayllaridan barcha qabul qiluvchilarni ajratib oling

1. Sifatida uchuntart, "ga muvofiq Outlook VBA muharririga kirish huquqiga ega bo'ling.Outlook-da VBA kodini qanday ishlatish kerak".
2. Keyinchalik, quyidagi VBA kodini nusxa ko'chiring va bo'sh modulga joylashtiring.

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. Keyin kursorni birinchi pastki dasturga olib boring.
4. Keyinchalik, "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
5. Keyin, ochilgan dialog oynasida manba Outlook xabar (.msg) fayllarini o'z ichiga olgan Windows papkasini tanlang.
6. Tanlagandan so'ng, makro ishlashni davom ettirish uchun "OK" tugmasini bosing.
7. Makros tugagach, quyidagi skrinshotda ko'rsatilganidek, barcha chiqarilgan qabul qiluvchilarning elektron pochta manzillari ro'yxatini ko'rsatadigan xabar paydo bo'ladi.

Outlook ma'lumotlaringizni xavfdan himoya qiling

Outlook ma'lumotlari korruptsiyaga moyil. Shunday qilib, Outlook ma'lumotlarini himoya qilish juda mashaqqatli vazifadir. Bu sizdan Outlook ma'lumotlari uchun muntazam zaxira nusxasini yaratishda sabr-toqatli bo'lishingizni talab qiladi. Bundan tashqari, iloji bo'lsa, tajribali va professional Outlookni tayyorlash oqilona va tavsiya etiladi PST ta'mirlash asbob, kabi DataNumen Outlook Repair, shuning uchun Outlook buzilgan taqdirda darhol va o'z vaqtida qutqaruv olishingiz mumkin.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc tiklash Sql Server va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com