Conversation.SetAlwaysDelete 方法 (Outlook)
为指定传递存储区指定设置，指示是否始终将会话中到达的所有现有项目和所有新项目移至指定传递存储区中的"已删除邮件"文件夹。
语法
expression。 SetAlwaysDelete( _AlwaysDelete_ , _Store_ )
表达 一个代表“Conversation”对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| AlwaysDelete | 必需 | OlAlwaysDeleteConversation | 一个常量，指示是否始终将到达会话中的所有现有项和新项目移动到 Store 参数指定的存储区的“已删除文件夹”。 |
| 存储区 | 必需 | Store | 指定相应存储区，该存储区包含要将会话的现有项目和新项目移至其中的"已删除邮件"文件夹。 |
备注
SetAlwaysDelete 方法对 Store 参数指定的传递存储区中的会话项目执行操作。 如果 Store 参数指定的存储区代表诸如存档 .pst 存储区之类的非传递存储区，则将对默认传递存储区中的会话项目执行操作。
如果 AlwaysDelete 参数为 olAlwaysDelete，则对话项目将移动到指定存储的“已删除邮件”文件夹中。 在这种情况下，会永久删除这些项目，除非用户指定一个单独的选项，以便Microsoft Outlook关闭时永久删除项目。
如果 SetAlwaysDelete 返回 olDoNotDelete ，现有对话项和到达对话中的新项目不移到指定的传送存储中，在已删除邮件文件夹和已删除邮件文件夹中的现有对话项目被移动到收件箱。
示例
下面的 Visual Basic for Applications (VBA) 的示例演示如何设置一个特定的邮件项的对话总是删除。 代码示例 DemoSetAlwaysDelete选择“阅读窗格”中显示的第一个邮件项作为特定邮件项。 DemoSetAlwaysDelete验证会话启用邮件项的存储区中，获取对话存在，并使用 SetAlwaysDelete 来始终将对话为现有和新的项目移动到同一个存储在已删除邮件文件夹如果涉及该邮件项的对话。
Sub DemoSetAlwaysDelete()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
' Get the item displayed in the 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
oConv.SetAlwaysDelete _
olAlwaysDelete, oStore
End If
End If
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。