Метод Conversation.SetAlwaysMoveToFolder (Outlook)
Задает объект Folder, указывающий папку, в которую всегда перемещаются все существующие элементы беседы и новые элементы, поступающие в беседу.
Синтаксис
выражение. SetAlwaysMoveToFolder( _MoveToFolder_ , _Store_ )
Выражение Переменная, представляющая объект Conversation.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| MoveToFolder | Обязательный | Folder | Указывает папку, в которую всегда перемещаются все существующие и новые элементы, поступающие в беседу. |
| Store | Обязательный | Store | Указывает хранилище, содержащее папку, в которую перемещаются элементы беседы. |
Замечания
Метод SetAlwaysMoveToFolder работает с элементами беседы в хранилище доставки, заданном параметром Store . Если параметр Store представляет хранилище без доставки, например архивное PST-хранилище, действие перемещения будет применяться к элементам беседы в хранилище доставки по умолчанию.
Если параметр MoveToFolder указывает недопустимую папку, которая не существует, была перемещена или доступна только для чтения, Outlook вызовет ошибку.
Чтобы остановить действие always-move-to-folder для элементов бесед в хранилище, вызовите метод StopAlwaysMoveToFolder .
Примечание.
Установка папки "Удаленные" в качестве параметра MoveToFolder в SetAlwaysMoveToFolder не эквивалентна вызову SetAlwaysDelete в одном хранилище и беседе. Установка параметра MoveToFolder в папку "Удаленные" приведет к тому, что метод GetAlwaysDelete возвращает значение olDoNotDelete.
Событие BeforeItemMove объекта Folder возникает при вызове SetAlwaysMoveToFolder.
Пример
В следующем примере Visual Basic для приложений (VBA) показано, как задать папку, в которую всегда перемещаются существующие элементы беседы и новые элементы, поступающие в беседу определенного почтового элемента. В примере кода , первый почтовый элемент, отображаемый в области чтения, DemoSetAlwaysMoveToFolderвыбирается в качестве определенного почтового элемента, а папка с именем "1-Reference" в папке "Входящие" в качестве папки для перемещения элементов беседы. DemoSetAlwaysMoveToFolder проверяет, включены ли беседы в хранилище для выбранного почтового элемента, получает объект беседы для этого почтового элемента, если беседа существует, и использует SetAlwaysMoveToFolder , чтобы всегда перемещать все существующие элементы беседы и новые элементы, поступающие в беседу, в указанную папку.
Sub DemoSetAlwaysMoveToFolder()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
Dim oFolder As Outlook.Folder
' Obtain a reference to the folder where conversation items will be moved.
Set oFolder = _
Application.Session.GetDefaultFolder(olFolderInbox).Folders("1-Reference")
' Get the Item displayed in the Reading Pane.
Set oMail = ActiveExplorer.Selection(1)
Set oStore = oFolder.Store
If oStore.IsConversationEnabled Then
Set oConv = oMail.GetConversation
If Not (oConv Is Nothing) Then
oConv.SetAlwaysMoveToFolder oFolder, oStore
End If
End If
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.