Метод Conversation.StopAlwaysDelete (Outlook)

Статья
04/07/2023

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

Синтаксис

выражение. StopAlwaysDelete( _Store_ )

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Store	Обязательный	Магазин	Указывает хранилище, к которому применяется действие stop-always-delete.

Замечания

Если действие постоянного удаления не включено, StopAlwaysDelete не выполняет никаких действий.

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

После вызова метода StopAlwaysDelete для беседы в хранилище вызов метода GetAlwaysDelete для этого диалога и хранилища возвращается константа olDoNotDelete.

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

Вызов этого метода в беседе, которая уже находится в папке "Удаленные" в указанном хранилище, возвращает ошибку.

Пример

В следующем примере Visual Basic для приложений (VBA) показано, как остановить действие always-delete для диалога определенного почтового элемента. В примере кода выбирается первый почтовый элемент, DemoStopAlwaysDeleteотображаемый в области чтения, в качестве определенного почтового элемента. DemoStopAlwaysDelete проверяет, включены ли беседы в хранилище для почтового элемента, получает беседу, которая включает этот почтовый элемент, если беседа существует, и использует SetAlwaysDelete , чтобы остановить действие always-delete для этой беседы в этом хранилище.

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

См. также

Объект Conversation

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

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

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