Всем привет.
Хочу сделать макрос по настройке Outlook (создание нужных папок и правил).
Все шло хорошо, но столкнулся с проблемой настройки правила, которое копирует элемент в нужную папку: папка не хочет добавляться в условия, как я думаю из-за несоответствия типов данных, но как обойти проблему не могу понять... по этому прошу у вас помощи! заранее спасибо!)
код:
| Код |
|---|
Sub qwe()
Set ns = CreateObject("Outlook.Application")
Set objNamespace = ns.GetNamespace("MAPI")
Set oInbox = objNamespace.GetDefaultFolder(6)
Set oMoveTarget = oInbox.Folders("Сервис")
Set colRules = objNamespace.Session.DefaultStore.GetRules()
Set oRule = colRules.Create("Правило", olRuleReceive)
'Set oFromCondition = oRule.Conditions.From ' от кого
' With oFromCondition
' .Enabled = True
' .Recipients.Add ("123")
' .Recipients.ResolveAll
' End With
Set oMoveRuleAction = oRule.Actions.MoveToFolder ' элемент переноса
With oMoveRuleAction
.Enabled = True
.Folder = oMoveTarget
End With
Set oExceptSubject = oRule.Exceptions.Subject ' тема
With oExceptSubject
.Enabled = True
.Text = Array("Что-то", "куда-то")
End With
colRules.Save
End Sub |
