Наша команда имеет общий почтовый ящик, в котором мы получаем по сотни писем ежедневно, и мы должны перетащить их вручную из почтового ящика в свои отдельные почтовые ящики. Так что есть правило или макрос, чтобы автоматически их перетаскивать.Как автоматически перетаскивать письма в Outlook?
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
Вы можете создать правила через меню 'Tools'>' Правила и Alerts'. – AutomatedChaos
Я согласен с @AutomatedChaos, правила почтового ящика - это путь. Обратите внимание, что для создания правил, которые автоматически применяются, вам необходимо войти в общую учетную запись почтового ящика. –