VBA OUTLOOK 練習取得資料夾名稱

練習取得資料夾名稱VBA：

	Sub MAPI_FOLDER()
	Dim myNameSpace As Outlook.NameSpace
	Dim myFolder As Outlook.MAPIFolder
	Dim C As Variant, arrC As Variant
	arrC = Array(olFolderInbox, olFolderSentMail)
	Set myNameSpace = Application.GetNamespace("MAPI")
	For i = 0 To UBound(arrC)
	Set myFolder = myNameSpace.GetDefaultFolder(arrC(i))
	MsgBox myFolder.Name
	Call MAPI_subFolder_DEMO(arrC(i))
	Next
	End Sub
	Sub MAPI_subFolder_DEMO(C)
	Dim subFolder As Outlook.MAPIFolder
	Dim PATH As String
	Dim subFolder_STR As String
	Set myNameSpace = Application.GetNamespace("MAPI")
	Set myFolder = myNameSpace.GetDefaultFolder(C)
	MsgBox myFolder.Name
	If myFolder.Folders.Count <> 0 Then
	For Each subFolder In myFolder.Folders
	MsgBox subFolder.Name
	Next subFolder
	Else
	If myFolder.Folders.Count = 0 Then
	MsgBox myFolder.Name
	End If
	End If
	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

說明：

練習取得資料夾名稱