사용자가 VBA에서 Outlook 폴더를 선택할 수 있도록 대화 상자를 표시합니다.

Question

사용자가 메일 폴더를 선택해야하는 Outlook VBA를 작성했습니다 (사서함 또는 외부 PST 내에서).

현재 코드 내에서 직접 경로를 편집해야합니다. 원격으로 사용하기 쉽고 효율적이지 않습니다.

대화 상자가 나타나서 사용자가 사용 가능한 모든 폴더와 하위 폴더를 찾아보고 선택할 수있는 방법을 아는 사람이 있습니까?

메일 폴더에만 국한 할 수있는 보너스 포인트이지만 필수적인 것은 아닙니다.

Answer 1

Pickfolder 방법을 사용해보십시오 :

Sub FolderPick() 

    Dim objNS As NameSpace 
    Dim objFolder As folder 

    Set objNS = Application.GetNamespace("MAPI") 
    Set objFolder = objNS.PickFolder 

    If TypeName(objFolder) <> "Nothing" Then 
     Debug.Print vbCr & " objFolder: " & objFolder 
    Else 
     Debug.Print vbCr & "Cancel" 
    End If 

    Set objFolder = Nothing 
    Set objNS = Nothing 

End Sub