Программный запуск макроса в Outlook из макроса в Excel - VB

Узнай цену своей работы

Формулировка задачи:

Ищу подсказку по решению следующего вопроса:
Условия:
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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5