Conversation.SetAlwaysMoveToFolder 方法 (Outlook)
设置一个 Folder 对象，该对象指示将会话中到达的所有现有项目和新项目始终移至其中的文件夹。
语法
expression。 SetAlwaysMoveToFolder( _MoveToFolder_ , _Store_ )
表达 一个代表“Conversation”对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| MoveToFolder | 必需 | 文件夹 | 指定将会话中到达的所有现有项目和新项目始终移至其中的文件夹。 |
| Store | 必需 | Store | 指定相应存储区，该存储区包含要将会话项目移至其中的文件夹。 |
备注
SetAlwaysMoveToFolder 方法对 Store 参数指定的传递存储区中的会话项目执行操作。 如果 Store 参数代表诸如存档 .pst 存储区之类的非传递存储区，则将对默认传递存储区中的会话项目执行移动操作。
如果 MoveToFolder 参数指定不存在、已被移动或只读的无效文件夹，则 Outlook 将引发一个错误。
若要针对存储区中的会话项目停止 always-move-to-folder 操作，请调用 StopAlwaysMoveToFolder 方法。
注意
在 SetAlwaysMoveToFolder 中将“已删除邮件”文件夹设置为 MoveToFolder 参数并不等同于在同一存储和会话中调用 SetAlwaysDelete。 将 MoveToFolder参数设置为已删除邮件文件夹结果在 GetAlwaysDelete 方法中返回值 olDoNotDelete 。
调用 SetAlwaysMoveToFolder 时，将发生 Folder 对象的 BeforeItemMove 事件。
示例
下面的 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。