Kako automatski evidentirati svaku ispisanu Outlook e-poštu u Excel radnoj svesci

Neki korisnici se nadaju da će automatski sačuvati dnevnike odštampanih e-poruka u svom Outlooku. Međutim, takva direktna funkcija nije dostupna. Stoga ćemo u ovom članku uvesti način za automatsko evidentiranje svake ispisane e-pošte u određenu Excel radnu knjigu.

Iz nekih razloga, možda ćete morati da snimite informacije o e-poruci kada je štampate. Očigledno, Outlook ne nudi izvornu funkciju koja ovo podržava. Stoga, općenito, ovaj zadatak morate izvršiti ručno. Ipak, uz pomoć VBA koda, i dalje možete dopustiti svom Outlooku da s lakoćom obavi ovu misiju. Sada ćemo vam otkriti takav komad VBA koda i detaljne korake.

Automatsko evidentiranje svake odštampane e-pošte u Excel radnoj svesci

1. Za astart, pokrenite Outlook aplikaciju.
2. Zatim pristupite VBA uređivaču klikom na dugme „Visual Basic“ na kartici „Programer“.
3. Zatim stavite sljedeći VBA kod u neiskorišteni modul.

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. Nakon toga izađite iz VBA editora.
5. Nakon toga, prema “Opcionalnom koraku” na strost "Kako pokrenuti VBA kod u vašem Outlooku“, dodajte ovaj makro na traku ili alatnu traku za brzi pristup.
6. Od tada, svaki put kada želite da odštampate e-poruku, ne zaboravite da koristite novo dodato makro dugme umesto standardnog „Štampaj“.
7. Na ovaj način, Outlook će automatski evidentirati ispisanu poštu u unaprijed definiranom Excel radnom listu.

Neka Outlook datoteka bude dostupna

Ponekad, nakon pada Outlooka, možete dobiti poruku o grešci u kojoj se traži da je PST datoteka nedostupna. U to vrijeme, trebali biste se smiriti, a zatim iskoristiti alat za popravku prijemnog sandučeta popravi Outlook. Međutim, ugrađeni uslužni program nije svestran. Može i propasti. Stoga, ako je vaša PST datoteka i dalje nedostupna nakon popravke Scanpst-a, vaše posljednje sredstvo je učinkovitiji i pouzdaniji vanjski alat, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf recovery i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com