Niektórzy użytkownicy mają nadzieję na automatyczne zapisywanie dzienników drukowanych wiadomości e-mail w programie Outlook. Jednak taka bezpośrednia funkcja nie jest dostępna. Dlatego w tym artykule przedstawimy sposób automatycznego rejestrowania każdej drukowanej wiadomości e-mail w określonym skoroszycie programu Excel.
Z pewnych powodów może być konieczne zapisanie informacji zawartych w wiadomości e-mail podczas jej drukowania. Oczywiście Outlook nie zapewnia natywnej funkcji, która to obsługuje. Dlatego na ogół musisz ręcznie wykonać to zadanie. Niemniej jednak, z pomocą kodu VBA, nadal możesz pozwolić swojemu Outlookowi z łatwością wykonać tę misję. Teraz tutaj odkryjemy taki fragment kodu VBA i szczegółowe instrukcje.
Automatycznie rejestruj każdą wydrukowaną wiadomość e-mail w skoroszycie programu Excel
- Jaktart, uruchom aplikację Outlook.
- Następnie uzyskaj dostęp do edytora VBA, klikając przycisk „Visual Basic” na karcie „Programista”.
- Następnie umieść następujący kod VBA w nieużywanym module.
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
- Następnie zamknij edytor VBA.
- Następnie, zgodnie z „Krokiem opcjonalnym” w strost "Jak uruchomić kod VBA w swoim Outlooku„, Dodaj to makro do wstążki lub paska narzędzi szybkiego dostępu.
- Od tamtej pory za każdym razem, gdy chcesz wydrukować wiadomość e-mail, pamiętaj, aby użyć nowo dodanego przycisku makra zamiast standardowego „Drukuj”.
- W ten sposób program Outlook będzie automatycznie rejestrował drukowaną pocztę we wstępnie zdefiniowanym arkuszu programu Excel.
Zachowaj dostępność pliku programu Outlook
Czasami po awarii programu Outlook może zostać wyświetlony komunikat o błędzie z informacją, że plik PST jest niedostępny. W tym czasie powinieneś się uspokoić, a następnie skorzystać z narzędzia do naprawy skrzynki odbiorczej naprawić Outlooka. Jednak wbudowane narzędzie nie jest wszechstronne. To też może się nie udać. Dlatego jeśli plik PST jest nadal niedostępny po naprawie Scanpst, ostatnią deską ratunku jest bardziej skuteczne i niezawodne narzędzie zewnętrzne, takie jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com