1
VBA - Em vez de ActiveExplorer.Selection para definir pasta, defina explicitamente o caminho da pasta
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 Esse código moverá todas as mensagens de email …