Soa como um bom candidato para a macro do Outlook VBScript que eu reuni há alguns anos, com base em alguns exemplos de código flutuando. Esta macro atualmente move as mensagens selecionadas ou a mensagem aberta atual para um arquivo PST que eu criei, chamado "Arquivar pastas particulares". Isso pode ser alterado para qualquer pasta desejada. Colocar essa macro no seu Outlook irá ajudá-lo. Você precisará modificar o código para fazer o que quiser. Além disso, você precisa gerar um certificado de assinatura digital para assinar o código para facilitar. Eu coloquei um botão na minha barra de ferramentas para executar este script, para que eu possa mover um monte de mensagens de uma só vez para a minha pasta Arquivo.
Sub MoveSelectedMessagesToArchiveInbox()
On Error Resume Next
Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder
Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Set objFolder = objNS.Folders("Archive Personal Folders").Folders("Inbox")
'Assume this is a mail folder
If objFolder Is Nothing Then
MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
End If
Select Case TypeName(Outlook.Application.ActiveWindow)
'Viewing Inbox, so act upon selected messages
Case "Explorer"
If Application.ActiveExplorer.Selection.Count = 0 Then
'Require that this procedure be called only when a message is selected
Exit Sub
End If
For Each objItem In Application.ActiveExplorer.Selection
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
objItem.Move objFolder
End If
End If
Next
'A message is open, act upon current open message
Case "Inspector"
Set objItem = Outlook.Application.ActiveInspector.CurrentItem
If objFolder.DefaultItemType = olMailItem Then
If objItem.Class = olMail Then
objItem.Move objFolder
End If
End If
Case Else
' Do Nothing
End Select
Set objItem = Nothing
Set objFolder = Nothing
Set objInbox = Nothing
Set objNS = Nothing
End Sub