Mõned kasutajad loodavad oma Outlookis prinditud meilide logid automaatselt salvestada. Sellist otsest funktsiooni pole aga saadaval. Seetõttu tutvustame selles artiklis võimalust iga prinditud meili automaatseks logimiseks konkreetsesse Exceli töövihikusse.
Mõnel põhjusel peate võib-olla salvestama e-kirja teabe printimisel. Ilmselgelt ei paku Outlook seda toetavat natiivset funktsiooni. Seega peate üldiselt selle ülesande käsitsi täitma. Sellegipoolest saate VBA-koodi abil lasta oma Outlookil seda ülesannet hõlpsalt täita. Nüüd avastame teile sellise VBA-koodi ja üksikasjalikud sammud.
Iga prinditud meili automaatne logimine Exceli töövihikus
- Sest nagutart, käivitage Outlooki rakendus.
- Seejärel avage VBA redaktor, klõpsates vahekaardil „Arendaja” nuppu „Visual Basic”.
- Järgmisena sisestage kasutamata moodulisse järgmine VBA kood.
Sub RecordPrintedEmails() Summa objMail Outlook.MailItem Dim objExcelApp kui Excel.Application Dim strExcelFile nagu String Dim objExcelWorkbook As Excel.Workbook Dim objExcelWorksheet kui Excel.Worksheet Dim As Excel.Worksheet Dim Outlook.AktiveeriJärgmine. indow.Class Case olInspector Set objMail = ActiveInspector.CurrentItem Case olExplorer Set objMail = ActiveExplorer.Selection.Item(1) Lõpp Valige objMail.PrintOut tõrke korral Jätka Järgmine Set objExcelApp = CreateObject("Excel.Application") objExcelApp.'Change tee konkreetne exceli fail strExcelFile = "E:\Emails\Printed Emails.xlsx" Määra objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile) Määra objExcelWorksheet = objExcelWorkbook.Sheets(1) obj. heet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1 'Muutke üksikasju vastavalt oma juhtumile käsuga objExcelWorksheet .Cells(nNextEmptyRow, 1) = kuupäev. , 2) = objMail.Sender .Cells(nNextEmptyRow, 3) = objMail.SentOn .Cells(nNextEmptyRow, 4) = objMail.Size .Cells(nNextEmptyRow, 5) = objMail.Attachments"Attachments" ).Automaatne sobitamine Lõpeta objektiga objExcelWorkbook.Close True objExcelApp.Quit End Sub
- Pärast seda väljuge VBA redaktorist.
- Seejärel vastavalt lk-s olevale valikuleost "Kuidas Outlookis VBA-koodi käivitada“, lisage see makro lindile või kiirpääsuribale.
- Sellest ajast saati pidage meeles, et iga kord, kui soovite meili printida, kasutage standardse „Prindi“ asemel äsja lisatud makronuppu.
- Sel viisil logib Outlook prinditud kirjad automaatselt eelmääratletud Exceli töölehel.
Hoidke Outlooki fail juurdepääsetavaks
Mõnikord võite pärast Outlooki kokkujooksmist saada tõrketeate, mis annab teada, et PST-fail pole juurdepääsetav. Sel ajal peaksite maha rahunema ja seejärel kasutama postkasti parandamise tööriista parandada Outlook. Sisseehitatud utiliit pole aga mitmekülgne. See võib ka ebaõnnestuda. Seega, kui teie PST-fail pole pärast Scanpsti parandamist ikka veel saadaval, on teie viimane abinõu tõhusam ja usaldusväärsem väline tööriist, näiteks DataNumen Outlook Repair.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas mdf taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom