Outlook VBA를 사용하여받는 전자 메일의 정보를 Excel 파일로 자동 내보내는 방법

Outlook 솔루션 2025 년 9 월 29 일

많은 사용자는 Outlook이 수신 전자 메일의 기본 정보를 Excel 파일로 자동으로 내보낼 수 있기를 바랍니다. 이 기사에서는이 요구 사항을 살펴보고 Outlook VBA를 통한 빠른 방법을 소개합니다.

때로는 메일 통계와 같은 몇 가지 이유로 인해 이메일을 Excel 파일로 자주 내 보내야 할 수 있습니다. 일반적으로 기존에 수신 된 이메일의 경우 "가져 오기 및 내보내기"기능을 사용하여 한 번에 Excel로 내보낼 수 있습니다. 그러나 Outlook에서 들어오는 전자 메일이 사서함에 도착하는 즉시 자동으로 Excel로 내보낼 수 있기를 원할 수도 있습니다. 의심 할 여지없이 Outlook에는 이러한 기본 기능이 없습니다. 따라서 타사 추가 기능 또는 Outlook VBA와 같은 다른 접근 방식을 사용해야합니다. 여기에서는 Outlook VBA를 사용하여 자동화하는 방법을 알려드립니다. 단계와 해당 코드를 얻으려면 계속 읽으십시오.

수신 이메일 정보를 Excel 파일로 자동 내보내기

우선 Excel 파일을 만들어야합니다.

새 Excel 파일을 엽니 다.
그런 다음 "아니요"를 입력해야합니다. 다음 이미지와 같이 셀 A1, 셀 B1의 "발신자 이름", 셀 C1의 "발신인 이메일 주소", 셀 D1의 "이메일 제목", 셀 E1의 "수신 시간".
마지막으로 원하는 이름과 원하는 폴더에 저장하십시오.

그런 다음 Outlook을 시작해야합니다.
그런 다음 "Alt + F11"키 버튼을 누르면 VBA 편집기로 이동합니다.
다음으로 팝업 창에서 왼쪽에있는 "ThisOutlookSession"을 두 번 클릭해야합니다.
그런 다음 "ThisOutlookSession"프로젝트 창에서 다음 VBA 코드를 복사하여 붙여 넣어야합니다.

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
    Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strExcelFile As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim nNextEmptyRow As Integer
    Dim strColumnB As String
    Dim strColumnC As String
    Dim strColumnD As String
    Dim strColumnE As String

    If Item.Class = olMail Then
       Set objMail = Item
    End If
 
    'Specify the Excel file which you want to auto export the email list
    'You can change it as per your case
    strExcelFile = "E:\Email\Email Statistics.xlsx"
 
    'Get Access to the Excel file
    On Error Resume Next
    Set objExcelApp = GetObject(, "Excel.Application")
    If Error <> 0 Then
       Set objExcelApp = CreateObject("Excel.Application")
    End If
    Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
    Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
 
    'Get the next empty row in the Excel worksheet
    nNextEmptyRow = objExcelWorkSheet.Range("B" & objExcelWorkSheet.Rows.Count).End(xlUp).Row + 1
 
    'Specify the corresponding values in the different columns
    strColumnB = objMail.SenderName
    strColumnC = objMail.SenderEmailAddress
    strColumnD = objMail.Subject
    strColumnE = objMail.ReceivedTime
 
    'Add the vaules into the columns
    objExcelWorkSheet.Range("A" & nNextEmptyRow) = nNextEmptyRow - 1
    objExcelWorkSheet.Range("B" & nNextEmptyRow) = strColumnB
    objExcelWorkSheet.Range("C" & nNextEmptyRow) = strColumnC
    objExcelWorkSheet.Range("D" & nNextEmptyRow) = strColumnD
    objExcelWorkSheet.Range("E" & nNextEmptyRow) = strColumnE
 
    'Fit the columns from A to E
    objExcelWorkSheet.Columns("A:E").AutoFit
 
    'Save the changes and close the Excel file
    objExcelWorkBook.Close SaveChanges:=True
End Sub

나중에이 코드에 서명해야합니다.
그 후, restart Outlook에서 새 VBA 프로젝트를 활성화합니다.
결국 이제부터 모든 수신 이메일은받은 편지함 폴더에 도착하자마자 미리 설정된 Excel 파일로 자동 내보내집니다. Excel 파일은 다음 이미지와 같습니다.

고통스러운 PST 데이터 손상 방지

Outlook은 다양한 기능으로 인해 많은 찬사를 받았습니다. 그러나 이것이 절대 안전하다는 것을 의미하지는 않습니다. 여전히 언제든지 손상 될 수 있습니다. 예를 들어 Outlook을 부적절하게 자주 닫으면 PST 데이터가 위험에 처할 가능성이 큽니다. 이 경우 원하는 경우 PST 수리 데이터를 얻으려면 다음과 같은 경험이 풍부한 도구를 사용해야합니다. DataNumen Outlook Repair.

저자 소개 :

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