Привет всем!
Смотрю сейчас в сторону автоматизации некоторых операций. Хотелось бы сохранять список писем в Excel, и потом ставить задачи по этому списку.
Собственно разбираю на этапы этот процесс.
Дошел до создания задачи, и дальше не идет - не могу приложить исходное письмо к задаче
Застрял на .Attachments.Add. И путь задавал, и несколько вариантов подсунуть объект пробовал. Не выходит. Хотя из самой вновь созданной задачи (дальше в коде OutTsk.Display) файлы добавить можно.
В общем идея простая - поставить задачу на основе исходного письма.
В идеале конечно что то по аналогии с функцией "Переслать" или "Ответить", но у задач Outlook тело задачи только текстовое, HTML варианта нет. Ну или я не нашел
Как вариант можно прикладывать исходное письмо. Но и тут не выходит каменный цветок.
Может кто решил для себя такую задачу - поделитесь пож решением?
Смотрю сейчас в сторону автоматизации некоторых операций. Хотелось бы сохранять список писем в 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 варианта нет. Ну или я не нашел
Как вариант можно прикладывать исходное письмо. Но и тут не выходит каменный цветок.
Может кто решил для себя такую задачу - поделитесь пож решением?