Excel Workbook တွင် Printed Outlook Email တစ်ခုစီကို အလိုအလျောက် လော့ဂ်လုပ်နည်း

အချို့သောအသုံးပြုသူများသည် ၎င်းတို့၏ Outlook တွင် ရိုက်နှိပ်ထားသော အီးမေးလ်မှတ်တမ်းများကို အလိုအလျောက်သိမ်းဆည်းရန် မျှော်လင့်ကြသည်။ သို့သော် ထိုကဲ့သို့သော တိုက်ရိုက်အင်္ဂါရပ်ကို မရနိုင်ပါ။ ထို့ကြောင့်၊ ဤဆောင်းပါးတွင်၊ တိကျသော Excel အလုပ်စာအုပ်တွင် ပုံနှိပ်ထားသော အီးမေးလ်တစ်ခုစီကို အလိုအလျောက်ဝင်ရောက်ရန် နည်းလမ်းတစ်ခုကို မိတ်ဆက်ပေးပါမည်။

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

Excel Workbook တွင် Printed Email တစ်ခုစီကို အလိုအလျောက် မှတ်တမ်းတင်ပါ။

1. အဖြစ်အတွက်tart၊ Outlook အက်ပ်ကို စတင်ပါ။
2. ထို့နောက် “Developer” တက်ဘ်ရှိ “Visual Basic” ခလုတ်ကိုနှိပ်ခြင်းဖြင့် VBA တည်းဖြတ်စနစ်ကို ဝင်ရောက်ကြည့်ရှုပါ။
3. ထို့နောက်၊ အောက်ဖော်ပြပါ VBA ကုဒ်ကို အသုံးမပြုသော module တစ်ခုတွင် ထည့်ပါ။

Sub RecordPrintedEmails()
    Dim objMail As Outlook.MailItem
    Dim objExcelApp As Excel.Application
    Dim strExcelFile As String
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
 
    'Get the mail
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    objMail.PrintOut
 
    On Error Resume Next
    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
 
    'Change the path to the specific excel file
    strExcelFile = "E:\Emails\Printed Emails.xlsx"
    Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
    objExcelWorksheet.Activate
 
    nNextEmptyRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
    'Change the details as per your own case
    With objExcelWorksheet
         .Cells(nNextEmptyRow, 1) = Date
         .Cells(nNextEmptyRow, 2) = objMail.Subject
         .Cells(nNextEmptyRow, 3) = objMail.Sender
         .Cells(nNextEmptyRow, 4) = objMail.SentOn
         .Cells(nNextEmptyRow, 5) = objMail.Size
         .Cells(nNextEmptyRow, 6) = objMail.Attachments.Count
         .Columns("A:E").AutoFit
    End With
 
    objExcelWorkbook.Close True
    objExcelApp.Quit
End Sub

4. ထို့နောက် VBA အယ်ဒီတာမှ ထွက်ပါ။
5. နောက်ပိုင်းတွင်၊ p ပါရှိ “ရွေးချယ်နိုင်သောအဆင့်” အရ၊ost "သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။“၊ ဤ macro ကို ဖဲကြိုး သို့မဟုတ် Quick Access Toolbar သို့ ထည့်ပါ။
6. ထိုအချိန်မှစ၍၊ သင်သည် အီးမေးလ်တစ်စောင်ကို ပရင့်ထုတ်လိုသည့်အခါတိုင်း၊ ပုံမှန် "ပုံနှိပ်ခြင်း" အစား အသစ်ထည့်သွင်းထားသော မက်ခရိုခလုတ်ကို အသုံးပြုရန် မမေ့ပါနှင့်။
7. ဤနည်းအားဖြင့်၊ Outlook သည် ကြိုတင်သတ်မှတ်ထားသော Excel အလုပ်စာရွက်တွင် ပုံနှိပ်ထားသောမေးလ်ကို အလိုအလျောက် မှတ်တမ်းပေးမည်ဖြစ်သည်။

Outlook ဖိုင်ကို ဝင်သုံးနိုင်အောင် ထိန်းသိမ်းထားပါ။

တစ်ခါတစ်ရံတွင်၊ Outlook ပျက်သွားပြီးနောက်၊ PST ဖိုင်ကို လက်လှမ်းမမီနိုင်ဟု အချက်ပြသည့် အမှားကို သင်လက်ခံရရှိနိုင်ပါသည်။ ထိုအချိန်တွင် သင်သည် စိတ်အေးအေးထားပြီးမှ ဝင်စာပုံးပြုပြင်ရေးကိရိယာကို အသုံးပြုပါ။ Outlook ကိုပြင်ပါ။. သို့သော်၊ ထည့်သွင်းထားသော အသုံးဝင်မှုသည် စွယ်စုံရမဟုတ်ပါ။ ပျက်သွားနိုင်တယ်။ ထို့ကြောင့်၊ သင်၏ PST ဖိုင်ကို Scanpst ပြုပြင်ပြီးနောက် မရရှိနိုင်သေးပါက၊ သင်၏နောက်ဆုံးအပန်းဖြေစခန်းသည် ပိုမိုထိရောက်ပြီး ယုံကြည်စိတ်ချရသော ပြင်ပကိရိယာတစ်ခုဖြစ်သည့်၊ DataNumen Outlook Repair.

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

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