powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / действие по событию календаря
5 сообщений из 5, страница 1 из 1
действие по событию календаря
    #36242999
komicadze
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Народ, хочется реализовать задачку с календарем аутлука.
В нем есть события. Требуется, чтобы при активации оповещения по конкретному событию, содержащему определенные символы в поле "тема", формировалось письмо из шаблона и направлялось по указанному адресу. С запросом подтверждения при отправке, естественно.
Можно такое сделать? Где почитать или примеры посмотреть?
До этого опыта работы с макросами непосредственно в аутлук не было...
...
Рейтинг: 0 / 0
действие по событию календаря
    #36243583
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 komicadze ,
Гляньте здесь

Вот можна начать где-то так:
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Application_Reminder(ByVal Item As Object)

If Item.Subject = "то что нужно" Then
здесь код формирования сообщения
End If

End Sub
...
Рейтинг: 0 / 0
действие по событию календаря
    #36243686
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А дальше используйте либо метод который предлагает outlook - CreateItemFromTemplate, но у меня чето он не работает, говорит что нет доступа к файлу, хотя все открыто...
Либо просто создавайте сообщение методом CreateItem, и уже туда вписуйте что надо.
...
Рейтинг: 0 / 0
действие по событию календаря
    #36243689
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...содержащему определенные символы в поле "тема"...
Если эти симовлы последовательные, например в теме нужно найти "аба", используйте функцию InStr:
Код: plaintext
1.
2.
If instr(item.subject,"aба") =  1  ' функция возвращает единицу если последовательность найдена 
Then
И делаете что надо
Если же символы не последовательные Вам просто прийдется использовать эту функцию несколько раз для каждого символа...
...
Рейтинг: 0 / 0
действие по событию календаря
    #36243690
MaximuS_G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Перепутал здесь:
Код: plaintext
If instr(item.subject,"aба") =  1 
нужно
Код: plaintext
If instr(item.subject,"aба") >  0 

F1Returns a Variant (Long) specifying the position of the first occurrence of one string within another.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / действие по событию календаря
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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