Метод Conversation.GetAlwaysDelete (Outlook)
Возвращает константу в перечислении OlAlwaysDeleteConversation , которая указывает, будут ли все новые элементы, присоединяющиеся к диалогу, всегда перемещаться в папку "Удаленные" в указанном хранилище доставки.
Синтаксис
выражение. GetAlwaysDelete( _Store_ )
Выражение Переменная, представляющая объект Conversation.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Store | Обязательный | Магазин | Указывает хранилище, в котором хранится папка "Удаленные" , в которую перемещаются элементы беседы. |
Возвращаемое значение
Константа из перечисления OlAlwaysDeleteConversation , указывающая, всегда ли все новые элементы диалога перемещаются в папку "Удаленные" указанного хранилища доставки.
Замечания
Если параметр Store указывает хранилище без доставки, например архивное PST-хранилище, метод GetAlwaysDelete возвращает константу из OlAlwaysDeleteConversation , которая применяется к элементам диалога в хранилище доставки по умолчанию. Элементы в хранилище без доставки не перемещаются в папку Удаленные для хранилища доставки по умолчанию.
Если GetAlwaysDelete возвращает olAlwaysDelete, элементы беседы всегда перемещаются в папку Удаленные для хранилища, содержащего эти элементы. В беседе между магазинами элементы перемещаются в папку Удаленные для хранилища, содержащего эти элементы. Когда GetAlwaysDelete возвращает olAlwaysDelete, метод GetAlwaysMoveToFolder возвращает объект folder, представляющий папку "Удаленные" для хранилища по умолчанию.
Если GetAlwaysDelete возвращает olAlwaysDeleteUnsupported, указанное хранилище не поддерживает действие постоянного перемещения элементов в папку "Удаленные" этого хранилища.
Если GetAlwaysDelete возвращает olDoNotDelete, новые элементы, поступающие в беседу, не перемещаются в папку Удаленные в указанном хранилище доставки, а существующие элементы беседы в папке "Удаленные" перемещаются в папку "Входящие".
Пример
В следующем примере Microsoft Visual Basic для приложений (VBA) показано, как проверить параметр постоянного удаления беседы выбранного почтового элемента. Пример кода , проверяет, DemoGetAlwaysDeleteвключены ли беседы в хранилище по умолчанию, получает беседу, которая включает первый почтовый элемент, отображаемый в области чтения, если беседа существует, использует GetAlwaysDelete для получения параметра always-delete и отображает параметр .
Sub DemoGetAlwaysDelete()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
Dim intValue As Integer
' Get the item displayed in Reading Pane.
Set oMail = ActiveExplorer.Selection(1)
If Application.Session.DefaultStore.IsConversationEnabled Then
Set oConv = oMail.GetConversation
If Not (oConv Is Nothing) Then
intValue = _
oConv.GetAlwaysDelete(Application.session.DefaultStore)
If intValue = _
Outlook.OlAlwaysDeleteConversation.olAlwaysDelete Then
Debug.Print "olAlwaysDelete"
ElseIf intValue = _
Outlook.OlAlwaysDeleteConversation.olAlwaysDeleteUnsupported Then
Debug.Print "olAlwaysDeleteUnsupported"
ElseIf intValue = _
Outlook.OlAlwaysDeleteConversation.olDoNotDelete Then
Debug.Print "olDoNotDelete"
End If
End If
End If
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.