Вопрос 3029. Есть база клиентов. Поля: ОргФорма, Наименование и в т.ч. e-mail. Только у некоторых из клиентов есть адрес эл. почты. ЗАДАЧА. Создание кнопки радом с полем [E-mail], с тем, чтобы при нажатии вызывался, установленный по умолчанию, почтовый клиент, создавалось новое письмо, в котором подставлялся эл. адрес из поля [E-mail] и в теме подставлялось значение поля [ФИО]. |
Ответ. Общий механизм отсылки сообщения по email такой: DoCmd.SendObject , , , "test@mail.ru", , , "Title", "Text", True. Остается только подставить в этот код нужные поля и можно отсылать сообщение. Пример реализации для кнопки butEmail. Private Sub butEmail_Click() DoCmd.SendObject , , , Me.email, , , Me.FIO, "Контакт", True End Sub P.S. Неплохо бы еще и сделать так, чтобы эта кнопка активизировалась только при наличии данных в поле email. Для этого надо использовать событие "Текущая запись" формы и "Обновление" поля email. |