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

ზოგიერთ მომხმარებელს სურს ავტომატურად ჩაიწეროს დანართების ინფორმაცია ყველა შემოსულ ელფოსტაში. ეს სტატია გაგიზიარებთ სწრაფ დროს ამის მარტივად გასაცნობიერებლად.

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

ავტომატური ექსპორტი შემომავალი წერილების დანართის ინფორმაციის Excel-ში

1. თავდაპირველად გაუშვით Outlook აპლიკაცია.
2. შემდეგ გადადით VBA რედაქტორში "Alt + F11" საშუალებით.
3. შემდეგი, დააკოპირეთ შემდეგი VBA კოდი მოდულში.

Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objAttachment As Outlook.Attachment
 
    If objMail.Attachments.Count > 0 Then
       'Change the path to the specific Excel file
       strExcelFile = "E:\Attachment Info.xlsx"
 
       Set objExcelApp = CreateObject("Excel.Application")
       objExcelApp.Visible = True
       Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
       Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
 
       'Export Attachment info to Excel
       For Each objAttachment In objMail.Attachments
           nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
           With objExcelWorksheet
                .Cells(nLastRow, 1) = objMail.Subject
                .Cells(nLastRow, 2) = objMail.SenderEmailAddress
                .Cells(nLastRow, 3) = objAttachment.FileName
                .Cells(nLastRow, 4) = objMail.ReceivedTime
           End With
       Next
 
       objExcelWorksheet.Columns("A:C").AutoFit
       objExcelWorkbook.Close True
       objExcelApp.Quit
    End If
End Sub

4. ამის შემდეგ გამოდით VBA რედაქტორიდან.
5. შემდგომში, შექმენით წესი ამ მაკროს ავტომატური გაშვებისთვის ყველა შემოსულ ელფოსტაზე.

• პირველ რიგში, გადადით მენიუში "ფაილი".
• შემდეგ დააჭირეთ ღილაკს "მართეთ წესები და გაფრთხილებები".
• დიალოგურ ფანჯარაში "წესები და გაფრთხილებები" დააწკაპუნეთ "ახალი წესი".
• "წესების ოსტატი" დიალოგურ ფანჯარაში აირჩიეთ "გამოიყენე წესი შეტყობინებებზე, რომლებსაც მიღებ" და დააწკაპუნეთ "შემდეგი".
• შემდეგი, დააყენეთ წესების პირობები თქვენი საჭიროების მიხედვით და დააჭირეთ "შემდეგი".
• მოქმედებების არჩევის ეტაპზე აირჩიეთ „სკრიპტის გაშვება“ და აირჩიეთ „AutoExportAttachmentInfo“ სკრიპტი.
• და ბოლოს, მიჰყევით ეკრანზე ოსტატებს, რათა დაასრულოთ წესების დაყენება.

6. ამიერიდან, ყოველ ჯერზე, როდესაც თქვენს საფოსტო ყუთში ახალი ელფოსტა მოვა, თუ მას აქვს რაიმე დანართი, Outlook ავტომატურად განახორციელებს დანართის ინფორმაციის ექსპორტს წინასწარ განსაზღვრულ Excel ფაილში.

არასოდეს ჩამოტვირთოთ საეჭვო დანართები

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

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

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