Kako automatski zabilježiti svaku ispisanu Outlook e-poštu u Excel radnoj knjizi

Neki se korisnici nadaju da će zapise ispisanih e-poruka automatski spremati u svoj Outlook. Međutim, takva izravna značajka nije dostupna. Stoga ćemo u ovom članku predstaviti način automatskog bilježenja svake ispisane e-pošte u određenu Excel radnu knjigu.

Iz nekih razloga možda ćete morati zabilježiti podatke e-pošte kada je ispisujete. Očito, Outlook ne nudi izvornu značajku koja to podržava. Stoga, općenito, ovaj zadatak morate izvršiti ručno. Unatoč tome, uz pomoć VBA koda još uvijek možete prepustiti vašem Outlooku da s lakoćom izvrši ovu misiju. Ovdje ćemo vam otkriti takav dio VBA koda i detaljne korake.

Automatsko evidentiranje svake ispisane e-pošte u Excel radnoj knjizi

1. Za astart, pokrenite Outlook aplikaciju.
2. Zatim pristupite uređivaču VBA klikom na gumb "Visual Basic" na kartici "Developer".
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. Naknadno, prema „Neobaveznom koraku” u strost "Kako pokrenuti VBA kod u vašem Outlooku“, dodajte ovu makronaredbu na vrpcu ili alatnu traku za brzi pristup.
6. Od tada, svaki put kada želite ispisati e-poštu, ne zaboravite upotrijebiti novododani makro gumb umjesto standardnog "Ispiši".
7. Na taj će način Outlook automatski zabilježiti ispisanu poštu u unaprijed definiranom Excel radnom listu.

Držite Outlook datoteku dostupnom

S vremena na vrijeme, nakon što se Outlook sruši, možete primiti poruku o pogrešci koja govori da je PST datoteka nedostupna. Tada biste se trebali smiriti, a zatim upotrijebiti alat za popravak pristigle pošte popraviti Outlook. Međutim, ugrađeni uslužni program nije svestran. Može i uspjeti. Stoga, ako je vaša PST datoteka još uvijek nedostupna nakon popravka Scanpsta, vaše zadnje utočište je učinkovitiji i pouzdaniji vanjski alat, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući mdf oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com