Sub MoveItems()
Dim Messages As Selection
Dim Msg As MailItem
Dim NS As NameSpace
Set NS = Application.GetNamespace("MAPI")
Set Messages = ActiveExplorer.Selection
If Messages.Count = 0 Then
Exit Sub
End If
For Each Msg In Messages
Msg.Move NS.Folders("Personal Folders").Folders("SavedMail")
Next
End Sub
этот код переместит все сообщения электронной почты из выбранной папки в Outlook в другую папку (SavedMail). Я хотел бы отредактировать код так, чтобы вместо того, чтобы использовать текущую выбранную папку в качестве источника для сообщений, была бы жестко закодированная папка-что - то вроде Set Messages = NS.Folders("Personal Folders").Folders("Moved")
.
Я новичок VBA и попытался просто заменить строку Set Messages на это, что привело к ошибке во время выполнения "13": несоответствие типа, которое, как я думаю, относится к несоответствию сообщений и команд Set Messages. Я попытался использовать разные определения Dim без удачи. Я предполагаю, что кто-то, кто знает VBA, сразу увидит способ сделать это.