Excel-ийн ажлын дэвтэрт ирж буй имэйлийн хавсралтын мэдээллийг хэрхэн автоматаар экспортлох вэ

Зарим хэрэглэгчид хавсралтуудын мэдээллийг ирж буй имэйл бүр дээр автоматаар бүртгэхийг хүсдэг. Энэ нийтлэл нь үүнийг хялбархан ойлгох хурдан хугацааг хуваалцах болно.

Хэрэв та ирж буй Outlook имэйл бүрийн хавсралтын мэдээллийг Excel файл руу экспортолж хэвшсэн бол Outlook автоматаар энэ ажлыг хийх боломжийг олгох зарим хандлагыг та хүсэх байх. Ингэснээр та хавсралтыг гараар хянахаас салах боломжтой болно. Аз болоход, Outlook нь ийм шууд функцийг хангаж чадахгүй байгаа ч гэсэн та үүнийг бага зэрэг скриптээр олж авах боломжтой хэвээр байна. Одоо бид танд алхам алхамаар заах болно.

Ирж буй имэйлийн хавсралтын мэдээллийг Excel руу автоматаар экспортлох

1. Эхлээд Outlook програмыг ажиллуулаарай.
2. Дараа нь “Alt + F11” -ээр дамжуулан VBA редактор руу очно уу.
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. Дараа нь ирж буй имэйл бүр дээр энэ макро автоматаар ажиллуулах дүрмийг бий болго.

• Эхлээд "Файл" цэс рүү орно уу.
• Дараа нь "Дүрэм ба анхааруулгыг удирдах" товчийг дарна уу.
• "Дүрэм ба анхааруулга" харилцах цонхонд "Шинэ дүрэм" дээр дарна уу.
• "Дүрмийн илбэчин" харилцах цонхноос "Миний хүлээн авсан мессежүүдэд дүрмийг хэрэгжүүлэх" гэснийг сонгоод "Дараа нь" дээр дарна уу.
• Дараа нь өөрийн хэрэгцээний дагуу дүрмийн нөхцлийг тохируулаад "Next" дээр дарна уу.
• "Үйлдлийг сонгох" алхам дээр "Скрипт ажиллуулах" -ыг сонгоод "AutoExportAttachmentInfo" скриптийг сонгоно уу.
• Эцэст нь дүрмийн тохиргоог дуусгахын тулд дэлгэцэн дээрх шидтэнг дагана уу.

6. Одооноос эхлэн таны имэйлийн хайрцагт шинэ имэйл ирэх бүрт хавсралт байгаа тохиолдолд Outlook нь хавсралтын мэдээллийг урьдчилан тодорхойлсон Excel файл руу автоматаар экспортлох болно.

Сэжигтэй хавсралтыг хэзээ ч татаж авахгүй

Танд үл мэдэгдэх илгээгчдээс ирсэн, хавсралт агуулсан имэйл ирсэн үү? Ихэнхдээ эдгээр хавсралтууд вирустай байж болзошгүй тул түүнд итгэхгүй байхыг зөвлөж байна. Тэдгээрийг татаж авахад л таны Outlook өгөгдөл халдвар авах боломжтой. Тэр үед танд хэрэгтэй болно Outlook засах файл. Хэрэв та чадварлаг засварын хэрэгсэл ашиглахгүй бол энэ нь зангилаа байх нь дамжиггүй DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. сэргээх Sql Server програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com