Excel ish kitobida har bir bosilgan Outlook elektron pochta xabarini qanday avtomatik qayd qilish kerak

Ba'zi foydalanuvchilar Outlook-da chop etilgan elektron pochta jurnallarini avtomatik saqlashga umid qilishadi. Biroq, bunday to'g'ridan-to'g'ri xususiyat mavjud emas. Shunday qilib, ushbu maqolada biz har bir bosilgan elektron pochtani ma'lum bir Excel ish kitobida avtomatik ravishda qayd etish usulini tanishtiramiz.

Ba'zi sabablarga ko'ra, siz uni chop etishda elektron pochta ma'lumotlarini yozib olishingiz kerak bo'lishi mumkin. Shubhasiz, Outlook buni qo'llab-quvvatlaydigan mahalliy xususiyatni ta'minlamaydi. Shunday qilib, umuman olganda, bu vazifani qo'lda bajarishingiz kerak. Shunga qaramay, VBA kodi yordamida siz hali ham Outlook-ga ushbu vazifani osonlik bilan bajarishga ruxsat berishingiz mumkin. Endi biz sizga VBA kodining bir qismini va batafsil qadamlarni ochamiz.

Har bir chop etilgan elektron pochtani Excel ish kitobida avtomatik qayd qilish

1. Sifatida uchuntart, Outlook dasturini ishga tushiring.
2. Keyin, "Dasturchi" yorlig'idagi "Visual Basic" tugmasini bosish orqali VBA muharririga kiring.
3. Keyin, foydalanilmagan modulga quyidagi VBA kodini qo'ying.

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. Shundan so'ng, VBA muharriridan chiqing.
5. Keyinchalik, betdagi "Ixtiyoriy qadam" ga muvofiqost "Outlook-da VBA kodini qanday ishlatish kerak", ushbu makrosni lentaga yoki Tez kirish asboblar paneliga qo'shing.
6. O'shandan beri, har safar elektron pochta xabarini chop qilmoqchi bo'lganingizda, standart "Chop etish" o'rniga yangi qo'shilgan so'l tugmasidan foydalanishni unutmang.
7. Shunday qilib, Outlook oldindan belgilangan Excel ish varag'ida chop etilgan xatni avtomatik ravishda qayd qiladi.

Outlook faylini ochiq holda saqlang

Ba'zida, Outlook ishdan chiqqandan so'ng, siz PST fayliga kirish imkoni yo'qligini bildiruvchi xatoni olishingiz mumkin. O'sha paytda siz tinchlanishingiz va keyin kirish qutisini ta'mirlash vositasidan foydalanishingiz kerak Outlook-ni tuzatish. Biroq, o'rnatilgan yordamchi dastur ko'p qirrali emas. U ham muvaffaqiyatsiz bo'lishi mumkin. Shunday qilib, agar Scanpst ta'mirdan keyin ham PST faylingiz mavjud bo'lmasa, sizning oxirgi chorangiz samaraliroq va ishonchli tashqi vositadir, masalan, DataNumen Outlook Repair.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc mdf tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com