Conversation.GetAlwaysDelete 方法 (Outlook)
返回 OlAlwaysDeleteConversation 枚举中的一个常量，该常量指示是否始终将加入会话的所有新项目移到指定送达存储中的 "已删除邮件" 文件夹。
语法
expression。 GetAlwaysDelete( _Store_ )
表达 一个代表“Conversation”对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| 存储区 | 必需 | Store | 指定存储，该存储包含会话项目将移动到的 "已删除邮件" 文件夹。 |
返回值
OlAlwaysDeleteConversation 枚举中的一个常量，指示会话的所有新项目是否始终移动到指定传递存储的“已删除邮件”文件夹。
备注
如果 Store 参数指定非传递存储（如存档 .pst 存储）， 则 GetAlwaysDelete 方法从 OlAlwaysDeleteConversation 返回一个常量，该常量应用于默认传递存储中的会话项。 对未送达的存储项不移到 已删除邮件文件夹的默认传送存储。
如果 GetAlwaysDelete 返回 olAlwaysDelete ，项目的对话被始终移动到 已删除邮件文件夹存储包含的项。 在跨存储对话中，项目移动到 已删除邮件文件夹用于存储包含的项。 当 GetAlwaysDelete 返回 olAlwaysDelete 时， GetAlwaysMoveToFolder 方法将返回一个表示默认存储区中的 已删除邮件文件夹的 folder 对象。
如果 GetAlwaysDelete 返回 olAlwaysDeleteUnsupported ，则指定的存储不支持始终将项目移动到该存储的 已删除邮件文件夹的操作。
如果 GetAlwaysDelete 返回 olDoNotDelete ，到达在此对话中的新项指定的传送存储中，在不移到 已删除邮件文件夹和 已删除邮件文件夹中的现有对话项目被移动到 收件箱。
示例
以下 Microsoft Visual Basic 应用程序 (VBA) 例如演示如何验证始终删除选定的邮件项的会话的设置。 代码示例 DemoGetAlwaysDelete验证会话是否在默认存储中启用，获取涉及阅读窗格中显示的第一个邮件项（如果存在）的对话，使用 GetAlwaysDelete 获取 always-delete 设置，并显示设置。
Sub DemoGetAlwaysDelete()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
Dim intValue As Integer
' Get the item displayed in Reading Pane.
Set oMail = ActiveExplorer.Selection(1)
If Application.Session.DefaultStore.IsConversationEnabled Then
Set oConv = oMail.GetConversation
If Not (oConv Is Nothing) Then
intValue = _
oConv.GetAlwaysDelete(Application.session.DefaultStore)
If intValue = _
Outlook.OlAlwaysDeleteConversation.olAlwaysDelete Then
Debug.Print "olAlwaysDelete"
ElseIf intValue = _
Outlook.OlAlwaysDeleteConversation.olAlwaysDeleteUnsupported Then
Debug.Print "olAlwaysDeleteUnsupported"
ElseIf intValue = _
Outlook.OlAlwaysDeleteConversation.olDoNotDelete Then
Debug.Print "olDoNotDelete"
End If
End If
End If
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。