如何在Outlook中自动拖动邮件？

Question

我们的团队拥有一个共享邮箱，我们每天收到数百封邮件，我们必须手动将它们从收件箱拖放到其单独的子收件箱中。那么是否有任何规则或宏自动拖动它们。

Answer 1

VBS样品

Set objOutlook = GetObject (, "Outlook.Application") 
Set objNamespace = objOutlook.GetNameSpace ("MAPI") 

Set objFolderRoot = objNamespace.Folders ("Y2013") 

Set objFolderSource = objFolderRoot.Folders ("Inbox") 
Set objFolderDistance = objFolderRoot.Folders ("test") 

MsgBox "Total emails is Inbox folder: " & objFolderSource.Items.Count 

Set objEmail = objFolderSource.Items (1) 

MsgBox "Subject of first email: " & objEmail.Subject 

objEmail.Move objFolderDistance 

Set objEmail = Nothing 

Set objFolderDistance = Nothing 
Set objFolderSource = Nothing 

Set objFolderRoot = Nothing 

Set objNamespace = Nothing 
Set objOutlook = Nothing 

当然，你必须在此代码添加对象的验证。

你也可以看看到VBA（不VBS您正在使用）样品上http://msdn.microsoft.com/en-us/library/office/ff860683.aspx