Метод MailItem.Move (Outlook)

Статья
04/07/2023

Перемещает элемент Microsoft Outlook в новую папку.

Синтаксис

выражение. Move( _DestFldr_ )

Выражение Переменная, представляющая объект MailItem .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
DestFldr	Обязательный	Folder	Выражение, возвращающее объект Folder . Целевая папка.

Возвращаемое значение

Значение Object , представляющее элемент, который был перемещен в указанную папку.

Пример

В этом примере Visual Basic для приложений (VBA) метод GetDefaultFolder возвращает объект Folder, представляющий папку по умолчанию. Затем он использует методы Find и FindNext для поиска всех сообщений, отправленных Дэном Уилсоном, и использует метод Move для перемещения всех сообщений электронной почты, отправленных Дэном Уилсоном, из папки "Входящие" по умолчанию в папку "Личная почта". Чтобы выполнить этот пример без ошибок, замените "Dan Wilson" именем отправителя vaid и убедитесь, что в папке "Входящие" есть папка с именем "Личная почта". Обратите внимание, что myItem объявлен как тип Object , поэтому он может представлять все типы элементов Outlook, включая приглашения на собрание и элементы запросов задач.

Sub MoveItems() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myInbox As Outlook.Folder 
 Dim myDestFolder As Outlook.Folder 
 Dim myItems As Outlook.Items 
 Dim myItem As Object 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) 
 Set myItems = myInbox.Items 
 Set myDestFolder = myInbox.Folders("Personal Mail") 
 Set myItem = myItems.Find("[SenderName] = 'Dan Wilson'") 
 While TypeName(myItem) <> "Nothing" 
 myItem.Move myDestFolder 
 Set myItem = myItems.FindNext 
 Wend 
End Sub

См. также

Объект MailItem

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

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

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