როგორ მოხდეს ავტომატური შესვლა Outlook-ის თითოეული დაბეჭდილი ელფოსტა Excel-ის სამუშაო წიგნში

ზოგიერთი მომხმარებელი იმედოვნებს, რომ ავტომატურად შეინახავს დაბეჭდილი ელფოსტის ჟურნალებს მათ Outlook-ში. თუმცა, ასეთი პირდაპირი ფუნქცია არ არის ხელმისაწვდომი. აქედან გამომდინარე, ამ სტატიაში ჩვენ წარმოგიდგენთ გზას, რომ ავტომატური ჩაწეროთ თითოეული დაბეჭდილი ელ.წერილი Excel-ის სამუშაო წიგნში.

გარკვეული მიზეზების გამო, შეიძლება დაგჭირდეთ ელ.ფოსტის ინფორმაციის ჩაწერა მისი დაბეჭდვისას. ცხადია, Outlook არ იძლევა ამის მხარდაჭერის მშობლიურ ფუნქციას. ამრიგად, ზოგადად, თქვენ უნდა შეასრულოთ ეს ამოცანა ხელით. მიუხედავად ამისა, VBA კოდის დახმარებით, თქვენ მაინც შეგიძლიათ მისცეთ უფლება თქვენს Outlook-ს, მარტივად შეასრულოს ეს მისია. ახლა, აქ ჩვენ აღმოვაჩენთ VBA კოდის ასეთ ნაწილს და დეტალურ ნაბიჯებს თქვენთვის.

ავტომატური შესვლა თითოეული დაბეჭდილი ელფოსტის Excel სამუშაო წიგნში

1. როგორცtart, გაუშვით Outlook აპლიკაცია.
2. შემდეგ, შედით VBA რედაქტორზე ღილაკზე „Visual Basic“ დაჭერით „დეველოპერი“ ჩანართზე.
3. შემდეგი, ჩადეთ შემდეგი VBA კოდი გამოუყენებელ მოდულში.

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. შემდგომში, „სურვილისამებრ ნაბიჯის“ მიხედვით გვost "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში“, დაამატეთ ეს მაკრო ლენტს ან სწრაფი წვდომის ხელსაწყოთა ზოლს.
6. მას შემდეგ, ყოველთვის, როცა გსურთ ელ.ფოსტის დაბეჭდვა, გახსოვდეთ, რომ გამოიყენოთ ახლად დამატებული მაკრო ღილაკი სტანდარტული „ბეჭდვის“ ნაცვლად.
7. ამგვარად, Outlook ავტომატურად ჩაწერს დაბეჭდილ ფოსტას წინასწარ განსაზღვრულ Excel-ის სამუშაო ფურცელში.

შეინახეთ Outlook ფაილი ხელმისაწვდომი

ზოგჯერ, Outlook-ის ავარიის შემდეგ, შეიძლება მიიღოთ შეცდომა, რომელიც მოგთხოვთ, რომ PST ფაილი მიუწვდომელია. ამ დროს, თქვენ უნდა დამშვიდდეთ და შემდეგ გამოიყენოთ შემოსულების სარემონტო ინსტრუმენტი Outlook-ის შესწორება. თუმცა, ჩაშენებული პროგრამა არ არის მრავალმხრივი. ის ასევე შეიძლება ჩავარდეს. ამრიგად, თუ თქვენი PST ფაილი ჯერ კიდევ მიუწვდომელია Scanpst-ის შეკეთების შემდეგ, თქვენი უკანასკნელი საშუალება არის უფრო ეფექტური და საიმედო გარე ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის mdf აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად