Метод Conversation.GetAlwaysMoveToFolder (Outlook)

Статья
04/07/2023

Возвращает объект 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

См. также

Объект Conversation

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

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

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