쿠키는 우리의 서비스를 제공 도움이됩니다. 우리의 서비스를 사용하면 쿠키의 우리의 사용에 동의합니다.
팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
등록하기
x

or

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

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

Outlook의 전자 메일 정보를 VBA 코드가있는 Excel로 자동 내보내기


받은 편지함 / 보낸 편지함 / 임시 보관함의 에뮬레이션을 Excel 파일로 신속하게 내보낼 수 있습니다.

Outlook 용 Kutools's 빠른 보고서 기능을 사용하면 현재 전자 메일 폴더 또는 작업 폴더에있는 모든 항목의 정보를보고하는 XML 파일을 쉽게 생성 할 수 있습니다

5을 능가하는 doc 자동 수출 이메일

Outlook 용 Kutools: 40 이상의 편리한 Excel 추가 기능으로 60 일 동안 아무런 제한없이 시도 할 수 있습니다. 지금 무료 평가판을 다운로드하여 사용해보십시오!

Outlook의 전자 메일 정보를 VBA 코드가있는 Excel로 자동 내보내기

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

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

1을 능가하는 doc 자동 수출 이메일

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

3. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlookSession ~로부터 Project1 (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 \ 분할 문서 \ kto-data.xlsx 내 보낸 정보를 찾으려는 Excel 파일 경로와 Excel 이름입니다. 필요에 맞게 변경하십시오.

2을 능가하는 doc 자동 수출 이메일

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

3을 능가하는 doc 자동 수출 이메일

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

6. 이제이 코드를 적용하려면 Outlook을 다시 시작해야합니다. 앞으로 새로운 이메일이 도착하면 특정 통합 문서로 자동으로 내보낼 것입니다. 스크린 샷을 참조하십시오.

4을 능가하는 doc 자동 수출 이메일



Outlook 용 Kutools

Outlook 100, 2010, 2013, 2016 및 2019 용 365 고급 기능 이상

배너 201812를 위해 작은 전망을위한 스크린 샷 kutools

더 많은 특징 | 무료 다운로드 | 수백 개의 함수에 대해서만 $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jorge · 4 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      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.