Как изменить элемент Переместить папку «Входящие» в определенную папку

Question

Моя папка входящих сообщений Outlook содержит множество элементов. Я хочу переместить их в определенную папку через VBA. Я не нашел способ переместить элемент в папку. Мне нужна ваша помощь. Спасибо

Answer 1

Хотите переместить элемент «Входящие» в определенную папку?

Вы можете использовать метод Move для перемещения элемента Microsoft 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] = 'Eugene Astafiev'") 
 While TypeName(myItem) <> "Nothing" 
  myItem.Move myDestFolder 
  Set myItem = myItems.FindNext 
 Wend 
End Sub

Для получения дополнительной информации, пожалуйста, перейдите по этой ссылке:

VBA для перемещения прочитанных писем в определенные папки