1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

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

Извлечь Входящие Сообщения Из Outlook С Аттачментами

Тема в разделе "Lotus - Программирование", создана пользователем imendan, 1 ноя 2011.

  1. imendan

    imendan Well-Known Member

    Репутация:
    0
    Регистрация:
    22 сен 2010
    Сообщения:
    116
    Симпатии:
    0
    Народ! Помогите, пож-та :please: ! Я создал агент, который проверяет входящую почту из Outlook. Не получается извлечь вложения и удалить сообщение.
    Предоставляю Вам часть кода. Прошу помочь дописать агент.

    Const olFolderInbox = 6
    Dim olApp, inbox, col, ns, sm

    Set olapp = createobject("outlook.application")
    Set ns = olapp.getnamespace("mapi")

    Set inbox = ns.GetDefaultFolder(olFolderInbox)

    Set col = inbox.items

    Forall msg In col
    Print msg.subject
    End Forall

    :)
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
  3. imendan

    imendan Well-Known Member

    Репутация:
    0
    Регистрация:
    22 сен 2010
    Сообщения:
    116
    Симпатии:
    0
    Огромное спасибо! Получилось все прекрасно! Вот как только не искал в гугле, но на эту страницу никак не выходил!
    :)
     
Загрузка...

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