Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用文件夹路径字符串在Outlook的VBA中选择文件夹_Vba_Outlook - Fatal编程技术网

使用文件夹路径字符串在Outlook的VBA中选择文件夹

使用文件夹路径字符串在Outlook的VBA中选择文件夹,vba,outlook,Vba,Outlook,如何输入字符串作为文件夹位置 ex.\MySpecificMailAddress\Inbox 要使用outlook在VBA中选择该文件夹? 我使用以下方法获得路径: ... = ActiveExplorer.CurrentFolder.FolderPath 我已经进行了广泛的搜索,自动告诉脚本要在哪个特定文件夹上运行宏,而无需选择文件夹然后运行脚本。您应该能够枚举并访问给定邮箱的所有文件夹。根据需要深入多少层,这可能需要更多的努力(即递归) 下面是一个枚举邮箱/存储根文件夹下所有文件夹的列表:

如何输入字符串作为文件夹位置 ex.\MySpecificMailAddress\Inbox 要使用outlook在VBA中选择该文件夹? 我使用以下方法获得路径:

... = ActiveExplorer.CurrentFolder.FolderPath

我已经进行了广泛的搜索,自动告诉脚本要在哪个特定文件夹上运行宏,而无需选择文件夹然后运行脚本。

您应该能够枚举并访问给定邮箱的所有文件夹。根据需要深入多少层,这可能需要更多的努力(即递归)

下面是一个枚举邮箱/存储根文件夹下所有文件夹的列表:

Sub EnumerateFoldersInStores()  
 Dim colStores As Outlook.Stores 
 Dim oStore As Outlook.Store 
 Dim oRoot As Outlook.Folder 

 On Error Resume Next 

 Set colStores = Application.Session.Stores  
 For Each oStore In colStores 
   Set oRoot = oStore.GetRootFolder 
   Debug.Print (oRoot.FolderPath) 
   EnumerateFolders oRoot 
 Next 

End Sub 

Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder) 
 Dim folders As Outlook.folders 
 Dim Folder As Outlook.Folder 
 Dim foldercount As Integer 

 On Error Resume Next 
 Set folders = oFolder.folders 
 foldercount = folders.Count 
 'Check if there are any folders below oFolder 
  If foldercount Then 
    For Each Folder In folders 
      Debug.Print (Folder.FolderPath) 
      EnumerateFolders Folder 
    Next 
 End If 
End Sub

远大。这与我在上述问题中提出的问题不符。我的outlook中有3个电子邮件地址,如果有50个电子邮件地址,我希望脚本知道如何转到该特定路径\\emailaddress\inbox。我尝试使用EntryID,但该值似乎每天都在变化。您在最初的问题中没有说明这一点。以后请说得更具体些。谢谢银忍者,这正是我想要它做的!