Note: The other languages of the website are Google-translated. Back to English

여러 폴더 / 하위 폴더에서 전자 메일을 내보내 Outlook에서 뛰어나게하는 방법은 무엇입니까?

Outlook에서 가져 오기 및 내보내기 마법사를 사용하여 폴더를 내보낼 때 하위 폴더 포함 폴더를 CSV 파일로 내보내는 경우 옵션. 그러나 각 폴더를 CSV 파일로 내 보낸 다음 수동으로 Excel 통합 문서로 변환하는 것은 시간이 많이 걸리고 지루한 작업입니다. 이 기사에서는 여러 폴더와 하위 폴더를 Excel 통합 문서로 빠르게 내보내는 VBA를 소개합니다.

VBA를 사용하여 여러 폴더 / 하위 폴더의 여러 이메일을 Excel로 내보내기

Office 탭-Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Outlook 용 Kutools-Microsoft Outlook에 100 개의 강력한 고급 기능 제공
  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 규칙에 따른 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -메일 주소가 숨은 참조 목록에있는 경우 모두 답장하려고 할 때 메시지를 표시합니다. 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 모든 첨부 파일로 회신 (전체) 메일 대화에서; 한 번에 많은 이메일에 답장하십시오. 인사말 자동 추가 대답 할 때; 제목에 날짜 및 시간 자동 추가 ...
  • 부착 도구: 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 자동 저장 ... 빠른 보고서, 선택한 메일 수, 중복 메일 및 연락처 제거 ...
  • 100개 이상의 고급 기능이 대부분의 문제 해결 Outlook 2021 - 2010 또는 Office 365에서. 전체 기능은 60일 무료 평가판입니다.

화살표 블루 오른쪽 거품 VBA를 사용하여 여러 폴더 / 하위 폴더의 여러 이메일을 Excel로 내보내기

Outlook에서 VBA를 사용하여 여러 폴더 또는 하위 폴더의 전자 메일을 Excel 통합 문서로 내보내려면 아래 단계를 따르십시오.

1. 프레스 다른 + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2. 클릭 끼워 넣다 > 모듈을 클릭 한 다음 VBA 코드 아래에 새 모듈 창에 붙여 넣습니다.

VBA : 여러 폴더 및 하위 폴더에서 Excel로 이메일 내보내기

Const MACRO_NAME = "Export Outlook Folders to Excel"

Sub ExportMain()
ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"
ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"
MsgBox "Process complete.", vbInformation + vbOKOnly, MACRO_NAME
End Sub
Sub ExportToExcel(strFilename As String, strFolderPath As String)
Dim      olkMsg As Object
Dim olkFld As Object
Dim excApp As Object
Dim excWkb As Object
Dim excWks As Object
Dim intRow As Integer
Dim intVersion As Integer

If strFilename <> "" Then
If strFolderPath <> "" Then
Set olkFld = OpenOutlookFolder(strFolderPath)
If TypeName(olkFld) <> "Nothing" Then
intVersion = GetOutlookVersion()
Set excApp = CreateObject("Excel.Application")
Set excWkb = excApp.Workbooks.Add()
Set excWks = excWkb.ActiveSheet
'Write Excel Column Headers
With excWks
.Cells(1, 1) = "Subject"
.Cells(1, 2) = "Received"
.Cells(1, 3) = "Sender"
End With
intRow = 2
For Each olkMsg In olkFld.Items
'Only export messages, not receipts or appointment requests, etc.
If olkMsg.Class = olMail Then
'Add a row for each field in the message you want to export
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
intRow = intRow + 1
End If
Next
Set olkMsg = Nothing
excWkb.SaveAs strFilename
excWkb.Close
Else
MsgBox "The folder '" & strFolderPath & "' does not exist in Outlook.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The folder path was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The filename was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If

Set olkMsg = Nothing
Set olkFld = Nothing
Set excWks = Nothing
Set excWkb = Nothing
Set excApp = Nothing
End Sub

Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
Dim arrFolders As Variant
Dim varFolder As Variant
Dim bolBeyondRoot As Boolean

On Error Resume Next
If strFolderPath = "" Then
Set OpenOutlookFolder = Nothing
Else
Do While Left(strFolderPath, 1) = "\"
strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
Loop
arrFolders = Split(strFolderPath, "\")
For Each varFolder In arrFolders
Select Case bolBeyondRoot
Case False
Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
bolBeyondRoot = True
Case True
Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
End Select
If Err.Number <> 0 Then
Set OpenOutlookFolder = Nothing
Exit For
End If
Next
End If
On Error GoTo 0
End Function

Function GetSMTPAddress(Item As Outlook.MailItem, intOutlookVersion As Integer) As String
Dim olkSnd As Outlook.AddressEntry
Dim olkEnt As Object

On Error Resume Next
Select Case intOutlookVersion
Case Is < 14
If Item.SenderEmailType = "EX" Then
GetSMTPAddress = SMTPEX(Item)
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
Case Else
Set olkSnd = Item.Sender
If olkSnd.AddressEntryUserType = olExchangeUserAddressEntry Then
Set olkEnt = olkSnd.GetExchangeUser
GetSMTPAddress = olkEnt.PrimarySmtpAddress
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
End Select
On Error GoTo 0
Set olkPrp = Nothing
Set olkSnd = Nothing
Set olkEnt = Nothing
End Function

Function GetOutlookVersion() As Integer
Dim arrVer As Variant
arrVer = Split(Outlook.Version, ".")
GetOutlookVersion = arrVer(0)
End Function

Function SMTPEX(olkMsg As Outlook.MailItem) As String
Dim olkPA As Outlook.propertyAccessor
On Error Resume Next
Set olkPA = olkMsg.propertyAccessor
SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")
On Error GoTo 0
Set olkPA = Nothing
End Function

3. 필요에 따라 위의 VBA 코드를 조정하십시오.

(1) 교체 대상_폴더_경로 위 코드에서 대상 폴더의 폴더 경로와 함께 내 보낸 통합 문서를 다음과 같이 저장할 것입니다. C : \ 사용자 \ DT168 \ 문서 \ TEST.
(2) 위 코드에서 your_email_accouny \ folder \ subfolder_1 및 your_email_accouny \ folder \ subfolder_2를 Outlook의 하위 폴더 경로로 바꿉니다. 켈리 @extendoffice.com \ Inbox \ A켈리 @extendoffice.com \ Inbox \ B

4. 누르세요 F5 키를 누르거나 달리기 버튼을 눌러이 VBA를 실행합니다. 그런 다음 OK Outlook 폴더를 Excel로 내보내기 대화 상자가 나타납니다. 스크린 샷보기 :

이제 위의 VBA 코드에 지정된 모든 하위 폴더 또는 폴더의 전자 메일이 내보내지고 Excel 통합 문서에 저장됩니다.


화살표 블루 오른쪽 거품관련 기사


Outlook 용 Kutools-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
코멘트 (10)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하위 폴더로 자동 재귀하도록 하려면 어떻게 해야 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 모든 것이 잘 작동하지만 본문은 내보내지지 않습니다. 어떻게 이메일 본문도 내보낼 수 있습니까? Excel 파일에는 (제목, 수신 및 보낸 사람)이 있습니다. 업데이트 할 수 있다면 큰 문제를 해결할 것입니다. 내 비즈니스에서 다시 한 번 감사드립니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 몬타저입니다.
VBA 스크립트는 메일 폴더에서 이메일을 대량으로 내보낼 때 메시지 콘텐츠 내보내기를 지원하지 않는 Outlook의 내보내기 기능을 기반으로 실행됩니다. 따라서 이 VBA 스크립트는 메시지 내용도 내보낼 수 없습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 훌륭하게 작동하지만 위의 4개 필드뿐만 아니라 Outlook에서 PST로 내보내는 모든 정보에 대한 정보를 추가하는 방법이 있습니까? 제목 본문 From: (Name) From: (Address) From: (Type) To: (Name) To: (Address) To: (Type) CC: (Name) CC: (Address) CC: (Type) BCC: ( 이름) 숨은 참조: (주소) 숨은 참조: (유형) 청구 정보 범주 중요도 마일리지 민감도

"중요"를 추가하려고 시도했지만 작동하지만 누군가 다른 필드에 대한 코드를 제공할 수 있다면 감사하겠습니다. 감사합니다!!
excWks와 함께
.Cells(1, 1) = "제목"
.Cells(1, 2) = "수신"
.Cells(1, 3) = "보낸 사람"
.Cells(1, 4) = "본문"
.Cells(1, 5) = "중요도"

내부 행 = 2
olkFld.Items의 각 olkMsg에 대해
'메시지만 내보내고 영수증이나 약속 요청 등은 제외합니다.
olkMsg.Class = olMail이면
' 내보내려는 메시지의 각 필드에 행 추가
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
excWks.Cells(intRow, 5) = olkMsg.Importance
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 귀하의 필요에 따라 아래 코드를 확인하십시오.
Const MACRO_NAME = "Outlook 폴더를 Excel로 내보내기"

하위 ExportMain()

ExportToExcel "destination_folder_path\A.xlsx", "your_email_accuny\folder\subfolder_1"

ExportToExcel "destination_folder_path\B.xlsx", "your_email_accuny\folder\subfolder_2"

MsgBox "프로세스가 완료되었습니다.", vbInformation + vbOKOnly, MACRO_NAME

최종 하위

하위 ExportToExcel(strFilename을 문자열로, strFolderPath를 문자열로)

Dim olkMsg를 개체로

Dim olkFld를 개체로

Dim excApp을 개체로

Dim excWkb를 개체로

Dim excWks를 개체로

Dim intRow를 정수로

Dim intVersion을 정수로

만약 strFilename <> "" 그렇다면

if strFolderPath <> "" 다음

olkFld = OpenOutlookFolder(strFolderPath) 설정

If TypeName(olkFld) <> "아무것도" 그러면

intVersion = GetOutlookVersion()

excApp = CreateObject("Excel.Application") 설정

excWkb = excApp.Workbooks.Add() 설정

excWks = excWkb.ActiveSheet 설정

' Excel 열 머리글 작성

excWks와 함께

.Cells(1, 1) = "제목"

.Cells(1, 2) = "본문"

.Cells(1, 3) = "수신"

.Cells(1, 4) = "보낸 사람: (이름)"

.Cells(1, 5) = "보낸 사람: (주소)"

.Cells(1, 6) = "보낸 사람: (유형)"

.Cells(1, 7) = "받는 사람: (이름)"

.Cells(1, 8) = "받는 사람: (주소)"

.Cells(1, 9) = "받는 사람: (유형)"

.Cells(1, 10) = "CC: (이름)"

.Cells(1, 11) = "참조: (주소)"

.Cells(1, 12) = "CC: (유형)"

.Cells(1, 13) = "숨은 참조: (이름)"

.Cells(1, 14) = "숨은 참조: (주소)"

.Cells(1, 15) = "숨은 참조: (유형)"

.Cells(1, 16) = "결제 정보"

.Cells(1, 17) = "범주"

.Cells(1, 18) = "중요도"

.Cells(1, 19) = "마일리지"

.Cells(1, 20) = "감도"



내부 행 = 2

olkFld.Items의 각 olkMsg에 대해

'메시지만 내보내고 영수증이나 약속 요청 등은 제외합니다.

olkMsg.Class = olMail이면

' 내보내려는 메시지의 각 필드에 행 추가

excWks.Cells(intRow, 1) = olkMsg.Subject

excWks.Cells(intRow, 2) = olkMsg.Body

excWks.Cells(intRow, 3) = olkMsg.ReceivedTime

excWks.Cells(intRow, 4) = olkMsg.SenderName

excWks.Cells(intRow, 5) = GetAddress(olkMsg.Sender, intVersion)

excWks.Cells(intRow, 6) = olkMsg.Sender.Type

excWks.Cells(intRow, 7) = GetRecipientsName(olkMsg, 1, 1, intVersion)

excWks.Cells(intRow, 8) = GetRecipientsName(olkMsg, 1, 2, intVersion)

excWks.Cells(intRow, 9) = GetRecipientsName(olkMsg, 1, 3, intVersion)

excWks.Cells(intRow, 10) = GetRecipientsName(olkMsg, 2, 1, intVersion)

excWks.Cells(intRow, 11) = GetRecipientsName(olkMsg, 2, 2, intVersion)

excWks.Cells(intRow, 12) = GetRecipientsName(olkMsg, 2, 3, intVersion)

excWks.Cells(intRow, 13) = GetRecipientsName(olkMsg, 3, 1, intVersion)

excWks.Cells(intRow, 14) = GetRecipientsName(olkMsg, 3, 2, intVersion)

excWks.Cells(intRow, 15) = GetRecipientsName(olkMsg, 3, 3, intVersion)

excWks.Cells(intRow, 16) = olkMsg.BillingInformation

excWks.Cells(intRow, 17) = olkMsg.Categories

excWks.Cells(intRow, 18) = olkMsg.Importance

excWks.Cells(intRow, 19) = olkMsg.마일리지

excWks.Cells(intRow, 20) = olkMsg.감도

intRow = intRow + 1

END IF

다음

설정 olMsg = 없음

excWkb.SaveAs str파일 이름

excWkb.닫기

다른

MsgBox "'' 및 strFolderPath 및 "' 폴더가 Outlook에 없습니다.", vbCritical + vbOKOnly, MACRO_NAME

END IF

다른

MsgBox "폴더 경로가 비어 있습니다.", vbCritical + vbOKOnly, MACRO_NAME

END IF

다른

MsgBox "파일 이름이 비어 있습니다.", vbCritical + vbOKOnly, MACRO_NAME

END IF



설정 olMsg = 없음

olkFld = 없음으로 설정

excWks = 없음 설정

excWkb = 없음으로 설정

excApp = 없음 설정

최종 하위



공용 함수 OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder

Dim arFolders as Variant

Dim varFolder를 변형으로

부울로 Dim bolBeyondRoot

오류에 대한 다음 재개

strFolderPath = ""인 경우 다음

OpenOutlookFolder 설정 = 없음

다른

왼쪽(strFolderPath, 1) = "\" 동안 수행

strFolderPath = 오른쪽(strFolderPath, Len(strFolderPath) - 1)

고리

arrFolders = 분할(strFolderPath, "\")

arrFolders의 각 varFolder에 대해

케이스 선택 bolBeyondRoot

케이스 거짓

OpenOutlookFolder = Outlook.Session.Folders(varFolder) 설정

bolBeyondRoot = 참

케이스 트루

OpenOutlookFolder 설정 = OpenOutlookFolder.Folders(varFolder)

선택 종료

오류 번호 <> 0이면

OpenOutlookFolder 설정 = 없음

종료

END IF

다음

END IF

오류 발생시 0

최종 기능



GetOutlookVersion()을 정수로 함수

Dim arVer As Variant

arrVer = 분할(Outlook.Version, ".")

GetOutlookVersion = arrVer(0)

최종 기능



기능 SMTPEX(AddressEntry로 항목)를 문자열로

Dim olkPA를 Outlook.PropertyAccessor로

오류에 대한 다음 재개

olkPA = Entry.PropertyAccessor 설정

SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")

오류 발생시 0

olkPA = 없음으로 설정

최종 기능



함수 GetAddress(AddressEntry로 항목, 정수로 intOutlookVersion) 문자열로

개체로 Dim olkEnt

오류에 대한 다음 재개

케이스 intOutlookVersion 선택

케이스는 < 14

Entry.Type = "EX"인 경우 다음

GetAddress = SMTPEX(항목)

다른

GetAddress = 항목.주소

END IF

아니면 케이스

Entry.AddressEntryUserType = olExchangeUserAddressEntry이면

olkEnt = Entry.GetExchangeUser 설정

GetAddress = olkEnt.PrimarySmtpAddress

다른

GetAddress = 항목.주소

END IF

선택 종료

오류 발생시 0

olkEnt = 없음으로 설정

최종 기능



함수 GetRecipientsName(항목을 MailItem으로, rcpType을 정수로, Ret를 정수로, intOutlookVersion을 정수로) 문자열로

받는 사람으로 Dim xRcp

xName을 문자열로 희미하게 표시

x이름 = ""

Item.Recipients의 각 xRcp에 대해

xRcp.Type = rcpType인 경우

Ret = 1이면

xNames = ""인 경우 다음

xNames = xRcp.이름

다른

xNames = xNames & "; " & xRcp.Name

END IF

ElseIf Ret = 2 다음

xNames = ""인 경우 다음

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

다른

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

END IF

ElseIf Ret = 3 다음

xNames = ""인 경우 다음

xNames = xRcp.AddressEntry.Type

다른

xNames = xNames & "; " & xRcp.AddressEntry.Type

END IF

END IF

ElseIf xRcp.Type = rcpType 다음

Ret = 1이면

xNames = ""인 경우 다음

xNames = xRcp.이름

다른

xNames = xNames & "; " & xRcp.Name

END IF

ElseIf Ret = 2 다음

xNames = ""인 경우 다음

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

다른

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

END IF

ElseIf Ret = 3 다음

xNames = ""인 경우 다음

xNames = xRcp.AddressEntry.Type

다른

xNames = xNames & "; " & xRcp.AddressEntry.Type

END IF

END IF

ElseIf xRcp.Type = rcpType 다음

Ret = 1이면

xNames = ""인 경우 다음

xNames = xRcp.이름

다른

xNames = xNames & "; " & xRcp.Name

END IF

ElseIf Ret = 2 다음

xNames = ""인 경우 다음

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

다른

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

END IF

ElseIf Ret = 3 다음

xNames = ""인 경우 다음

xNames = xRcp.AddressEntry.Type

다른

xNames = xNames & "; " & xRcp.AddressEntry.Type

END IF

END IF

END IF

다음

GetRecipientsName = xNames

최종 기능




희망이 당신을 위해 작동합니다.
아만다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
ExporttoExcel 하위에서 본문을 추가할 수 있습니다.

' Excel 열 머리글 작성
excWks와 함께
.Cells(1, 1) = "제목"
.Cells(1, 2) = "수신"
.Cells(1, 3) = "보낸 사람"
.Cells(1, 4) = "본문"

내부 행 = 2
olkFld.Items의 각 olkMsg에 대해
'메시지만 내보내고 영수증이나 약속 요청 등은 제외합니다.
olkMsg.Class = olMail이면
' 내보내려는 메시지의 각 필드에 행 추가
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
intRow = intRow + 1
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 누군가 여기에서 저를 도와줄 수 있기를 바랍니다. 저는 VB에 대한 지식이 거의 없지만 지금까지 이 스크립트가 작동하도록 했습니다.

그러나 받은 편지함 아래에 총 1500개의 폴더와 하위 폴더가 있으며 Excel의 별도 열에 제목과 날짜와 함께 보낸 모든 이메일 주소를 내보내는 간단한 스크립트가 정말 필요합니다.

나는 며칠 동안 검색했고 많은 다른 사이트를 시도했지만 이 사이트 외에는 작동하는 코드를 얻을 수 없습니다.


내가 요구하는 것이 가능한가? 그렇다면 내가 필요한 스크립트를 작성하는 데 도움이 될 만큼 친절하고 영리한 사람이 있습니까?
이 부분과 관련이 있다고 생각합니다.


하위 ExportMain()

ExportToExcel "destination_folder_path\A.xlsx", "your_email_accuny\folder\subfolder_1"

ExportToExcel "destination_folder_path\B.xlsx", "your_email_accuny\folder\subfolder_2"

MsgBox "프로세스가 완료되었습니다.", vbInformation + vbOKOnly, MACRO_NAME

최종 하위


고급에 감사합니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
방금 잘 작동하는 이 매크로를 실행했습니다.
나는 그 표현에서 그것을 이해한다.
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* 및 GetSMTPAddress(olkMsg, intVersion)는 Outlook에서 항목을 추출합니다.

메일이 전송된 주소를 얻기 위해 사용할 인수는 무엇입니까?

Outlook의 내보내기 마법사를 사용하면 이 주소를 내보낼 수 있으므로 이 매크로(일부 수정 포함)를 통해 내보낼 수 있다고 가정합니다.
누군가가 도와 드릴까요?

문안 인사
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 매크로를 실행하지만 계속 컴파일 오류가 발생합니다.

사용자=정의된 유형이 정의되지 않음

62행에서 "공개 기능 OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder"

이미 다음과 같이 경로를 지정했습니다.

ExportToExcel "C:\Users\kudus\Documents\MailExportTest\f1\A.xlsx", "myname@mydomain.com\Inbox\Black Hat 웹캐스트"
ExportToExcel "C:\Users\Documekudus\Documents\MailExportTest\f2\B.xlsx", "myname@mydomain.com\Inbox\CPD\Kaplan 교육"

필요한 경우 Outlook 2016을 사용하고 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 그것을 고쳤다. Visual Basic 창에서 도구 참조 - "Microsoft Outlook 16.0 개체 라이브러리" 상자로 이동합니다.

아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호