如何在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