次の方法で共有


Conversation.SetAlwaysMoveToFolder メソッド (Outlook)

スレッドで受信されたすべての既存アイテムおよび新規アイテムを常に移動する先のフォルダーを示す Folder オブジェクトを設定します。

構文

expression. SetAlwaysMoveToFolder( _MoveToFolder_ , _Store_ )

'Conversation' オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
MoveToFolder 必須 Folder スレッドで受信されたすべての既存アイテムおよび新規アイテムを常に移動する先のフォルダーを指定します。
Store 必須 Store スレッド アイテムの移動先フォルダーが存在するストアを指定します。

注釈

SetAlwaysMoveToFolder メソッドは、Store パラメーターで指定された配信ストアにあるスレッド アイテムを処理します。 Store パラメーターがアーカイブの .pst ストアなど配信先以外のストアを示している場合、既定の配信ストアにあるスレッド アイテムに対して移動アクションが実行されます。

存在しないフォルダー、移動済みフォルダー、読み取り専用フォルダーなど、無効なフォルダーを MoveToFolder パラメーターに指定した場合、Outlook でエラーが発生します。

ストア内のスレッド アイテムを常にフォルダーに移動するアクションを停止するには、 StopAlwaysMoveToFolder メソッドを呼び出します。

注:

SetAlwaysMoveToFolder で削除済みアイテム フォルダーを MoveToFolder パラメーターとして設定することは、同じストアと会話で SetAlwaysDelete を呼び出すことと同じではありません。 OlDoNotDelete の値を返す GetAlwaysDelete メソッドで削除済みアイテム フォルダーに、 MoveToFolderパラメーターを設定しています。

Folder オブジェクトの BeforeItemMove イベントは、SetAlwaysMoveToFolder を呼び出すと発生します。

次の Visual Basic for Applications (VBA) の例では、会話の既存の項目と、特定のメール アイテムの会話に到着した新しいアイテムは、常に移動先フォルダーを設定する方法を示します。 コード例では、 DemoSetAlwaysMoveToFolder閲覧ウィンドウに表示される最初のメール アイテムを特定のメール アイテムとして選択し、受信トレイ フォルダーの下にある "1-Reference" という名前のフォルダーを、会話アイテムを移動するフォルダーとして選択します。 DemoSetAlwaysMoveToFolderは、会話が選択されているメール アイテムのストアで有効になって、会話が存在し、 SetAlwaysMoveToFolder を使用して、常にすべての会話の既存のアイテムと指定したフォルダーに、会話で受信された新しいアイテムを移動する場合は、メール アイテムの会話のオブジェクトを取得するを確認します。

Sub DemoSetAlwaysMoveToFolder() 
 Dim oMail As Outlook.MailItem 
 Dim oConv As Outlook.Conversation 
 Dim oStore As Outlook.Store 
 Dim oFolder As Outlook.Folder 
 
 ' Obtain a reference to the folder where conversation items will be moved. 
 Set oFolder = _ 
 Application.Session.GetDefaultFolder(olFolderInbox).Folders("1-Reference") 
 ' Get the Item displayed in the Reading Pane. 
 Set oMail = ActiveExplorer.Selection(1) 
 Set oStore = oFolder.Store 
 If oStore.IsConversationEnabled Then 
 Set oConv = oMail.GetConversation 
 If Not (oConv Is Nothing) Then 
 oConv.SetAlwaysMoveToFolder oFolder, oStore 
 End If 
 End If 
End Sub

関連項目

会話オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。