Paano Mag-auto Log Ang bawat naka-print na Email sa Excel sa Excel Workbook

Ang ilang mga gumagamit ay umaasa na awtomatikong makatipid ng mga tala ng mga naka-print na email sa kanilang Outlook. Gayunpaman, walang ganoong direktang tampok na magagamit. Samakatuwid, sa artikulong ito, magpapakilala kami ng isang paraan upang awtomatikong mai-log ang bawat naka-print na email sa isang tukoy na workbook ng Excel.

Para sa ilang kadahilanan, maaaring kailanganin mong i-record ang impormasyon ng isang email kapag nai-print mo ito. Malinaw na, hindi nagbibigay ang Outlook ng isang katutubong tampok na sumusuporta dito. Kaya, sa pangkalahatan, kailangan mong manu-manong magawa ang gawaing ito. Gayunpaman, sa tulong ng VBA code, maaari mo pa ring payagan ang iyong Outlook na isagawa ang misyon na ito nang madali. Ngayon, dito namin malalaman ang tulad ng isang piraso ng VBA code at detalyadong mga hakbang sa iyo.

Awtomatikong I-log ang bawat Naka-print na Email sa Excel Workbook

1. Para sa bilangtart, ilunsad ang application ng Outlook.
2. Pagkatapos, i-access ang VBA editor sa pamamagitan ng pag-click sa pindutang "Visual Basic" sa tab na "Developer".
3. Susunod, ilagay ang sumusunod na VBA code sa isang hindi nagamit na module.

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. Pagkatapos nito, lumabas sa editor ng VBA.
5. Kasunod, ayon sa "Opsyonal na Hakbang" sa post "Paano Patakbuhin ang VBA Code sa Iyong Outlook“, Idagdag ang macro na ito sa laso o Quick Access Toolbar.
6. Simula noon, sa tuwing nais mong mag-print ng isang email, tandaan na gamitin ang bagong idinagdag na pindutang macro sa halip na ang karaniwang "I-print".
7. Sa ganitong paraan, awtomatikong mai-log ng Outlook ang naka-print na mail sa paunang natukoy na worksheet ng Excel.

Panatilihing Naa-access ang File ng Outlook

Sa mga oras, pagkatapos ng pag-crash ng Outlook, maaari kang makatanggap ng error na mag-uudyok na ang PST file ay hindi maa-access. Sa oras na iyon, dapat kang huminahon at pagkatapos ay magamit ang tool sa pag-aayos ng inbox upang ayusin ang Outlook. Gayunpaman, ang inbuilt utility ay hindi maraming nalalaman. Maaari rin itong mabigo. Samakatuwid, kung ang iyong PST file ay hindi pa rin magagamit pagkatapos ng pag-aayos ng Scanpst, ang iyong huling paraan ay isang mas epektibo at maaasahang panlabas na tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mdf paggaling at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa