| Вопрос: VBA в Outlook | Добавлено: 07.08.07 17:05 |
Автор вопроса:  Михаил
|
|
Подскажите, плиз, как в Outlook 2003 запрограммировать, чтобы при отправке письма определенному адресату ставилась важность "высокая" автоматом.
Знаю что надо юзать OlImportance. Но я не особо силен в VBA. как проверить адрес? на какое событие код писать, на ItemSend? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Михаил Вопросов: 1 Ответов: 4 |
Профиль | | #1 | Добавлено: 09.08.07 09:41 |
| Народ, ну подскажите хоть в какую сторону "рыть" то, за какое событие цепляться, хотя бы как адрес отследить? | ||
|
Номер ответа: 2 Автор ответа: Pavel Вопросов: 0 Ответов: 82 |
Профиль | | #2 | Добавлено: 09.08.07 11:03 |
|
Я думаю, здесь надо создавать класс, в котором будет определяться, что присьмо отправляется, потом делать проверку какому именно адресату, ну и делать уже важность высокую
типо With objMail
.Importance = olImportanceHigh .BodyFormat = olFormatPlain .Body = "body" .Subject = "Subject" .To = "MyAddress@Domain.RU" .Send End With Поищите в инете примеры создания классов для Outlook, где отлавливается событие отправки письма. |
||
|
Номер ответа: 3 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #3 | Добавлено: 09.08.07 11:19 |
|
Слушайте, а что вы морочите голову? В Outlook 2003 можно создать правило, чтобы при отправке письма определённому адресату автоматически ставилась важность высокая. Я только что это сделал у себя.
меню Сервис - Правила и оповещения... Кнопка "Новое" - вверху меняете "Создать новое правило" - Далее - ставите галочку "адресованные получатели или список расслыки" (внизу указываете нужного адресата)- ОК - Далее - галочку Установить для них указанную важность - внизу выбираете - Высокую - Готово |
||
|
Номер ответа: 4 Автор ответа: МихаилВопросов: 1 Ответов: 4 |
Профиль | | #4 | Добавлено: 13.08.07 10:56 |
| Кстати, а как проверить чтобы в Кому был только определенный адрес и больше ничего? | ||
|
Номер ответа: 5 Автор ответа: МихаилВопросов: 1 Ответов: 4 |
Профиль | | #5 | Добавлено: 13.08.07 12:57 |
| Ещё вопрос, почему в Outlook в VBA по F2 во вкладке outlook вижу к примеру класс Recipients, а когда начинаю писать скрипт Outlook. выпадает не весь список классов? | ||
|
Номер ответа: 6 Автор ответа: МихаилВопросов: 1 Ответов: 4 |
Профиль | | #6 | Добавлено: 14.08.07 15:04 |
|
Вот, сам дошел, кому интересно вот скриптик, тупо и просто.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim myMail As MailItem Set myMail = Application.ActiveInspector.CurrentItem If myMail.To = "www@www.ru" Then myMail.Importance = olImportanceHigh End If End Sub |
||
Страница: 1 |