1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Vba в Ms Outlook 2003

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

  1. RZX

    RZX Active Member

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

    RZX Active Member

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

    Код:
    '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.
     
Загрузка...

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