Outlook VBA複数のAcountsスクリプトを実行する

Question

こんにちは、私はこの完璧なコードが見つかりました。それは新しいメッセージをチェックし、カスタム列には日付と時刻だけを追加します。それは、受信したグループ化とグループ化するグループに最適です。

しかし、これは私のデフォルトアカウントでのみ動作します。これは複数のアカウントで動作しますか？

Private Sub Application_Quit() 
    Set myInbox = Nothing 
End Sub 

Private Sub Application_Startup() 
    Set myInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items 

End Sub 

Private Sub myInbox_ItemAdd(ByVal Item As Object) 
    Item.UserProperties.Add "DateReceived", olDateTime 
    Item.UserProperties.Item("DateReceived") = DateValue(Item.ReceivedTime) 
    Item.Save 
End Sub 

Answer 1

既存のコードは次のコード行のために、既定の受信トレイフォルダのために働く：

Set myInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items 

代わりに、あなたは、プロファイル内のすべての店舗を反復処理のGetDefaultFolderメソッドを呼び出す必要がありますストア内のデフォルトのフォルダを表し、引数FolderTypeで指定されたタイプのFolderオブジェクトを返すStoreクラス。このメソッドは、NameSpaceオブジェクトのGetDefaultFolderメソッドに似ています。違いは、このメソッドは、アカウントに関連付けられているデリバリストアの既定のフォルダを取得しますが、NameSpace.GetDefaultFolderは、現在のプロファイルの既定のストアの既定のフォルダを返します。

NamespaceクラスのStoresプロパティは、現在のプロファイルのすべてのStoreオブジェクトを表すStoresコレクションオブジェクトを返します。

最後に、Working with Outlook Accounts, Stores, Folders and Itemsの記事が役立つことがあります。