选择子文件夹（如有）

我想验证子文件夹是否存在，然后选择这些子文件夹。选择子文件夹（如有）

我选择一个文件夹getDefaultfolder，如：

' INBOX 
siFolder = Ctype(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox), Outlook.Folder) 
' SENT ITEMS 
siFolder = Ctype(ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderSentMail), Outlook.Folder) 
etc ... 

Where ... 
app = New Outlook.Application() 
ns = app.Session

它工作正常，但我不能看看是否有存在的子文件夹，我不知道该如何选择。

来源

2011-11-21 user1047402

堆栈溢出有一个[官方英文的政策]（http://blog.stackoverflow.com/2009/07/non-english-question-policy/）（很遗憾，[没有记录在常见问题]（http://meta.stackexchange.com/questions/40271/shouldnt-the-english-only-policy-be- mentioned-in-the-faq））。 – Dennis

您可以按照Area51上的法语Stackoveflow提案来推广此网站：http://area51.stackexchange.com/proposals/12692/stack-overflow-in-french – JMax

您的目标是什么？为什么需要选择文件夹？您可以使用Folders.Count来获取文件夹的数量。如果答案是> 0，那么有子文件夹。 – JimmyPena

Private Sub CreateNewFolder() 
     Dim oApp As Outlook.Application = New Outlook.Application 
     Dim oNS As Outlook.NameSpace = oApp.GetNamespace("MAPI") 
     Dim InboxFolder As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox) 
     Dim customFolder As Outlook.MAPIFolder 
     Try 
      For i = 1 To InboxFolder.Folders.Count 
       If InboxFolder.Folders.Item(i).Name = "Vellaichamy" Then 
        Exit Sub 
       End If 
      Next 
      customFolder = InboxFolder.Folders.Add("Vellaichamy", Outlook _ 
      .OlDefaultFolders.olFolderInbox) 
      InboxFolder.Folders("Vellaichamy").Display() 
     Catch ex As Exception 
      MessageBox.Show("The following error occurred: " & ex.Message) 
     Finally 
      ' Clean up. 
      oApp = Nothing 
      oNS = Nothing 
      InboxFolder = Nothing 
      customFolder = Nothing 
     End Try 
    End Sub

来源

2015-07-02 08:51:51 vellaichamy

选择子文件夹（如有）

回答

相关问题