Conversation.GetAlwaysMoveToFolder 方法 (Outlook)
返回一个 Folder 对象，该对象指示始终将到达会话的新项目移至的指定送达存储中的文件夹。
语法
expression。 GetAlwaysMoveToFolder( _Store_ )
表达 一个代表“Conversation”对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| 存储区 | 必需 | Store | 会话项目移至的目标文件夹所驻留的存储。 |
返回值
在到达该会话中的所有新项目始终移动到指定存储 文件夹 对象。
备注
如果 Store 参数代表未送达存储（如存档 .pst 存储），则 GetAlwaysMoveToFolder 方法将返回一个应用于默认送达存储中会话项目的 Folder 对象。
如果没有文件夹（除 “已删除邮件” 文件夹）指定始终将对话项移动到中， 则 GetAlwaysMoveToFolder 方法在 Visual Basic) 中返回 Null (Nothing 。
示例
下面的 Microsoft Visual Basic 应用程序 (VBA) 示例演示如何查找到达对话在阅读窗格中显示的第一个邮件项的新项总是移动到其中的文件夹。 代码示例 DemoGetAlwaysMoveToFolder验证是否在存储中为所选邮件项目启用了对话，获取该邮件项目的聊天对象（如果存在），使用 GetAlwaysMoveToFolder 获取文件夹，并显示文件夹名称。
Sub DemoGetAlwaysMoveToFolder()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
' Get Item displayed in Reading Pane.
Set oMail = ActiveExplorer.Selection(1)
Set oStore = oMail.Parent.Store
If oStore.IsConversationEnabled Then
Set oConv = oMail.GetConversation
If Not (oConv Is Nothing) Then
Dim oFolder As Outlook.folder
Set oFolder = _
oConv.GetAlwaysMoveToFolder(oStore)
If Not (oFolder Is Nothing) Then
Debug.Print "MoveToFolder: " & oFolder.name
Else
Debug.Print "MoveToFolder action not set"
End If
End If
End If
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。