Outlook VBA：将浏览按钮添加到输入框以获取文件夹路径答案

【问题标题】：Outlook VBA: Adding browse button to input box to get folder pathOutlook VBA：将浏览按钮添加到输入框以获取文件夹路径
【发布时间】：2013-05-23 19:18:19
【问题描述】：

我正在寻找在 Outlook VBA 中浏览文件夹的任何选项。目前我有，从以前的搜索：

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"

其中 strDateName 和 strFileName 是电子邮件的修改主题和日期。

我的问题是我想要一个浏览选项以及手动输入以防止拼写错误。我是 VBA 新手，需要经常自动保存电子邮件，请告诉我我的选择。

【问题讨论】：

您多久执行一次此操作？由于某种原因，Outlook 不支持普通的 office Application.FileDialog() 方法，但您可以创建一个解决方法，但这取决于您希望它的工作方式。

标签： vba outlook inputbox save-as

【解决方案1】：

您可以设置您的代码，以便在 InputBox 和 BrowseForFolder 之间进行选择。

您可以单独设置这些。

我建议你可以专门使用 BrowseForFolder。

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

这里是示例代码Macro to move selected outlook emails

【讨论】：