Outlook VBA ဖြင့် Excel ဖိုင်သို့ ဝင်လာသော အီးမေးလ်များ၏ အချက်အလက်ကို အလိုအလျောက် တင်ပို့နည်း

အသုံးပြုသူများစွာသည် Outlook သည် ဝင်လာသောအီးမေးလ်များ၏ အဓိကအချက်အလက်များကို Excel ဖိုင်တစ်ခုသို့ အလိုအလျောက်တင်ပို့နိုင်မည်ဟု မျှော်လင့်ပါသည်။ ဤဆောင်းပါးသည် ဤလိုအပ်ချက်ကို ကြည့်ရှုပြီး Outlook VBA မှတစ်ဆင့် အမြန်နည်းလမ်းကို မိတ်ဆက်ပေးပါမည်။

တစ်ခါတစ်ရံ၊ မေးလ်စာရင်းအင်းများကဲ့သို့ အချို့သောအကြောင်းပြချက်များအတွက် သင်သည် အီးမေးလ်များကို Excel ဖိုင်တစ်ခုသို့ မကြာခဏ တင်ပို့ရန် လိုအပ်ပေမည်။ ယေဘုယျအားဖြင့် လက်ရှိလက်ခံရရှိထားသောအီးမေးလ်များအတွက်၊ သင်သည် ၎င်းတို့ကို Excel သို့ တစ်ကြိမ်တည်းတင်ပို့ရန် "သွင်းကုန်နှင့် တင်ပို့ခြင်း" အင်္ဂါရပ်ကို အသုံးပြုနိုင်သည်။ သို့သော်၊ သင့်စာတိုက်ပုံးထဲသို့ ဝင်လာသည်နှင့်တစ်ပြိုင်နက် Outlook မှ ဝင်လာသောအီးမေးလ်များကို Excel သို့ အလိုအလျောက် တင်ပို့နိုင်စေရန်ပင် သင်ဆန္ဒရှိပေမည်။ သံသယမရှိဘဲ၊ Outlook တွင်ထိုကဲ့သို့သောဇာတိအင်္ဂါရပ်မရှိပါ။ ထို့ကြောင့်၊ သင်သည် 3rd party add-in သို့မဟုတ် Outlook VBA ကဲ့သို့သော အခြားနည်းလမ်းများကို အသုံးပြုရန် လိုအပ်သည်။ ဤတွင် ကျွန်ုပ်တို့သည် Outlook VBA ဖြင့် အလိုအလျောက်လုပ်နည်းကို သင်ပေးပါမည်။ အဆင့်ဆင့်နှင့် ကုဒ်များကို ရယူရန် ဆက်လက်ဖတ်ရှုပါ။

ဝင်လာသောအီးမေးလ်များ၏ အချက်အလက်ကို Excel ဖိုင်တစ်ခုသို့ အလိုအလျောက် ထုတ်ယူပါ။

1. ပထမဆုံးအနေနဲ့ Excel ဖိုင်တစ်ခုဖန်တီးသင့်ပါတယ်။

• Excel ဖိုင်အသစ်ကိုဖွင့်ပါ။
• ထို့နောက် "No" ဟု ရိုက်ထည့်ရပါမည်။ Cell A1 တွင်၊ Cell B1 ရှိ "ပေးပို့သူအမည်"၊ Cell C1 ရှိ "ပေးပို့သူအီးမေးလ်လိပ်စာ" နှင့် Cell D1 ရှိ "အီးမေးလ်အကြောင်းအရာ" နှင့် အောက်ပါပုံကဲ့သို့ Cell E1 ရှိ "လက်ခံရရှိချိန်"။
• နောက်ဆုံးအနေနဲ့ မိမိလိုချင်တဲ့ နာမည်နဲ့ လိုချင်တဲ့ folder ထဲမှာ သိမ်းလိုက်ပါ။

2. ထို့နောက် Outlook ကိုဖွင့်သင့်သည်။
3. ထို့နောက် "Alt + F11" သော့ခလုတ်များကိုနှိပ်ပါ၊ ၎င်းသည်သင့်အား VBA တည်းဖြတ်သူထံပို့ဆောင်ပေးလိမ့်မည်။
4. နောက်တစ်ခု ပေါ်လာသောဝင်းဒိုးတွင်၊ ဘယ်ဘက်ခြမ်းရှိ “ThisOutlookSession” ကို နှစ်ချက်နှိပ်ရပါမည်။
5. ထို့နောက် “ThisOutlookSession” ပရောဂျက်ဝင်းဒိုးတွင်၊ သင်သည် အောက်ပါ VBA ကုဒ်များကို ၎င်းထဲသို့ ကူးယူပြီး ကူးထည့်ရန် လိုအပ်သည်။

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
    Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
    Dim strColumnB As String
    Dim strColumnC As String
    Dim strColumnD As String
    Dim strColumnE As String

    If Item.Class = olMail Then
       Set objMail = Item
    End If
 
    'Specify the Excel file which you want to auto export the email list
    'You can change it as per your case
    strExcelFile = "E:\Email\Email Statistics.xlsx"
 
    'Get Access to the Excel file
    On Error Resume Next
    Set objExcelApp = GetObject(, "Excel.Application")
    If Error <> 0 Then
       Set objExcelApp = CreateObject("Excel.Application")
    End If
    Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
 
    'Get the next empty row in the Excel worksheet
    nNextEmptyRow = objExcelWorkSheet.Range("B" & objExcelWorkSheet.Rows.Count).End(xlUp).Row + 1
 
    'Specify the corresponding values in the different columns
    strColumnB = objMail.SenderName
    strColumnC = objMail.SenderEmailAddress
    strColumnD = objMail.Subject
    strColumnE = objMail.ReceivedTime
 
    'Add the vaules into the columns
    objExcelWorkSheet.Range("A" & nNextEmptyRow) = nNextEmptyRow - 1
    objExcelWorkSheet.Range("B" & nNextEmptyRow) = strColumnB
    objExcelWorkSheet.Range("C" & nNextEmptyRow) = strColumnC
    objExcelWorkSheet.Range("D" & nNextEmptyRow) = strColumnD
    objExcelWorkSheet.Range("E" & nNextEmptyRow) = strColumnE
 
    'Fit the columns from A to E
    objExcelWorkSheet.Columns("A:E").AutoFit
 
    'Save the changes and close the Excel file
    objExcelWorkBook.Close SaveChanges:=True
End Sub

6. နောက်ပိုင်းတွင် သင်သည် ဤကုဒ်ကို လက်မှတ်ထိုးသင့်သည်။
7. နောက်ပိုင်းတွင် restart VBA ပရောဂျက်အသစ်ကို အသက်သွင်းရန် Outlook။
8. နောက်ဆုံးတွင်၊ ယခုမှစပြီး သင်၏ Inbox ဖိုဒါထဲသို့ ရောက်သွားသည်နှင့် တပြိုင်နက် ဝင်လာသော အီးမေးလ်များအားလုံးသည် ကြိုတင်သတ်မှတ် Excel ဖိုင်သို့ အလိုအလျောက် တင်ပို့သွားမည်ဖြစ်သည်။ excel ဖိုင်သည် အောက်ပါပုံနှင့်တူလိမ့်မည် ။

နာကျင်ဖွယ် PST ဒေတာ အကျင့်ပျက်ခြစားမှုကို ရှောင်ကြဉ်ပါ။

Outlook သည် ၎င်း၏ အမျိုးမျိုးသော အင်္ဂါရပ်များကြောင့် ချီးကျူးမှုများစွာ ရရှိခဲ့သည်။ သို့သော် ၎င်းသည် မိုက်မဲသည်ဟု မဆိုလိုပါ။ အချိန်မရွေး အပေးအယူ ခံရနိုင်သေးသည်။ ဥပမာအားဖြင့်၊ သင်သည် သင်၏ Outlook ကို မကြာခဏ မမှန်မကန် ပိတ်ပါက၊ သင်၏ PST ဒေတာကို အန္တရာယ်ဖြစ်စေနိုင်ဖွယ်ရှိသည်။ ဒီနေရာမှာ ပြောချင်တာက PST ပြုပြင်ခြင်း။ data တွေလိုမျိုး အတွေ့အကြုံရှိတဲ့ tool တွေကို recourse ယူရမယ်။ DataNumen Outlook Repair.

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ mdf ကိုပြန်လည်ရယူပါ။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com