Excel VBA 連接 outlook 在根文件夾中創建文件夾

Question

iw ant to create folder in outlook it contains set of accounts but i need to create folder in particualer email account using Excel VBA. kInldy 幫我解決這個問題。

Answer 1

看來您需要從 Excel VBA 自動化 Outlook 並在配置文件中創建一個文件夾。 Visual Basic 應用程序文章中的自動化 Outlook描述了所有必需的步驟。

如果您在 Outlook 配置文件中配置了多個帳戶，則可以使用Stores object，它表示一組Store對象，代表當前配置文件中可用的所有商店。 例如：

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

配置文件定義一個或多個 email 帳戶，每個 email 帳戶與特定類型的服務器相關聯。 對於 Exchange 服務器，存儲可以位於服務器上、Exchange 公用文件夾或本地個人文件夾文件 (.pst) 或脫機文件夾文件 (.ost) 中。 對於 POP3、IMAP 或 HTTP email 服務器，存儲是一個 .pst 文件。

您可以使用Stores和Store對象枚舉所有文件夾並搜索當前 session 中所有商店上的文件夾。 由於在存儲中獲取根文件夾或搜索文件夾需要打開存儲，並且打開存儲會對性能造成開銷，因此您可以在決定執行操作之前檢查Store.IsOpen屬性。

找到Store object 后，您可以使用 Store class 的GetDefaultFolder或GetRootFolder查找應在其中創建新文件夾的文件夾。

最后，您可能會發現存儲 Outlook 項目頁面很有幫助。