Kunkin tulostetun Outlook-sähköpostin automaattinen kirjaaminen Excel-työkirjaan

Jotkut käyttäjät toivovat tallentavansa tulostettujen sähköpostien lokit automaattisesti Outlookiinsa. Tällaista suoraa ominaisuutta ei kuitenkaan ole käytettävissä. Siksi tässä artikkelissa esitellään tapa kirjata kukin tulostettu sähköposti automaattisesti tietyssä Excel-työkirjassa.

Jostain syystä sinun on ehkä tallennettava sähköpostin tiedot, kun tulostat sen. Ilmeisesti Outlook ei tarjoa tätä tukevaa natiiviominaisuutta. Siten tämä tehtävä on yleensä suoritettava manuaalisesti. VBA-koodin avulla voit silti antaa Outlookisi tehdä tämän tehtävän helposti. Nyt täällä paljastamme tällaisen palan VBA-koodia ja yksityiskohtaiset vaiheet sinulle.

Automaattinen loki jokaisesta tulostetusta sähköpostista Excel-työkirjassa

1. Sillä kutentart, käynnistä Outlook-sovellus.
2. Avaa sitten VBA-editori napsauttamalla Kehittäjä-välilehden Visual Basic -painiketta.
3. Laita seuraavaksi seuraava VBA-koodi käyttämättömään moduuliin.

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. Tämän jälkeen sulje VBA-editori.
5. Myöhemmin sivun ”Valinnainen vaihe” -kohdan mukaanost "Kuinka suorittaa VBA-koodi Outlookissa“, Lisää tämä makro valintanauhaan tai pikakäyttötyökaluriville.
6. Siitä lähtien, aina kun haluat tulostaa sähköpostin, muista käyttää äskettäin lisättyä makropainiketta tavallisen “Tulosta” -toiminnon sijaan.
7. Tällä tavalla Outlook kirjaa tulostetun sähköpostin automaattisesti ennalta määritettyyn Excel-laskentataulukkoon.

Pidä Outlook-tiedosto käytettävissä

Toisinaan, kun Outlook kaatuu, saatat saada virheen, joka kehottaa PST-tiedostoon pääsemättä. Tuolloin sinun pitäisi rauhoittua ja käyttää sitten postilaatikon korjaustyökalua korjaa Outlook. Sisäänrakennettu apuohjelma ei kuitenkaan ole monipuolinen. Se voi myös epäonnistua. Jos PST-tiedostosi ei ole silti käytettävissä Scanpst-korjauksen jälkeen, viimeinen keino on tehokkaampi ja luotettavampi ulkoinen työkalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-palautus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com