Vba в Ms Outlook 2003

Тема в разделе "Остальные БД", создана пользователем RZX, 25 авг 2010.

  1. RZX

    RZX Active Member

    Регистрация:
    3 ноя 2009
    Сообщения:
    42
    Симпатии:
    0
    Здравствуйте!
    Такой вопрос: может кто-нибудь подскажет, каким образом из макроса создать фильтр входящих сообщений в MS Outlook 2003?
    В MS Outlook 2007 можно, а вот в 2003?
     
  2. RZX

    RZX Active Member

    Регистрация:
    3 ноя 2009
    Сообщения:
    42
    Симпатии:
    0
    Вот код на VBA, который создает доп. папку и фильтр в Outlook 2007:

    Код (LotusScript):
    'MS OFFICE VBA EQUIVALENT (ONLY MS OFFICE 2007)

    'create Folder
    Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myFolders = myNameSpace.Folders.Item(1)

    Set myNewFolder = myFolders.Folders.Add("FolderAddedFromVBA")
    'create rule

    Dim colRules As Outlook.Rules
    Dim oRule As Outlook.Rule
    Dim colRuleActions As Outlook.RuleActions
    Dim oMoveRuleAction As Outlook.MoveOrCopyRuleAction
    Dim oFromCondition As Outlook.AddressRuleCondition
    Dim oInbox As Outlook.Folder
    Dim oMoveTarget As Outlook.Folder

    Set oMoveTarget = myFolders.Folders("FolderAddedFromVBA")

    Set colRules = myOlApp.Session.DefaultStore.GetRules()

    Set oRule = colRules.Create("FolderAddedFromVBA", olRuleReceive)

    Set oFromCondition = oRule.Conditions.SenderAddress

    With oFromCondition
    .Enabled = True
    .Address = Array("fromvba.org.by")
    End With

    Set oMoveRuleAction = oRule.Actions.MoveToFolder
    With oMoveRuleAction
    .Enabled = True
    .Folder = oMoveTarget
    End With

    colRules.Save
    Думаю, должет быть способ, чтобы подобным макаром создать папку и фильтр в Office 2003.
     
Загрузка...

Поделиться этой страницей