메인 컨텐츠로 가기

Outlook에서 Excel로 이메일을 자동으로 내보내는 방법은 무엇입니까?

일반적으로 가져 오기 / 내보내기 기능을 사용하여 Outlook에서 Excel로 이메일을 내보낼 수 있습니다. 그러나 새 메시지가 도착하면 전자 메일을 Excel 파일로 자동 내보내기를 시도한 적이 있습니까? 이 기사에서는 새 수신 메시지의 정보를 Excel에서 자동으로 내보내는 방법에 대해 설명합니다.

VBA 코드를 사용하여 Outlook에서 Excel로 이메일 정보 자동 내보내기

놀라운 기능을 사용하여 Outlook에서 Excel로 이메일 정보 내보내기


VBA 코드를 사용하여 Outlook에서 Excel로 이메일 정보 자동 내보내기

새로 도착하는 이메일을 Excel 통합 문서로 자동으로 내보내려면 다음 VBA 코드를 적용하십시오.

1. 먼저 다음 스크린 샷과 같이 헤더 정보가 포함 된 통합 문서를 만들어야합니다. 그러면 이러한 메시지 정보가이 Excel 파일로 내보내집니다.

Excel로 문서 자동 내보내기 이메일 1

2. 그런 다음 Outlook으로 이동하여 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

3. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlook세션 인사말 프로젝트 1 (VbaProject.OTM) 창을 열어 모드를 연 다음 다음 코드를 복사하여 빈 모듈에 붙여 넣습니다.

VBA 코드 : Outlook에서 Excel 파일로 이메일 정보 자동 내보내기 :

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

주의 사항: 위 코드에서 C : \ Users \ DT168 \ Desktop \ split 문서 \ kto-data.xlsx 내 보낸 정보를 찾으려는 Excel 파일 경로 및 Excel 이름입니다. 필요에 따라 변경하십시오.

Excel로 문서 자동 내보내기 이메일 2

4. 여전히 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 도구 > 참조 로 이동합니다 참조 -Project1 대화 상자 및 확인 Microsoft Excel 개체 라이브러리 옵션에서 사용 가능한 참조 목록 상자, 스크린 샷 참조 :

Excel로 문서 자동 내보내기 이메일 3

5. 그런 다음 OK 버튼을 눌러 대화 상자를 닫은 다음 코드 창을 저장하고 닫습니다.

6. 이제이 코드를 적용하려면 Outlook을 다시 시작해야합니다. 지금부터 새 이메일이 도착하면 자동으로 특정 통합 문서로 내보내집니다. 스크린 샷을 참조하세요.

Excel로 문서 자동 내보내기 이메일 4


놀라운 기능을 사용하여 Outlook에서 Excel로 이메일 정보 내보내기

받은 편지함, 보낼 편지함 또는 기타 폴더의 이메일을 Excel 파일로 내보내려면, Outlook 용 Kutools's 빠른 보고서 필요에 따라 현재 이메일 폴더 또는 작업 폴더에있는 모든 항목의 정보를보고하기위한 XML 파일을 쉽게 생성 할 수 있습니다.

참고 :이것을 적용하려면 빠른 보고서, 먼저 Outlook 용 Kutools을 클릭 한 다음 기능을 빠르고 쉽게 적용하십시오.

설치 후 Outlook 용 Kutools, 다음과 같이하십시오.

1. 모든 메시지 정보를 내보낼 폴더를 선택한 다음 쿠툴즈 플러스 > 빠른 보고서, 스크린 샷 참조 :

2. 그런 다음 튀어 나온 보고서 저장 창에서 위치를 선택하고 내 보낸이 파일의 이름을 지정합니다. 스크린 샷을 참조하십시오.

3. 그런 다음 찜하기 버튼을 눌러이 파일을 저장하고 튀어 나온 상자에서 가능 버튼을 눌러 파일을 엽니 다. 스크린 샷 참조 :

4. 이제 선택한 폴더의 모든 이메일 정보가 Excel 파일로 내 보내진 것을 볼 수 있습니다. 스크린 샷을 참조하십시오.


더 많은 관련 기사 :

  • Outlook에서 이메일 본문 테이블을 Excel로 내보내기
  • 본문에 일부 테이블이 포함 된 전자 메일을 받으면 메시지 본문의 모든 테이블을 Excel 워크 시트로 내 보내야 할 수 있습니다. 일반적으로 테이블을 복사하여 워크 시트에 붙여 넣을 수 있지만 여기서는 내 보내야하는 테이블이 여러 개있을 때이 작업을 해결하는 유용한 방법에 대해 설명합니다.
  • Outlook에서 Excel로 작업 목록 추출 또는 내보내기
  • Outlook을 사용하는 동안 다른 용도로 작업 목록을 Excel로 추출 할 수 있습니다. Outlook의 강력한 내보내기 기능을 사용하면 작업 목록을 Excel로 쉽게 내보낼 수 있습니다. 아래 튜토리얼 쇼를 수행하십시오.
  • Outlook에서 사진과 함께 연락처 정보 내보내기
  • Outlook에서 파일로 연락처를 내보낼 때 연락처의 텍스트 정보 만 내보낼 수 있습니다. 그러나 때로는 연락처의 텍스트 정보와 함께 사진을 내보낼 필요가 있습니다. Outlook에서이 작업을 어떻게 처리 할 수 ​​있습니까?

최고의 사무 생산성 도구

Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능

📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다.  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  탭 보기로 Outlook 생산성 향상  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.

 

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If I have more than one email accounts in outlook, how can I output the emails from a specified account ?
This comment was minimized by the moderator on the site
I have followed above steps but have blanks in excel.
what should I do?
This comment was minimized by the moderator on the site
Same excel not getting updated? Any suggestions?
This comment was minimized by the moderator on the site
How to capture the Categories, Importance or the User-defined column on the same folder view?
This comment was minimized by the moderator on the site
Can you please let me know how to deal with sub-folders in above code.
This comment was minimized by the moderator on the site
how to deal with subfolders.
This comment was minimized by the moderator on the site
I need the help about exporting Email information sent (outgoing) emails
This comment was minimized by the moderator on the site
Hello, Jorge,
If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations