Muayyan jo'natuvchidan Excel fayliga barcha elektron pochta xabarlarini eksport qilishning 2 usuli

Agar siz ma'lum bir jo'natuvchidan kelgan elektron pochta xabarlarini Excel fayliga tezda eksport qilmoqchi bo'lsangiz, ushbu maqolada keltirilgan quyidagi 2 ta vositadan foydalanishingiz mumkin.

Ba'zi sabablarga ko'ra, masalan, xulosa chiqarish kabi, ba'zida ma'lum bir jo'natuvchidan kelgan elektron pochta xabarlari kabi ma'lum elektron pochta xabarlarini Excel fayliga eksport qilishingiz kerak bo'lishi mumkin. Eksport qilish haqida gap ketganda, ko'pchilik foydalanuvchilarning xayoliga birinchi navbatda "eksport" xususiyati keladi. Rostini aytsam, Outlook VBA dan foydalanish an'anaviy "eksport" xususiyatiga qaraganda ancha qulayroq bo'ladi. Endi biz ikkala usulni batafsil tanishtiramiz.

1-usul: “Eksport” funksiyasidan foydalaning

1. Eng boshida Outlook ilovasini ishga tushiring.
2. Keyin elektron pochta ro'yxatidagi qidiruv maydoniga bosing, bu "Qidiruv asboblari" tasmasini yoqadi.
3. Tasmadagi "Kimdan" tugmasini bosing.
4. Keyin "jo'natuvchi nomi" belgisini ma'lum jo'natuvchining nomi bilan almashtiring.
5. Shundan so'ng, ro'yxatda faqat ma'lum jo'natuvchining elektron pochta xabarlari ko'rsatiladi. Endi ularning barchasini tanlash uchun "Ctrl + A" ni bosing.
6. Keyingi o'ng tugmasini bosing va "Ko'chirish" > "Boshqa papka" ni tanlang.
7. Keyinchalik, ochilgan "Elementlarni ko'chirish" dialog oynasida yangi papka yarating va ma'lum elektron pochta xabarlarini ko'chirish uchun ushbu jildni tanlang.
8. Shundan so'ng siz "Fayl"> "Ochish"> "Import" ga o'tishingiz mumkin.
9. Keyin quyidagi dialog oynasida "Faylga eksport qilish" > "Keyingi" > "Microsoft Excel 97 – 2003" > "Keyingi" ni tanlang.
10. Keyin ma'lum bir jo'natuvchidan elektron pochta xabarlarini saqlaydigan maxsus papkani tanlang va "Keyingi" tugmasini bosing.
11. Keyin Excel faylini tanlash yoki yangi Excel faylini yaratish uchun "ko'rib chiqish" tugmasini bosing.
12. Keyinchalik, "Keyingi" > "Finish" tugmasini bosing.
13. Nihoyat Outlook eksport qilish uchun ishlaydi. Eksport jarayoni tugagandan so'ng, siz ushbu Excel faylini topishingiz va ochishingiz mumkin.

2-usul: Outlook VBA-dan foydalaning

1. Birinchidan, "Alt + F11" tugmachalarini bosing.
2. Keyin ochilgan oynada yangi modulni oching va unga quyidagi kodlarni ko'chiring.

Sub ExportEmailsfromSpecificSender()
    Dim objEmails, objSpecificEmails As Outlook.Items
    Dim objItem As Object
    Dim strSpecificSender As String
    Dim strFilter As String
    Dim objExcelApplication As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nRow As Integer
    Dim strFilePath As String
 
    On Error Resume Next
    'Get the emails from a specific sender
    Set objEmails = Application.Session.GetDefaultFolder(olFolderInbox).Items
    strSpecificSender = InputBox("Input the name of the specific sender:", "Specify Sender")
    strFilter = "[From] = '" & strSpecificSender & "'"
    Set objSpecificEmails = objEmails.Restrict(strFilter)
 
    Set objExcelApplication = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApplication.Workbooks.Add
 
    'Export the specific emails to worksheet
    Set objExcelWorksheet = objExcelWorkbook.Worksheets(1)
    With objExcelWorksheet
         .Cells(1, 1) = "Subject"
         .Cells(1, 2) = "Received"
         .Cells(1, 3) = "Body"
         .Cells(1, 4) = "Categories"
         .Cells(1, 5) = "Size"
    End With
 
    nRow = 2
    For Each objItem In objSpecificEmails
        With objExcelWorksheet
             .Name = "From " & strSpecificSender
             .Cells(nRow, 1) = objItem.Subject
             .Cells(nRow, 2) = objItem.ReceivedTime
             .Cells(nRow, 3) = objItem.Body
             .Cells(nRow, 4) = objItem.Categories
             .Cells(nRow, 5) = objItem.Size
        End With
        nRow = nRow + 1
    Next
 
    objExcelWorksheet.Columns("A:E").AutoFit

    'Save the Excel workbook
    strFilePath = "C:\Report\Emails from " & strSpecificSender & ".xlsx"
    objExcelWorkbook.Close True, strFilePath
 
    'Notify you of the export complete
    MsgBox ("Export Complete!")
End Sub

3. Keyin asboblar panelidagi "Ishga tushirish" belgisini bosing.
4. Shundan so'ng, siz aniq jo'natuvchining ismini kiritishingiz kerak bo'ladi.
5. Keyinchalik, "OK" tugmasini bosing.
6. Outlook darhol ma'lum bir jo'natuvchidan elektron pochta xabarlarini eksport qilishni boshlaydi va Excel faylini oldindan belgilangan maqsadli papkaga saqlaydi.
7. Eksport tugallangandan so'ng, uni ochish va tekshirish uchun maqsad jildga o'tishingiz mumkin.

Moslashuvchanlik bilan Outlook muammolaridan xalos bo'ling

Outlook turli xil xatolarga moyil bo'lganligi sababli, uni kuchli saqlash tavsiya etiladi Outlook tuzatish kabi yaqin atrofdagi asbob DataNumen Outlook Repair. Bunday holda, kichik xatolarni hal qilish uchun siz shunchaki Scanpst.exe dan foydalanishingiz mumkin. Ammo jiddiy muammolar uchun siz kuchliroq vositaga murojaat qilishingiz mumkin.

Muallif kirish:

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