通过

Conversation.StopAlwaysDelete 方法 (Outlook)

  • 项目

停止始终将指定存储区中的会话项目移至该存储区中"已删除邮件"文件夹的操作。

语法

expression。 StopAlwaysDelete( _Store_ )

表达 一个代表“Conversation”对象的变量。

参数

名称 必需/可选 数据类型 说明
存储区 必需 Store 指定对其执行 stop-always-delete 操作的存储区。

备注

如果总是删除操作未被开启， StopAlwaysDelete 不执行任何操作。

如果总是删除操作已打开 (通过调用SetAlwaysDelete方法中， StopAlwaysDelete 移动现有对话到收件箱已删除邮件文件夹中的项目。

调用 StopAlwaysDelete 方法后的存储区中的对话，该对话并存储在调用 GetAlwaysDelete 方法返回常量 olDoNotDelete 。

如果 Store 参数指定的存储区表示未送达的存储（如存档 .pst 存储），则停止始终删除操作将应用于默认传递存储中的会话项。

在对话中指定存储在已删除邮件文件夹已调用此方法将返回一个错误。

示例

下面的 Visual Basic for Applications (VBA) 的示例演示如何停止对一个特定的邮件项的对话总是删除操作。 代码示例 DemoStopAlwaysDelete选择“阅读窗格”中显示的第一个邮件项作为特定邮件项。 DemoStopAlwaysDelete验证会话上该邮件项的存储区启用，获取对话，如果对话存在，并使用 SetAlwaysDelete 在该存储上停止对话始终删除操作涉及该邮件项。

Sub DemoStopAlwaysDelete() 
 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.StopAlwaysDelete oStore 
 End If 
 End If 
End Sub

另请参阅

会话对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。