Excel 통합 문서에서 인쇄 된 각 Outlook 전자 메일을 자동으로 기록하는 방법

Outlook 솔루션 2025 년 9 월 29 일

일부 사용자는 Outlook에서 인쇄 된 전자 메일의 로그를 자동으로 저장하기를 원합니다. 그러나 사용 가능한 직접적인 기능은 없습니다. 따라서이 기사에서는 인쇄 된 각 전자 메일을 특정 Excel 통합 문서에 자동으로 기록하는 방법을 소개합니다.

어떤 이유로 이메일을 인쇄 할 때 정보를 기록해야 할 수 있습니다. 분명히 Outlook은이를 지원하는 기본 기능을 제공하지 않습니다. 따라서 일반적으로이 작업을 수동으로 수행해야합니다. 그럼에도 불구하고 VBA 코드의 도움으로 Outlook이이 임무를 쉽게 수행하도록 할 수 있습니다. 이제 여기에서 이러한 VBA 코드와 자세한 단계를 알아볼 것입니다.

Excel 통합 문서에 인쇄 된 각 이메일 자동 기록

로tart, Outlook 응용 프로그램을 시작합니다.
그런 다음 "개발자"탭에서 "Visual Basic"버튼을 클릭하여 VBA 편집기에 액세스합니다.
다음으로 다음 VBA 코드를 사용하지 않는 모듈에 넣습니다.

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

그 후 VBA 편집기를 종료하십시오.
그 후 p의 "선택적 단계"에 따라ost "Outlook에서 VBA 코드를 실행하는 방법",이 매크로를 리본 또는 빠른 실행 도구 모음에 추가합니다.
그 이후로 이메일을 인쇄 할 때마다 표준 "인쇄"대신 새로 추가 된 매크로 버튼을 사용하는 것을 잊지 마십시오.
이러한 방식으로 Outlook은 미리 정의 된 Excel 워크 시트에 인쇄 된 메일을 자동으로 기록합니다.

액세스 가능한 Outlook 파일 유지

때때로 Outlook이 충돌 한 후 PST 파일에 액세스 할 수 없다는 오류 메시지가 표시 될 수 있습니다. 그 때 진정하고받은 편지함 복구 도구를 사용하여 Outlook 수정. 그러나 내장 유틸리티는 다재다능하지 않습니다. 또한 실패 할 수 있습니다. 따라서 Scanpst 복구 후에도 PST 파일을 사용할 수없는 경우 마지막 수단은 다음과 같은 더 효과적이고 안정적인 외부 도구입니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. mdf 복구 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM