Метод Conversation.GetAlwaysMoveToFolder (Outlook)
Возвращает объект Folder, указывающий папку в указанном хранилище доставки, в которую всегда перемещаются новые элементы, поступающие в беседу.
Синтаксис
выражение. GetAlwaysMoveToFolder( _Store_ )
Выражение Переменная, представляющая объект Conversation.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Store | Обязательный | Магазин | Хранилище, в котором находится папка, в которую перемещаются элементы беседы. |
Возвращаемое значение
Объект Folder в указанном хранилище, в который всегда перемещаются все новые элементы, поступающие в беседу.
Замечания
Если параметр Store представляет хранилище без доставки, например архивное PST-хранилище, метод GetAlwaysMoveToFolder возвращает объект Folder, который применяется к элементам диалога в хранилище доставки по умолчанию.
Если не указана папка, кроме папки "Удаленные" , которая всегда перемещает элементы диалога, метод GetAlwaysMoveToFolder возвращает значение NULL (Nothing в Visual Basic).
Пример
В следующем примере Microsoft Visual Basic для приложений (VBA) показано, как найти папку, в которую всегда перемещаются новые элементы, поступающие в беседе первого почтового элемента, отображаемого в области чтения. Пример кода , проверяет, DemoGetAlwaysMoveToFolderвключены ли беседы в хранилище для выбранного почтового элемента, получает объект conversation для этого почтового элемента, если беседа существует, использует GetAlwaysMoveToFolder для получения папки и отображает имя папки.
Sub DemoGetAlwaysMoveToFolder()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
' Get Item displayed in 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
Dim oFolder As Outlook.folder
Set oFolder = _
oConv.GetAlwaysMoveToFolder(oStore)
If Not (oFolder Is Nothing) Then
Debug.Print "MoveToFolder: " & oFolder.name
Else
Debug.Print "MoveToFolder action not set"
End If
End If
End If
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.