vbscript - 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

もちろん、このコードにオブジェクト検証を追加する必要があります。

http://msdn.microsoft.com/en-us/library/office/ff860683.aspxの VBA (使用している VBS ではない) のサンプルを参照することもできます。