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 'Få posten Velg Caselass.C OutlookA Outlook olInspector Set objMail = ActiveInspector.CurrentItem Sak olExplorer Set objMail = ActiveExplorer.Selection.Item(1) End Velg objMail.PrintOut Ved feil Gjenoppta neste sett objExcelApp = CreateObject("Excel.Application") objExcelApp.Visible = True to ' den spesifikke excel-filen strExcelFile = "E:\Emails\Printed Emails.xlsx" Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile) Set objExcelWorksheet = objExcelWorkbook.Sheets(1) objExcelWorksheetnextowtE objExcelWorksheet. A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1 'Endre detaljene i henhold til ditt eget tilfelle Med objExcelWorksheet .Cells(nNextEmptyRow, 1) = Dato .Cells(nNextEmptyRow, 2) = objexCellSubtyRown(nNextEmptyRow) , 3) = objMail.Sender .Cells(nNextEmptyRow, 4) = objMail.SentOn .Cells(nNextEmptyRow, 5) = objMail.Size .Cells(nNextEmptyRow, 6) = objMail.Ettachments.Atell" ).Autotilpass slutt med 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