Ako automaticky zaznamenávať každý vytlačený e-mail programu Outlook v zošite programu Excel

Niektorí používatelia dúfajú, že si protokoly tlačených e-mailov automaticky uložia do svojho Outlooku. Nie je však k dispozícii taká priama funkcia. Preto v tomto článku predstavíme spôsob automatického zaznamenávania každého vytlačeného e-mailu do konkrétneho zošita programu Excel.

Z niektorých dôvodov bude možno potrebné vytlačiť si informácie z e-mailu. Je zrejmé, že Outlook neposkytuje natívnu funkciu, ktorá by to podporovala. Všeobecne teda musíte túto úlohu splniť manuálne. Napriek tomu pomocou kódu VBA stále môžete nechať svoj Outlook, aby túto misiu splnil s ľahkosťou. Teraz tu odhalíme taký kúsok kódu VBA a podrobné kroky pre vás.

Automaticky prihlásiť každý vytlačený e-mail v zošite programu Excel

1. Pre akotart, spustiť aplikáciu Outlook.
2. Potom vstúpte do editora VBA kliknutím na tlačidlo „Visual Basic“ na karte „Developer“.
3. Ďalej vložte nasledujúci kód VBA do nepoužívaného modulu.

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. Potom ukončite editor VBA.
5. Následne podľa „Voliteľného kroku“ na strost "Ako spustiť kód VBA v programe Outlook“, Pridajte toto makro na pás s nástrojmi alebo na panel s nástrojmi Rýchly prístup.
6. Odvtedy zakaždým, keď chcete vytlačiť e-mail, nezabudnite namiesto štandardného „Tlačiť“ použiť novo pridané tlačidlo makra.
7. Týmto spôsobom program Outlook automaticky zaznamená tlačenú poštu do preddefinovaného pracovného hárka programu Excel.

Udržujte prístup k súboru programu Outlook

Po zlyhaní Outlooku sa niekedy môže zobraziť chyba s výzvou, že súbor PST je neprístupný. V tom čase by ste sa mali upokojiť a potom využiť nástroj na opravu doručenej pošty opraviť Outlook. Vstavaný nástroj však nie je všestranný. Môže tiež zlyhať. Ak je teda váš súbor PST po oprave Scanpst stále nedostupný, vašou poslednou možnosťou je efektívnejší a spoľahlivejší externý nástroj, ako napr. DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotavenie mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S