Kā automātiski reģistrēt katru izdrukāto Outlook e-pastu Excel darbgrāmatā

Daži lietotāji cer automātiski saglabāt izdrukāto e-pastu žurnālus savā programmā Outlook. Tomēr šāda tieša funkcija nav pieejama. Tādējādi šajā rakstā mēs ieviesīsim veidu, kā katru drukāto e-pastu automātiski reģistrēt noteiktā Excel darbgrāmatā.

Dažu iemeslu dēļ jums, iespējams, būs jāreģistrē e-pasta informācija, kad to drukājat. Acīmredzot programma Outlook nenodrošina vietēju funkciju, kas to atbalsta. Tādējādi kopumā šis uzdevums ir jāveic manuāli. Neskatoties uz to, ar VBA koda palīdzību jūs joprojām varat ļaut jūsu Outlook viegli izpildīt šo misiju. Tagad šeit mēs jums atklāsim šādu VBA koda daļu un detalizētas darbības.

Automātiski reģistrēt katru izdrukāto e-pastu Excel darbgrāmatā

1. Par kātart, palaidiet programmu Outlook.
2. Pēc tam piekļūstiet VBA redaktoram, cilnē “Izstrādātājs” noklikšķinot uz pogas “Visual Basic”.
3. Pēc tam ievietojiet šādu VBA kodu neizmantotā 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. Pēc tam izejiet no VBA redaktora.
5. Pēc tam saskaņā ar “Izvēles soli” lppost "Kā palaist VBA kodu programmā Outlook“, Pievienojiet šo makro lentei vai ātrās piekļuves rīkjoslai.
6. Kopš tā laika katru reizi, kad vēlaties izdrukāt e-pastu, atcerieties, ka standarta “Drukāt” vietā jāizmanto nesen pievienotā makro poga.
7. Tādā veidā Outlook automātiski reģistrēs drukāto pastu iepriekš definētajā Excel darblapā.

Paturiet Outlook failu pieejamu

Reizēm pēc Outlook avārijas var tikt parādīta kļūda, kas liek domāt, ka PST fails nav pieejams. Tajā laikā jums vajadzētu nomierināties un pēc tam izmantot iesūtnes labošanas rīku labot Outlook. Tomēr iebūvētā lietderība nav universāla. Tas var arī neizdoties. Tādējādi, ja jūsu PST fails pēc Scanpst remonta joprojām nav pieejams, jūsu pēdējā iespēja ir efektīvāks un uzticamāks ārējais rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp mdf atkopšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar