팁 : 다른 언어는 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-100 고급 기능을 Outlook에 제공하고 훨씬 쉽게 작업 할 수 있습니다!

  • 자동 참조 / 숨은 참조 이메일을 보낼 때 규칙에 따라; 자동 전달 관례에 의하여 다수 전자 우편; 자동 회신 교환 서버가없고 더 많은 자동 기능 ...
  • 숨은 참조 경고 -모든 답장을하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일이 없을 때 알림더 많은 기능을 생각 나게합니다 ...
  • 메일 대화에서 모든 첨부 파일이 포함 된 회신 (전체); 많은 이메일 답장 초 안에; 인사말 자동 추가 대답 할 때; 주제에 날짜 추가 ...
  • 첨부 파일 도구 : 모든 메일의 모든 첨부 파일 관리 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택된 메일 수...
  • 강력한 정크 메일 관례에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
총 kutools 전망 kutools 탭 1180x121
총 kutools 전망 kutools 플러스 탭 1180x121
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.
    Sailu G · 1 months ago
    I have followed above steps but have blanks in excel.
    what should I do?
  • To post as a guest, your comment is unpublished.
    Marduk20 · 6 months ago
    How to capture the Categories, Importance or the User-defined column on the same folder view?
  • To post as a guest, your comment is unpublished.
    sagar khomane · 7 months ago
    Can you please let me know how to deal with sub-folders in above code.
  • To post as a guest, your comment is unpublished.
    Sagar · 7 months ago
    how to deal with subfolders.
  • To post as a guest, your comment is unpublished.
    Jorge · 1 years ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years 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.