Minden kinyomtatott Outlook e-mail automatikus naplózása az Excel-munkafüzetben

Egyes felhasználók azt remélik, hogy automatikusan mentik a nyomtatott e-mailek naplóit az Outlookjukba. Ilyen közvetlen funkció azonban nem áll rendelkezésre. Ezért ebben a cikkben bemutatunk egy módot az egyes kinyomtatott e-mailek automatikus naplózására egy adott Excel-munkafüzetben.

Bizonyos okok miatt előfordulhat, hogy az e-mail adatait rögzítenie kell, amikor kinyomtatja. Nyilvánvaló, hogy az Outlook nem nyújt natív funkciót, amely ezt támogatja. Így általában manuálisan kell végrehajtania ezt a feladatot. Mindazonáltal a VBA kód segítségével továbbra is könnyedén végrehajthatja ezt a küldetést az Outlook. Most itt feltárunk egy ilyen VBA-kódrészletet és részletes lépéseket.

Minden kinyomtatott e-mail automatikus naplózása az Excel-munkafüzetben

1. Mert minttart, indítsa el az Outlook alkalmazást.
2. Ezután nyissa meg a VBA-szerkesztőt a „Developer” fül „Visual Basic” gombjára kattintva.
3. Ezután helyezze be a következő VBA-kódot egy nem használt modulba.

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. Ezt követően lépjen ki a VBA-szerkesztőből.
5. Ezt követően az „Opcionális lépés” szerint a XNUMX. oost "A VBA kód futtatása az Outlookban", adja hozzá ezt a makrót a szalaghoz vagy a Gyorselérési eszköztárhoz.
6. Azóta minden alkalommal, amikor ki akar nyomtatni egy e-mailt, ne felejtse el használni az újonnan hozzáadott makró gombot a szabványos „Nyomtatás” helyett.
7. Ily módon az Outlook automatikusan naplózza a kinyomtatott leveleket az előre meghatározott Excel munkalapon.

Tartsa elérhetővé az Outlook-fájlt

Időnként az Outlook összeomlása után hibaüzenet jelenhet meg, amely azt jelzi, hogy a PST-fájl nem érhető el. Ilyenkor meg kell nyugodnia, majd használnia kell a beérkező levelek javítóeszközét javítsa ki az Outlookot. A beépített segédprogram azonban nem sokoldalú. Ez is megbukhat. Ezért, ha a PST-fájl a Scanpst-javítás után sem érhető el, a végső megoldás egy hatékonyabb és megbízhatóbb külső eszköz, mint pl. DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf helyreállítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com