ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программный запуск макроса в Outlook из макроса в Excel
13 сообщений из 13, страница 1 из 1
Программный запуск макроса в Outlook из макроса в Excel
    #35704788
zenon77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zenon77
Гость
Ищу подсказку по решению следующего вопроса:

Условия:

1. В Outlook (не Express) в VbaProject.OTM есть макрос, отправляющий сообщения с вложением.
2. В Excel-файле есть макрос, обрабатывающий данные и сохраняющий их в другом сгенерированном excel-файле (каждый раз под новым именем), который и необходимо отправить в качестве вложения.

Собс-но вопрос: как из макроса в excel-файле вызвать макрос, содержащийся в Outlook, передав ему путь и имя очередного вкладываемого файла, чтоб тот его отправил адресату?

Конечно можно легко макросом из Excel сгенерировать сообщение с вложением и отправить его, программно открыв Outlook. Но, в этом случае вылазит предупреждающее о вирусах окошко... в общем, неэстетично как-то :) А ежели макрос на отправку в самом Outlook, то теоретически все должно бы пройти без этих занудств. Только вот как вызвать его, и как передать ему имя аттачмента - моих нынешних знаний не хватает.

P.S. с CDO связываться не хочу
...
Рейтинг: 0 / 0
10.12.2008, 11:32
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35704982
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Предупреждающее окошко можно убрать с помощью некоторых утилит.

Get Rid Of Outlook (annoying) Security Messages .

Помню, на прошой работе, парнишка как-то извратился в коде, что письмо из Excel через Outlook ушло без предупреждающего сообщения. :)
...
Рейтинг: 0 / 0
10.12.2008, 12:12
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35705112
zenon77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zenon77
Гость
Ashton,

все макросы пишу на рабочем компе, а системная политика безопасности в моей компании категорически не примлет установку любых надстроек, экзешников, батников и проч., в реестр лезть нельзя, доступ к системному диску с: заблокирован, а сам диск скрыт. То есть я даже в автозагрузку файл вручную перетащить не могу (хотя конечно, программно через FSO это можно). Поэтому рассчитывать приходится только на варианты с использованием VBA.

Вот что нашел, не знаю, насколько сгодиться: наверно можно через Shell запустить outlook с ключом /autorun имя_макроса . Outlook запустится, макрос выполнится, почта отправится, и сессию Outlook программно закрыть.
...
Рейтинг: 0 / 0
10.12.2008, 12:47
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35705241
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Ясно, жесткая политика безопасности.

Попробуй так.

Макрос в Outlook.

Код: plaintext
1.
2.
Public Sub X()
    MsgBox "ABC"
End Sub

Макрос в Excel.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Sub Y()
    Dim olookApp As Outlook.Application

    Set olookApp = CreateObject("Outlook.Application")
    
    olookApp.x ' Недокументированный метод.
    
    olookApp.Quit
    Set olookApp = Nothing
End Sub
...
Рейтинг: 0 / 0
10.12.2008, 13:23
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35705283
zenon77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zenon77
Гость
Ashton,

Неа. Ошибка 438. Объект не поддерживает данное свойство или метод
...
Рейтинг: 0 / 0
10.12.2008, 13:36
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35705522
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
У меня 2003-й. Все отработало.
...
Рейтинг: 0 / 0
10.12.2008, 14:38
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35705686
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
1. Проверь не стоит ли высокий уровень безопасности в Сервис -> Макросы -> Безопасность.
2. Макрос "X" должен быть в модуле ThisOutlookSession.
...
Рейтинг: 0 / 0
10.12.2008, 15:17
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35705755
zenon77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zenon77
Гость
Ashton,

На самом деле, у меня макрос был в простом модуле, а после перемещения в ThisOutlookSession, все заработало. Спасибо.

Тогда еще вопрос: чем различаются свойства простого молуля и ThisOutlookSession?
...
Рейтинг: 0 / 0
10.12.2008, 15:31
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35705876
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Можно еще использовать событие Application_Reminder. Т.е. назначить задачу, которая будет запускаться в определенное время.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Public Sub X()
    MsgBox "ABC"
End Sub

Private Sub Application_Reminder(ByVal Item As Object)
    If TypeName(Item) = "TaskItem" Then
        X
    End If
End Sub

Код: plaintext
1.
2.
3.
4.
5.
6.
Public Sub Y()
    Dim olookApp As Outlook.Application

    Set olookApp = CreateObject("Outlook.Application")
    
    Set olookApp = Nothing
End Sub
...
Рейтинг: 0 / 0
10.12.2008, 16:00
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35705920
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Не являюсь особым знатоком Outlook, но, по-видимом, это модуль класса в котором уже определен объект Application.
...
Рейтинг: 0 / 0
10.12.2008, 16:11
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35706068
zenon77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zenon77
Гость
Ashton,

Спасибо ишшо раз!
...
Рейтинг: 0 / 0
10.12.2008, 16:46
| Ответить | Цитировать | Написать  
Программный запуск макроса в Outlook из макроса в Excel
    #35706156
Фотография ICQRobot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ICQRobot
Участник
А если применить известный технологический приёмчик:

вместо задачи "вызвать оутлук из экселя" решаем обратную

"вызываем эксель из оутлука" а?
...
Рейтинг: 0 / 0
10.12.2008, 17:07
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Программный запуск макроса в Outlook из макроса в Excel
    #36369031
гость0
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
гость0
Гость
все равно ругается только теперь на доступ к адресной книге
...
Рейтинг: 0 / 0
16.12.2009, 11:46
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программный запуск макроса в Outlook из макроса в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]