Метод Conversation.SetAlwaysDelete (Outlook)

Статья
04/07/2023

Задает параметр для указанного хранилища доставки, который указывает, будут ли все существующие и новые элементы, поступающие в беседу, всегда перемещаться в папку Удаленные в указанном хранилище доставки.

Синтаксис

выражение. SetAlwaysDelete( _AlwaysDelete_ , _Store_ )

Выражение Переменная, представляющая объект Conversation.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
AlwaysDelete	Обязательный	OlAlwaysDeleteConversation	Константой, указывающей, всегда ли все существующие и новые элементы, поступающие в беседу, перемещаются в удаленную папку хранилища, указанную параметром Store .
Store	Обязательный	Магазин	Указывает хранилище, содержащее папку "Удаленные", в которую необходимо переместить существующие и новые элементы беседы.

Замечания

Метод SetAlwaysDelete работает с элементами беседы в хранилище доставки, заданном параметром Store . Если хранилище, указанное параметром Store, представляет хранилище без доставки, например архивное PST-хранилище, действие применяется к элементам диалога в хранилище доставки по умолчанию.

Если параметр AlwaysDelete имеет значение olAlwaysDelete, элементы беседы перемещаются в папку Удаленные для указанного хранилища. В этом случае элементы не удаляются окончательно, если пользователь не указал отдельный параметр для окончательного удаления элементов при завершении работы Microsoft Outlook.

Если SetAlwaysDelete возвращает olDoNotDelete, существующие элементы беседы и новые элементы, поступающие в беседу, не перемещаются в папку "Удаленные" в указанном хранилище доставки, а существующие элементы беседы в папке "Удаленные" перемещаются в папку "Входящие".

Пример

В следующем примере Visual Basic для приложений (VBA) показано, как задать параметр always-delete для беседы определенного почтового элемента. В примере кода выбирается первый почтовый элемент, 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

См. также

Объект Conversation

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через