Отправка письма из Access'a

@Kollaps · Регистрация: 23.07.2012

Author24 — интернет-сервис помощи студентам

Мир всем. Такая ситуация - в базе данных появляется готовая заявка, требуется создать что-то типа готового "макета", например: "ваша заявка готова", и отправить электронное письмо с этим текстом клиенту, можно ли это реализовать в Accesse & Outlook?

@Ameli · 11.09.2012, 14:18

Самый простой способ - команда DoCmd.SendObject (отправить объект, при этом в опциях можно задать "нет объекта", а также другие полезные опции):

Visual Basic

1	DoCmd.SendObject acSendNoObject, , , "адрес", , , "Тема сообщения", "Текст сообщения"

@Kollaps · 11.09.2012, 15:14 **[ТС]**

Ameli, а можно как-то сделать так, чтобы каждый раз не писать код, а, например, назначить выполнение этой команды на отдельную кнопку в форме?

mobile · 11.09.2012, 15:27

Сообщение от Kollaps

[b]а можно как-то сделать так, чтобы каждый раз не писать код, а, например, назначить выполнение этой команды на отдельную кнопку в форме?

Даже нужно так сделать. В форме образуете поля для соответствующих разделов сообщения (а еще лучше сделать таблицу в которой будут эти поля и форму основать на этой таблице) и на клик кнопки повесить код

Visual Basic

1	DoCmd.SendObject acSendNoObject, , , Me.ПолеАдреса, , , Me.ПолеТемы, Me.ПолеСообщения

@Ameli · 11.09.2012, 15:28

Этот код и будет являться процедурой обработки события Нажатие кнопки

@Kollaps · 11.09.2012, 15:46 **[ТС]**

Ameli, Большое спасибо. Я добавил в вашу форму еще поле "Дата подачи заявки", а вот как сделать так, чтобы эта самая дата отображалась в тексте письма ("Ваша заявка от дд.мм.гг готова")? Попробовал записать по аналогии с адресом почты (Me![Поле3]), однако не получилось.

@Серж_87 · 11.09.2012, 22:08

Сообщение от Kollaps

Я добавил в вашу форму еще поле "Дата подачи заявки", а вот как сделать так, чтобы эта самая дата отображалась в тексте письма

смотри вложение

@Ameli · 12.09.2012, 09:43

Visual Basic

1	DoCmd.SendObject acSendNoObject, , , Me![Поле1], , , "Тема сообщения", "Ваша заявка от " & Me![ПолеСДатой] & " готова"

@Kollaps · 12.09.2012, 12:30 **[ТС]**

Всем спасибо, все работает =)

@Fatalmf · 26.07.2013, 10:29

Сообщение от mobile

Даже нужно так сделать. В форме образуете поля для соответствующих разделов сообщения (а еще лучше сделать таблицу в которой будут эти поля и форму основать на этой таблице) и на клик кнопки повесить код

Visual Basic

1	DoCmd.SendObject acSendNoObject, , , Me.ПолеАдреса, , , Me.ПолеТемы, Me.ПолеСообщения

подскажите плс. как в тело сообщения добавить текст больше чем 255 символов?

mobile · 26.07.2013, 11:41

Fatalmf, не знаю, не слышал о таком ограничении. И проверить не могу. Мой почтовый клиент не поддерживает MAPI, требуемый для SendObject.

Если условие >255 обязательное и победить SendObject не удается, то попробуйте отправлять через CDO. Там это точно возможно.

@Fatalmf · 26.07.2013, 12:45

Сообщение от mobile

Fatalmf, не знаю, не слышал о таком ограничении. И проверить не могу. Мой почтовый клиент не поддерживает MAPI, требуемый для SendObject.

Если условие >255 обязательное и победить SendObject не удается, то попробуйте отправлять через CDO. Там это точно возможно.

может я что-то неправильно делаю, но мне нужно текст (с форматированием) загнать в тело письма, текст для всех сообщений одинаковый и достаточно длинный и в таблице не хочется создавать поле с дублирующимся текстом. может есть способ из файла или ещё что?? подскажите куда копать или может код есть.
Буду очень благодарен за помощь!!!

@Ameli · 29.07.2013, 09:46

Не пойму, в чем проблема, у меня текст > 255 символов отлично вставляется в сообщение. Просто создала поле на форме, вставила в него длинный текст и отправляю:

Visual Basic

1	DoCmd.SendObject acSendNoObject, , , Me.ПолеАдреса, , , Me.ПолеТемы, Me.ПолеСообщения

@Fatalmf · 29.07.2013, 11:17

Сообщение от Ameli

Не пойму, в чем проблема, у меня текст > 255 символов отлично вставляется в сообщение. Просто создала поле на форме, вставила в него длинный текст и отправляю:

Visual Basic

1	DoCmd.SendObject acSendNoObject, , , Me.ПолеАдреса, , , Me.ПолеТемы, Me.ПолеСообщения

Всем спасибо! все разрешилось

можно посмотреть здесь Вставка текста с форматированием в тело письма

@duh_si · 29.07.2013, 12:05

Здравствуйте. стоит такая же задача: за день до наступления стадии заказа, отправить e-mail с сообщением всем заинтересованным лицам, у меня такие вопросы
1. Список заинтересованных лиц, наверное лучше сделать таблицу(код, ЗаинтересованныеЛица - где будут храниться их e-mail) ?

@Fatalmf · 29.07.2013, 12:17

Сообщение от duh_si

Здравствуйте. стоит такая же задача: за день до наступления стадии заказа, отправить e-mail с сообщением всем заинтересованным лицам, у меня такие вопросы
1. Список заинтересованных лиц, наверное лучше сделать таблицу(код, ЗаинтересованныеЛица - где будут храниться их e-mail) ?

Все верно!

@evgenii3000 · 02.10.2013, 14:16

разобрался

Visual Basic

Private Sub Кнопка0_Click()
On Error GoTo ErrorHandler
DoCmd.SendObject acSendNoObject, , , Me![Поле1], , , "Тема сообщения", Me![Поле4]
   MsgBox ("Это сообщение никогда не появится")
   GoTo Ends:
ErrorHandler:
  MsgBox ("Вы отменили отправку письма уведомление на запуск работы!!! Пожалуйста не забудьте сообщить о запуске нужному отделу")
Ends:
End Sub

@Aleks777 · 26.01.2016, 18:11

mobile, а не подскажите как в несколько адресов закинуть почту сразу...
простите что влез, просто очееень надо.
адреса думал вытащить запросом, а вот как почту сразу на несколько из этого запроса отправить - ума не приложу((

mobile · 26.01.2016, 19:08

Сообщение от Aleks777

как в несколько адресов закинуть почту сразу...

Для этого обычно достаточно перечислить все адреса через точку с запятой. Например по кнопке в форме создать список корреспондентов отправки. Сканируем рекордсет формы, создаем текстовую переменную с адресами через точку с запятой

Visual Basic

Dim s
With Me.recordset
   .Movefirst
   Do until .eof
      s=s & ";" & !ПолеАдреса
      .Movenext
   loop
End with
s=mid(s,2)

Далее подставить в нужное место переменную s в которой будут все адреса из записей формы. Если нужны не все адреса, то предварительно надо отфильтровать форму или задать ей источником правильный запрос.

@Aleks777 · 26.01.2016, 20:19

mobile, у меня чуть другая проблема...Отправка почты VBA в несколько адресов
адреса могут дублироваться (и будут(()

@Kollaps 0 / 0 / 0 Регистрация: 23.07.2012 Сообщений: 15
		1
	Отправка письма из Access'a 11.09.2012, 13:40. Показов 24289. Ответов 34 Метки нет (Все метки) Мир всем. Такая ситуация - в базе данных появляется готовая заявка, требуется создать что-то типа готового "макета", например: "ваша заявка готова", и отправить электронное письмо с этим текстом клиенту, можно ли это реализовать в Accesse & Outlook? 0

@Kollaps 0 / 0 / 0 Регистрация: 23.07.2012 Сообщений: 15
	11.09.2012, 15:14 [ТС]	3
	Ameli, а можно как-то сделать так, чтобы каждый раз не писать код, а, например, назначить выполнение этой команды на отдельную кнопку в форме? 0

@Kollaps 0 / 0 / 0 Регистрация: 23.07.2012 Сообщений: 15
	11.09.2012, 15:46 [ТС]	6
	Ameli, Большое спасибо. Я добавил в вашу форму еще поле "Дата подачи заявки", а вот как сделать так, чтобы эта самая дата отображалась в тексте письма ("Ваша заявка от дд.мм.гг готова")? Попробовал записать по аналогии с адресом почты (Me![Поле3]), однако не получилось. 0

@Kollaps 0 / 0 / 0 Регистрация: 23.07.2012 Сообщений: 15
	12.09.2012, 12:30 [ТС]	9
	Всем спасибо, все работает =) 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	26.07.2013, 11:41	11
	Fatalmf, не знаю, не слышал о таком ограничении. И проверить не могу. Мой почтовый клиент не поддерживает MAPI, требуемый для SendObject. Если условие >255 обязательное и победить SendObject не удается, то попробуйте отправлять через CDO. Там это точно возможно. 1

@Fatalmf 2 / 2 / 0 Регистрация: 23.10.2012 Сообщений: 33
	26.07.2013, 12:45	12
	Сообщение от mobile Fatalmf, не знаю, не слышал о таком ограничении. И проверить не могу. Мой почтовый клиент не поддерживает MAPI, требуемый для SendObject. Если условие >255 обязательное и победить SendObject не удается, то попробуйте отправлять через CDO. Там это точно возможно. может я что-то неправильно делаю, но мне нужно текст (с форматированием) загнать в тело письма, текст для всех сообщений одинаковый и достаточно длинный и в таблице не хочется создавать поле с дублирующимся текстом. может есть способ из файла или ещё что?? подскажите куда копать или может код есть. Буду очень благодарен за помощь!!! 0

@duh_si 569 / 169 / 22 Регистрация: 18.10.2012 Сообщений: 912
	29.07.2013, 12:05	15
	Здравствуйте. стоит такая же задача: за день до наступления стадии заказа, отправить e-mail с сообщением всем заинтересованным лицам, у меня такие вопросы 1. Список заинтересованных лиц, наверное лучше сделать таблицу(код, ЗаинтересованныеЛица - где будут храниться их e-mail) ? 0

@Fatalmf 2 / 2 / 0 Регистрация: 23.10.2012 Сообщений: 33
	29.07.2013, 12:17	16
	Сообщение от duh_si Здравствуйте. стоит такая же задача: за день до наступления стадии заказа, отправить e-mail с сообщением всем заинтересованным лицам, у меня такие вопросы 1. Список заинтересованных лиц, наверное лучше сделать таблицу(код, ЗаинтересованныеЛица - где будут храниться их e-mail) ? Все верно! 0

@Aleks777 96 / 92 / 16 Регистрация: 13.04.2015 Сообщений: 545
	26.01.2016, 18:11	18
	mobile, а не подскажите как в несколько адресов закинуть почту сразу... простите что влез, просто очееень надо. адреса думал вытащить запросом, а вот как почту сразу на несколько из этого запроса отправить - ума не приложу(( 0

@Aleks777 96 / 92 / 16 Регистрация: 13.04.2015 Сообщений: 545
	26.01.2016, 20:19	20
	mobile, у меня чуть другая проблема...Отправка почты VBA в несколько адресов адреса могут дублироваться (и будут(() 0