Conversation.SetAlwaysDelete Method (Outlook)
Specifies a setting for the specified delivery store that indicates whether all existing items and all new items that arrive in the conversation are always moved to the Deleted Items folder in the specified delivery store.
expression A variable that represents a 'Conversation' object.
|AlwaysDelete||Required||OlAlwaysDeleteConversation||A constant that indicates whether all existing and new items that arrive in the conversation are always moved to the Deleted Folder of the store specified by the Store parameter.|
|Store||Required||Store||Specifies the store that contains the Deleted Items folder to which existing and new items of the conversation are to be moved.|
The SetAlwaysDelete method operates on conversation items in the delivery store specified by the Store parameter. If the store specified by the Store parameter represents a non-delivery store such as an archive .pst store, the action is applied to conversation items in the default delivery store.
If the AlwaysDelete parameter is olAlwaysDelete , conversation items are moved to the Deleted Items folder for the specified store. In this case, the items are not permanently deleted, unless the user has specified a separate option to permanently delete items when Microsoft Outlook shuts down.
If SetAlwaysDelete returns olDoNotDelete , existing conversation items and new items that arrive in the conversation are not moved to the Deleted Items folder in the specified delivery store, and existing conversation items in the Deleted Items folder are moved to the Inbox.
The following Visual Basic for Applications (VBA) example shows how to set the always-delete setting for the conversation of a specific mail item. The code example,
DemoSetAlwaysDelete, chooses the first mail item displayed in the Reading Pane as the specific mail item.
DemoSetAlwaysDelete verifies that conversations are enabled in the store for the mail item, obtains the conversation that involves that mail item if a conversation exists, and uses SetAlwaysDelete to always move existing and new items for that conversation to the Deleted Items folder in the same store.
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