Программный запуск макроса в Outlook из макроса в Excel - VB
Формулировка задачи:
Ищу подсказку по решению следующего вопроса:
Условия:
1. В Outlook (не Express) в VbaProject.OTM есть макрос, отправляющий сообщения с вложением.
2. В Excel-файле есть макрос, обрабатывающий данные и сохраняющий их в другом сгенерированном excel-файле (каждый раз под новым именем), который и необходимо отправить в качестве вложения.
Собс-но вопрос: как из макроса в excel-файле вызвать макрос, содержащийся в Outlook, передав ему путь и имя очередного вкладываемого файла, чтоб тот его отправил адресату?
Конечно можно легко макросом из Excel сгенерировать сообщение с вложением и отправить его, программно открыв Outlook. Но, в этом случае вылазит предупреждающее о вирусах окошко... в общем, неэстетично как-то :) А ежели макрос на отправку в самом Outlook, то теоретически все должно бы пройти без этих занудств. Только вот как вызвать его, и как передать ему имя аттачмента - моих нынешних знаний не хватает.
P.S. с CDO связываться не хочу
Условия:
1. В Outlook (не Express) в VbaProject.OTM есть макрос, отправляющий сообщения с вложением.
2. В Excel-файле есть макрос, обрабатывающий данные и сохраняющий их в другом сгенерированном excel-файле (каждый раз под новым именем), который и необходимо отправить в качестве вложения.
Собс-но вопрос: как из макроса в excel-файле вызвать макрос, содержащийся в Outlook, передав ему путь и имя очередного вкладываемого файла, чтоб тот его отправил адресату?
Конечно можно легко макросом из Excel сгенерировать сообщение с вложением и отправить его, программно открыв Outlook. Но, в этом случае вылазит предупреждающее о вирусах окошко... в общем, неэстетично как-то :) А ежели макрос на отправку в самом Outlook, то теоретически все должно бы пройти без этих занудств. Только вот как вызвать его, и как передать ему имя аттачмента - моих нынешних знаний не хватает.
P.S. с CDO связываться не хочу
Решение задачи: «Программный запуск макроса в Outlook из макроса в Excel»
textual
Листинг программы
<font color="blue">Public</font> <font color="blue">Sub</font> X() MsgBox <font color="teal">"ABC"</font> <font color="blue">End</font> <font color="blue">Sub</font> <font color="blue">Private</font> <font color="blue">Sub</font> Application_Reminder(<font color="blue">ByVal</font> Item <font color="blue">As</font> <font color="blue">Object</font>) <font color="blue">If</font> TypeName(Item) = <font color="teal">"TaskItem"</font> <font color="blue">Then</font> X <font color="blue">End</font> <font color="blue">If</font> <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д