選擇子文件夾（如有）

我想驗證子文件夾是否存在，然後選擇這些子文件夾。選擇子文件夾（如有）

我選擇一個文件夾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

選擇子文件夾（如有）

回答

相關問題