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

Зарим хэрэглэгчид хэвлэгдсэн имэйлийн бүртгэлийг Outlook дээрээ автоматаар хадгална гэж найдаж байна. Гэсэн хэдий ч ийм шууд шинж чанар байхгүй байна. Тиймээс энэ нийтлэлд бид хэвлэгдсэн имэйл бүрийг тодорхой Excel-ийн ажлын дэвтэрт автоматаар бүртгэх аргыг танилцуулах болно.

Зарим шалтгааны улмаас та имэйлийг хэвлэхдээ мэдээллийг бүртгэх шаардлагатай болж магадгүй юм. Мэдээжийн хэрэг, Outlook нь үүнийг дэмждэг төрөлхийн шинж чанарыг өгдөггүй. Тиймээс ерөнхийдөө та энэ ажлыг гараар гүйцэтгэх ёстой. Гэсэн хэдий ч VBA кодын тусламжтайгаар та Outlook-д энэхүү эрхэм зорилгыг хэрэгжүүлэхэд хялбар байх болно. Одоо бид танд ийм VBA код болон дэлгэрэнгүй алхамуудыг илрүүлэх болно.

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

1. Учир ньtart, Outlook програмыг ажиллуулна уу.
2. Дараа нь "Developer" таб дээрх "Visual Basic" товчийг дарж VBA засварлагч руу нэвтрэх боломжтой.
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 "Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ“, Энэ макро тууз эсвэл Quick Access Toolbar дээр нэмнэ үү.
6. Түүнээс хойш имэйл хэвлэхийг хүссэн үедээ стандарт “Хэвлэх” -ний оронд шинээр нэмсэн макро товчлуурыг ашиглахаа бүү мартаарай.
7. Ийм байдлаар Outlook нь урьдчилан тодорхойлсон Excel-ийн ажлын хуудсанд хэвлэсэн мэйлийг автоматаар бүртгэх болно.

Outlook файлыг ашиглах боломжтой байлгах

Заримдаа Outlook гацсаны дараа та PST файл руу нэвтрэх боломжгүй гэсэн алдаа гарч магадгүй юм. Тэр үед та тайвширч, дараа нь ирсэн мэйлийг засах хэрэгслийг ашиглах хэрэгтэй Outlook засах. Гэсэн хэдий ч угсарсан хэрэгсэл нь олон талт биш юм. Энэ нь бас бүтэлгүйтэж магадгүй юм. Тиймээс, хэрэв таны PST файл Scanpst засвар хийсний дараа боломжгүй хэвээр байгаа бол таны хамгийн сүүлийн арга хэрэгсэл нь илүү үр дүнтэй, найдвартай гадны хэрэгсэл болно. DataNumen Outlook Repair.

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

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