Страницы: 1
RSS
Создание задачи в Outlook, Создать задачу и прикрепить исходное письмо
 
Привет всем!
Смотрю сейчас в сторону автоматизации некоторых операций. Хотелось бы сохранять список писем в Excel, и потом ставить задачи по этому списку.
Собственно разбираю на этапы этот процесс.
Дошел до создания задачи, и дальше не идет - не могу приложить исходное письмо к задаче
Код
    Set myobj = Application.ActiveExplorer.Selection(1) 'тут беру исходное письмо
    Set OutApp = CreateObject("Outlook.Application")
    Set OutTsk = OutApp.CreateItem(3) 'Создаю задачу
          With OutTsk
            .Subject = myobj.Subject   'Заголовок задачи берем в исходном письме
            .Attachments.Add myobj 'И вот тут застрял.
          End With

Застрял на .Attachments.Add.  И путь задавал, и несколько вариантов подсунуть объект пробовал. Не выходит. Хотя из самой вновь созданной задачи (дальше в коде OutTsk.Display) файлы добавить можно.


В общем идея простая - поставить задачу на основе исходного письма.
В идеале конечно что то по аналогии с функцией "Переслать" или "Ответить", но у задач Outlook тело задачи только текстовое, HTML варианта нет. Ну или я не нашел :)
Как вариант можно прикладывать исходное письмо. Но и тут не выходит каменный цветок.
Может кто решил для себя такую задачу - поделитесь пож решением?
Страницы: 1
Наверх