Метод Conversation.StopAlwaysDelete (Outlook)
Останавливает действие постоянного перемещения элементов беседы в указанном хранилище в папку Удаленные в этом хранилище.
Синтаксис
выражение. 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.