Slik logger du hver trykt Outlook-e-post automatisk i Excel-arbeidsbok

Noen brukere håper å automatisk lagre logger av trykte e-poster i Outlook. Det er imidlertid ikke en slik direkte funksjon tilgjengelig. Derfor vil vi i denne artikkelen introdusere en måte å automatisk logge hver utskrevne e-post i en bestemt Excel-arbeidsbok.

Av noen grunner kan det hende du må registrere informasjonen til en e-post når du skriver den ut. Selvfølgelig gir ikke Outlook en innebygd funksjon som støtter dette. Derfor må du generelt utføre denne oppgaven manuelt. Likevel, ved hjelp av VBA-kode, kan du fortsatt la Outlook påta seg dette oppdraget med letthet. Nå, her vil vi avdekke et slikt stykke VBA-kode og detaljerte trinn til deg.

Logg hver utskrevne e-post automatisk i Excel-arbeidsbok

1. For somtart, start Outlook-applikasjonen.
2. Deretter får du tilgang til VBA-redigering ved å klikke på "Visual Basic"-knappen på "Utvikler"-fanen.
3. Deretter legger du følgende VBA-kode inn i en ubrukt 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. Deretter avslutter du VBA-editoren.
5. Deretter, i henhold til "Valgfritt trinn" på sost "Hvordan kjøre VBA-kode i Outlook", legg til denne makroen på båndet eller hurtigtilgangsverktøylinjen.
6. Siden da, hver gang du vil skrive ut en e-post, husk å bruke den nylig lagt til makroknappen i stedet for standard "Skriv ut".
7. På denne måten vil Outlook automatisk logge den utskrevne e-posten i det forhåndsdefinerte Excel-regnearket.

Hold Outlook-filen tilgjengelig

Noen ganger, etter at Outlook krasjer, kan du få feilmeldingen som ber om at PST-filen er utilgjengelig. På det tidspunktet bør du roe deg ned og deretter bruke reparasjonsverktøyet for innboksen for å fikse Outlook. Det innebygde verktøyet er imidlertid ikke allsidig. Det kan også mislykkes. Derfor, hvis PST-filen fortsatt er utilgjengelig etter Scanpst-reparasjon, er siste utvei et mer effektivt og pålitelig eksternt verktøy, som f.eks. DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert mdf gjenoppretting og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med