Outlook VBA : 입력란에 찾아보기 단추를 추가하여 폴더 경로 가져 오기

Outlook VBA 내의 폴더 찾아보기에 대한 옵션을 찾고있었습니다. 현재 내가 이전 검색에서있다 :Outlook VBA : 입력란에 찾아보기 단추를 추가하여 폴더 경로 가져 오기

strDateName 및 strFileName이 주제와 이메일의 날짜를 수정

Dim save_to_folder As String 

save_to_folder = InputBox("Search returned " & objRsts.Count & " messages._ 
Please input folder location") 

olkMsg.SaveAs save_to_folder & "\" & strDateName & " " & strFileName & ".msg"

내 문제는 오타를 방지하기 위해 수동으로 입력하는 것과 함께 찾아보기 옵션이 필요하다는 것입니다. 저는 VBA를 처음 접했고 이메일을 자주 자동 저장해야합니다. 내 옵션이 무엇인지 알려주세요.

출처

2013-05-23 user2414983

Dim oShell As Object Set oShell = CreateObject("Shell.Application") Dim save_to_folder As Object Set save_to_folder = _ oShell.BrowseForFolder(0, "Please Select a Save Folder:", 1) If save_to_folder Is Nothing Then Exit Sub ' Note: BrowseForFolder doesn't add a trailing slash

샘플 코드는 얼마나 자주 이러는거야? Outlook은 어떤 이유로 든 일반 사무실의 'Application.FileDialog()'메소드를 지원하지 않지만, 당신은이 문제를 해결할 수있는 방식에 따라 문제를 해결할 수 있습니다. – enderland

코드를 설정하여 InputBox와 BrowseForFolder 중 하나를 선택할 수 있습니다.

별도로 설정할 수 있습니다.

BrowseForFolder 만 사용할 수 있습니다. 여기 Macro to move selected outlook emails

출처

2013-11-23 16:27:02 niton

Outlook VBA : 입력란에 찾아보기 단추를 추가하여 폴더 경로 가져 오기

답변

관련 문제