我已经编辑了一个在网上找到的脚本，可以将电子邮件移动到各个文件夹。
我想进一步将电子邮件移动到单独的PST文件中的文件夹中。
这将在Outlook 2007中运行。
该宏源自标题为“ Updated”的此宏，它是较干净的版本：http :
//jmerrell.com/2011/05/21/outlook-macros-move-email
我几乎可以确定此链接可以提供线索，但是我没有经验来正确应用它：http :
//www.slipstick.com/developer/working-vba-nondefault-outlook-folders/
我当前的宏允许将电子邮件移动到PST主“收件箱”文件夹中的3个不同的文件夹位置。
'Outlook VB Macro to move selected mail item(s) to a target folder
Sub MoveToFolder(targetFolder)
On Error Resume Next
Dim ns As Outlook.NameSpace
Dim MoveToFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem
Set ns = Application.GetNamespace("MAPI")
'define path to the target folder; the following assumes the target folder
'is a sub-folder of the main Mailbox folder
'This is the original'
'Set MoveToFolder = ns.Folders("Mailbox").Folders(targetFolder)'
Set MoveToFolder = ns.GetDefaultFolder(olFolderInbox).Folders(targetFolder) …