ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вывод данных из аксесса в тело письма в формате HTML
62 сообщений из 62, показаны все 3 страниц
  все  
Вывод данных из аксесса в тело письма в формате HTML
    #39808855
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Всем привет! Помогите решить задачу. Надо из аксесс рассылать емейлы в формате HTML.
Например такой шаблон письма:
<h2>Напоминание.</h2>

<p>Уважаемый <strong>ИМЯ</strong>!</p>

<p>У Вас есть задолженность перед банком в сумме <span style="color:#16a085"><strong>СУММА</strong></span> рублей!</p>

<p>Просим погасить её до <strong>ДАТА</strong>.</p>
Вместо ИМЯ, СУММА, ДАТА мне надо вставить данные из соответствующих полей формы. Как их туда приклеить?
...
Рейтинг: 0 / 0
01.05.2019, 15:46
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809133
JDV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JDV
Участник
wladimirrr, через OutLook попробуйте
...
Рейтинг: 0 / 0
02.05.2019, 11:40
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809153
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Что именно вам подсказать? Как "вставить данные" или как отправить?
Для замены ключевых слов на данные используйте функцию Replace, например:
s = Текст шаблона
s = Replace(s, "ИМЯ", Me![ИМЯ]
s = Replace(s, "СУММА", Format(Me![СУММА], "# ##0.00")
...

Отправлять лучше через CDO, вставляя текст в реквизит HTMLBody.
...
Рейтинг: 0 / 0
02.05.2019, 12:05
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809337
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Кривцов АнатолийЧто именно вам подсказать? Как "вставить данные" или как отправить?
Для замены ключевых слов на данные используйте функцию Replace, например:
s = Текст шаблона
s = Replace(s, "ИМЯ", Me![ИМЯ]
s = Replace(s, "СУММА", Format(Me![СУММА], "# ##0.00")
...

Отправлять лучше через CDO, вставляя текст в реквизит HTMLBody.
Подсказать надо как "вставить данные".
Отправляю я через CDO, код следующий (нашел на форуме):
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Function SendEmail4()
Dim msg As Object
Dim config As String
Set msg = CreateObject("CDO.Message")
config = "http://schemas.microsoft.com/cdo/configuration/"
With msg
.To = Forms!Info!Email
.From = "******@mail.ru"
.Subject = Forms!Info!Tema
.HTMLBody = Forms!Info!Info
With .Configuration.Fields
.Item(config & "sendusing") = 2
.Item(config & "smtpserver") = "smtp.mail.ru"
.Item(config & "smtpauthenticate") = 1
.Item(config & "smtpserverport") = 465
.Item(config & "sendusername") = "******@mail.ru"
.Item(config & "sendpassword") = "******"
.Item(config & "smtpusessl") = True
.Item(config & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With
Set msg = Nothing
End Function


В поле Info я формирую текст в формате HTML (см. первый пост). Как мне в этот текст вставить значения полей ИМЯ, СУММА и ДАТА?
С функцией Replace не работал пока, если можно напишите подробнее, лучше с примером. Спасибо.
...
Рейтинг: 0 / 0
02.05.2019, 19:46
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809340
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrВ поле Info я формирую текст в формате HTML (см. первый пост).
В первом посте ничего конкретного не указано.
Если я правильно понял , то что Вы хотите , >>>>
wladimirrrВместо ИМЯ, СУММА, ДАТА мне надо вставить данные из соответствующих полей формы. Как их туда приклеить? >>>> , то значения ИМЯ, СУММА, ДАТА Вы передаете как аргументы в функцию , а HTML код формируете здесь же в функции , и вместо значений вставляете переменные переданные как параметры в функцию.
Как то так наверное . :)

P.S
В скрипте PHP это выглядит примерно так .
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
                        $order_details=Orderdetail::where('order_id',$order_id)->get();	
			
			// Send Orders Email
			
			$to= $customer->email;
			$subject= "Uzsakymas Nr. :" . $order->order_number ;
				
			$headers="Mime-Version: 1.0\r\nContent-Type: text/html; 
			charset=utf-8\r\nFrom: email@email";
	 	
			$message= "Uzsakymas Nr. : " . $order->order_number . "<br>";
			$message .=  "Vardas : " . $customer->first_name . "<br>";
			$message .=   "Pavarde : " . $customer->last_name . "<br>";
			$message .=  "El.pastas : " . $customer->email . "<br>";
			$message .=   "Mob.telefonas: " . $customer->mob_phone . "<br>";
			$message .=   "Adresas : " . $customer->address .  " , " .
			$customer->city_id . " , " . $customer->post_code . "<br>" ;
	 	                             
			$message .="<table <table border=1px cellspacing=1 width=800px>";	
			$message .=   "<tr>" ;
			$message .=    "<th>Prekiu pavadinimas</th>";
			$message .=    "<th>Kiekis</th>";
			$message .=    "<th>Kaina</th>";
			$message .=    "<th>Is viso</th>";
				
			foreach($order_details as $value){
				$message .=  "<tr>";
				$message .= 	"<td>" . $value->product_name . "</td>";
				$message .= 	"<td align=center>" . $value->quantity . "</td>";
				$message .= 	"<td align=right>" . $value->price . "</td>";
				$message .= 	"<td align=right>" .  $value->quantity*$value->price . "</td>";
				$message .=  "</tr>";
			}
			$message .= "</table>";

			$message .= "<table width=800px>";
			$message .=  "<tr>";
			$message .= "<td align=right style=\"font-weight:bolder\"> Is viso : " 
			. $order->total . " &euro;  </td>";
			$message .=  "</tr>";
			$message .=  "<tr>";
			$message .= "<td align=right style=\"font-weight:bolder\">PVM ( 21% ) : " 
			. $order->tax_amount . " &euro; </td>";
			$message .=  "</tr>";
			$message .=  "<tr>";
			$message .= "<td align=right style=\"font-weight:bolder\">Kelioniu islaidos : "
			. $order->shipping_amount . " &euro;</td>";
			$message .=  "</tr>";
			$message .=  "<tr>";
			$message .= "<td align=right><span style=\"font-weight:bolder\">Is viso moketi : "
			. ($order->total_amount + $order->shipping_amount)  . " &euro;</span></td>";
			$message .=  "</tr>";
			$message .= "</table>";
				      
			mail($to,$subject,$message,$headers);
	 	        
			//$to='email@email';
			$to='email@email';		  
			mail($to,$subject,$message,$headers);			
			
			//End Send Email

...
Рейтинг: 0 / 0
02.05.2019, 20:15
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809341
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrr, Под понятием функция подразумевается Function SendEmail4() , надеюсь Вы догадались . :))
P.S
В приведенном примере в коде HTML используется таблица , я выложил навсякий случай , может Вам подойдет.
...
Рейтинг: 0 / 0
02.05.2019, 20:21
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809355
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
DarkMan, я предполагал, что HTML код формируется не в функции, а в поле Info, как шаблон. А значения ИМЯ, СУММА и ДАТА можно передать как аргументы в этот код HTML (в шаблон). Не обладая глубокими познаниями в программировании, я могу ошибаться.
Если это невозможно, то как можно решить эту задачу? Прикладываю пример бд.
...
Рейтинг: 0 / 0
02.05.2019, 21:42
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809395
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrDarkMan, я предполагал, что HTML код формируется не в функции, а в поле Info, как шаблон. А значения ИМЯ, СУММА и ДАТА можно передать как аргументы в этот код HTML (в шаблон). Не обладая глубокими познаниями в программировании, я могу ошибаться.
Если это невозможно, то как можно решить эту задачу?
В Acces возможно Все , ну или почти все !
Посмотрел Вашу базу . Мое мнение .
1. Вы что ? На каждого пользователя в таблице инфо собираетесь хранить шаблон? 1 000 000 пользователей , и
1 000 000 шаблонов? Т.е дублирование данных ?
2. Как Вы собираетесь этот шаблон засунуть в VBA , в коде HTML есть открывающие и закрывающие теги , а также косая черта и так далее.
Если Вы в таком виде передадите его в VBA , то скорее всего Вы получите ошибку.
3. Вам нужно отредактировать шаблон , чтобы в письме было все красиво , для этого в HTML есть стили CSS .
В приведенном моем примере я Вам написал , что используется таблица , а в ней применены некоторые стили.
Посмотрите внимательно пример . Вы каждый раз в поле формы собираетесь редактировать шаблон????
4. Мое мнение . В Вашу фукцию в качестве аргументов из поля формы Вы передаете только необходимые
данные , ну или ID клиента ,
а в функции используя эти данные или ID Вы делаете запрос к базе данных и вытягиваете вси информацию по клиенту ,
как в моем примере по ID заказа я получаю информацию о заказе. И здесь же в функции я формирую текст
письма в формате HTML и вставляю туда необходимые данные .
5.Это мое мнение , может у кого то есть другое , пусть они Вам подскажут.
6.Удачи в нашем не леХком труде .
...
Рейтинг: 0 / 0
03.05.2019, 08:10
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809587
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
DarkManwladimirrrDarkMan, я предполагал, что HTML код формируется не в функции, а в поле Info, как шаблон. А значения ИМЯ, СУММА и ДАТА можно передать как аргументы в этот код HTML (в шаблон). Не обладая глубокими познаниями в программировании, я могу ошибаться.
Если это невозможно, то как можно решить эту задачу?
В Acces возможно Все , ну или почти все !
Посмотрел Вашу базу . Мое мнение .
1. Вы что ? На каждого пользователя в таблице инфо собираетесь хранить шаблон? 1 000 000 пользователей , и
1 000 000 шаблонов? Т.е дублирование данных ?
Эта база условная для выработки решения. Реальная баз другая.
2. Как Вы собираетесь этот шаблон засунуть в VBA , в коде HTML есть открывающие и закрывающие теги , а также косая черта и так далее.
Я именно это и хочу узнать, можно так или нет. Если нельзя, то как лучше сделать.
Если Вы в таком виде передадите его в VBA , то скорее всего Вы получите ошибку.
3. Вам нужно отредактировать шаблон , чтобы в письме было все красиво , для этого в HTML есть стили CSS .
В приведенном моем примере я Вам написал , что используется таблица , а в ней применены некоторые стили.
Посмотрите внимательно пример . Вы каждый раз в поле формы собираетесь редактировать шаблон????
Нет, шаблон должен быть один и тот же. В него нужно подставлять данные из таблицы (формы).
4. Мое мнение . В Вашу фукцию в качестве аргументов из поля формы Вы передаете только необходимые
данные , ну или ID клиента ,
а в функции используя эти данные или ID Вы делаете запрос к базе данных и вытягиваете вси информацию по клиенту ,
как в моем примере по ID заказа я получаю информацию о заказе. И здесь же в функции я формирую текст
письма в формате HTML и вставляю туда необходимые данные .
Для меня это сложно, могли бы Вы сделать это на моем примере?
...
Рейтинг: 0 / 0
03.05.2019, 21:57
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809685
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrДля меня это сложно, могли бы Вы сделать это на моем примере?
Я уже вроде как все подробно описал выше . Вам только стоит определиться что для Вас удобнее , или передавать все параметры в функцию , или передать только ID клиента , а запрос к базе данных и получение всех данных пользователя делать уже непосредственно в этой функции , или создать отдельную функцию , а в этой вызывать.
Сделать полностью на Вашем примере я не могу , так как уже почти 3 года не работаю в VBA и немного подзабыл синтаксис. Я Вам выкладывал пример в PHP , Вы можете на основе его подогнать под себя . Я могу примерно подредактировать Вашу функцию , но за синтаксис я ответственности не несу . Там будет только логика. :))
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
 Function SendEmail4(client_ID as integer)

 Dim db As Database
 Set db = CurrentDb()
 Dim Rs As DAO.Recordset
 Dim strSQL as string 
 Dim MsgHtml as string
 Dim Name as  string

 strSQL="Select * Ftom tablica Where ID=" & client_ID

 Set Rs = db.OpenRecordset(strSQL)

 Name=Rs("Поле таблицы имя") 'присваиваем значение переменной из поля таблицы

 MsgHtml ="Здесь Вы вставляете код HTML , и  вставляете данные из Recordset которые получите из таблицы "

Dim msg As Object
Dim config As String
Set msg = CreateObject("CDO.Message")
config = "http://schemas.microsoft.com/cdo/configuration/"
With msg
.To = Forms!Info!Email
.From = "******@mail.ru"
.Subject = Forms!Info!Tema
.HTMLBody = MsgHtml 
With .Configuration.Fields
.Item(config & "sendusing") = 2
.Item(config & "smtpserver") = "smtp.mail.ru"
.Item(config & "smtpauthenticate") = 1
.Item(config & "smtpserverport") = 465
.Item(config & "sendusername") = "******@mail.ru"
.Item(config & "sendpassword") = "******"
.Item(config & "smtpusessl") = True
.Item(config & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With

Set Rs =  Nothing
Set msg = Nothing

End Function



Логика будет примерно такая . При нажатии кнопки в форме вызываете эту функцию в качестве параметра передаете в функцию ID клиента . В функции Вы делаете запрос к базе данных для получение данных из таблицы для этого клиента . Открываете RecordSet . Теперь в коде HTML Вы можете вставлять необходимые Вам данные из таблицы , такие поля как Имя,Фамилия сумма долга и т.д. Данные из RecordSet можно присваивать переменным,пример переменная Name, или вставлять переменную Rs("Поле таблицы") непосредственно в код HTML .
Ну и естесственно Вам нужно разобраться с синтаксисом . Здесь я не помощник . Пример из PHP я Вам привел Выше , в нем переменные со знаком $ . На основе того примера можете сделать свой . Если Вы один раз сделаете шаблон - функцию рабочего примера . То потом не будет никаких проблем . В функцию передаете ID клиента и отсылаете ему сообщение . Пробуйте дерзайте , с синтаксисом акцессники Вам помогут . Они добрые.
Удачи.
...
Рейтинг: 0 / 0
04.05.2019, 12:36
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809704
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrДля меня это сложно, могли бы Вы сделать это на моем примере?
Ну вот вкратце накидал Вам пример в Вашей базе данных . E-mail на моем компе не отправляется т.к там нужно делать настройки , а мне конечно лень . Я как всегда набросал Вам логику . Надеюсь дальше разберетесь .
1.Поубирайте нафинг поля подстановок из таблиц и навсегда их забудьте.
2.Поубирайте нафинг из базы данных названия контролов и полей базы данных кирилицей и навсегда их забудьте.
P.S
Прикладываю пример Вашей базы , нажмите в форме на кнопку , и полычите MsgBox
Ну начало Вам есть . А далее уж сударь дерзайте сами.
Вот Ваш код
 

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
 Private Sub Command18_Click()
   Call SendEmail4(Me.IDinfo)
 End Sub

 Function SendEmail4(client_ID As Integer)

 Dim db As DAO.Database
 Set db = CurrentDb()
 Dim Rs As DAO.Recordset
 Dim strSQL As String
 Dim MsgHtml As String
 
 'strSQL = "Select * From Info Where IDinfo=" & client_ID
 strSQL = "SELECT Info.IDinfo, Info.IDcontact, Contact.Имя, Contact.Email, Info.Tema, Info.Info, Info.Сумма, Info.Дата " _
       & "FROM Contact INNER JOIN Info ON Contact.IDcontact = Info.IDcontact " _
       & "Where Info.IDinfo=" & client_ID

 Set Rs = db.OpenRecordset(strSQL)
 
 MsgHtml = "<p> Уважаемый <strong> " & Rs("Имя") & "</strong>!</p>"
 MsgHtml = MsgHtml & "У Вас есть задолженность перед банком в сумме - " & Rs("Сумма") & " рублей"
 
 MsgBox (MsgHtml)

Dim msg As Object
Dim config As String

Set msg = CreateObject("CDO.Message")
config = "http://schemas.microsoft.com/cdo/configuration/"

With msg
.To = Forms!Info!Email
.FROM = "******@mail.ru"
.Subject = Forms!Info!Tema
.HTMLBody = Forms!Info!Info
With .Configuration.Fields
.Item(config & "sendusing") = 2
.Item(config & "smtpserver") = "smtp.mail.ru"
.Item(config & "smtpauthenticate") = 1
.Item(config & "smtpserverport") = 465
.Item(config & "sendusername") = "******@mail.ru"
.Item(config & "sendpassword") = "******"
.Item(config & "smtpusessl") = True
.Item(config & "smtpconnectiontimeout") = 60
.Update
End With

.send
End With

Set Rs = Nothing
Set msg = Nothing
End Function


...
Рейтинг: 0 / 0
04.05.2019, 14:55
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809723
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrr, Немного подправил базу . Проверил , код рабочий . С моего компа сообщения отправляются . Добавил в Ваш модуль кодировку UTF-8 , так как в первом варианте вместо кирилицы отправлялись ???????? . Установите правильно настройки сервера и работайте. Вот скрин с моего компа .
...
Рейтинг: 0 / 0
04.05.2019, 16:10
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809724
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrr, А вот база
...
Рейтинг: 0 / 0
04.05.2019, 16:10
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809775
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
DarkMan, огромное спасибо! Все работает хорошо. У меня даже без кодировки все отправлялось. Буду тестировать дальше. Еще раз Большое Спасибо!
...
Рейтинг: 0 / 0
04.05.2019, 20:25
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809777
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
DarkMan, а если в письмо надо вставить еще рисунок (логотип), как его присоединить?
...
Рейтинг: 0 / 0
04.05.2019, 20:31
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809779
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrDarkMan, огромное спасибо! Все работает хорошо. У меня даже без кодировки все отправлялось. Буду тестировать дальше. Еще раз Большое Спасибо! Это до поры до времени , кодировку лучше таки использовать.
wladimirrrDarkMan, а если в письмо надо вставить еще рисунок (логотип), как его присоединить?
Я сечас не за компом . Попробуйте вставить в коде HTML <img src="здесь прописываете путь к файлу"/> .
...
Рейтинг: 0 / 0
04.05.2019, 20:53
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809821
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrDarkMan, а если в письмо надо вставить еще рисунок (логотип), как его присоединить?
Вставить изображение в код HTML на скорую руку не получилось. Немного добавил кода в процедуру .
Файл можно приатачить. Вот код
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
Function SendEmail4(client_ID As Integer)

 Dim db As DAO.Database
 Set db = CurrentDb()
 Dim Rs As DAO.Recordset
 Dim strSQL As String
 Dim MsgHtml As String
 
 'strSQL = "Select * From Info Where IDinfo=" & client_ID
 strSQL = "SELECT Info.IDinfo, Info.IDcontact, Contact.Имя, Contact.Email, Info.Tema, Info.Info, Info.Сумма, Info.Дата " _
       & "FROM Contact INNER JOIN Info ON Contact.IDcontact = Info.IDcontact " _
       & "Where Info.IDinfo=" & client_ID

 Set Rs = db.OpenRecordset(strSQL)
 
 MsgHtml = "<p> Уважаемый <strong> " & Rs("Имя") & "</strong>!</p>"
 MsgHtml = MsgHtml & "У Вас есть задолженность перед банком в сумме - " & Rs("Сумма") & " рублей "
 MsgHtml = MsgHtml & "<p> Об оплате , просьба сoобщить на e-mail - " & Rs("Email") & " не позднее " & Rs("Дата") & "  </p>"

Dim msg As Object
Dim config As String

Set msg = CreateObject("CDO.Message")
config = "http://schemas.microsoft.com/cdo/configuration/"

With msg
.To = "********@mail.ru"
.FROM = "********@mail.ru"
.Subject = Rs("Tema")
.AddAttachment ("C:\Users\UserName\Documents\image\logo.png") 'Здесь прописываем путь к файлу
.HTMLBody = MsgHtml
.HTMLBodyPart.Charset = "utf-8"
.TextBodyPart.Charset = "utf-8"
.BodyPart.Charset = "utf-8"
   
With .Configuration.Fields
.Item(config & "sendusing") = 2
.Item(config & "smtpserver") = "smtp.mail.ru"
.Item(config & "smtpauthenticate") = 1
.Item(config & "smtpserverport") = 25
.Item(config & "sendusername") = "username"
.Item(config & "sendpassword") = "password"
.Item(config & "smtpusessl") = False
.Item(config & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With

Set Rs = Nothing
Set msg = Nothing
End Function

Set Rs = Nothing
Set msg = Nothing
End Function

...
Рейтинг: 0 / 0
04.05.2019, 23:45
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809826
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrDarkMan, а если в письмо надо вставить еще рисунок (логотип), как его присоединить?
В функции добавилось вот это . Это путь к папке Documents->image . Вместо UserName вставьте свое имя User . Надеюсь разберетесь.
Код: vbnet
1.
 .AddAttachment ("C:\Users\UserName\Documents\image\logo.png") 'Здесь прописываем путь к файлу
...
Рейтинг: 0 / 0
04.05.2019, 23:48
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809831
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
DarkManwladimirrrDarkMan, а если в письмо надо вставить еще рисунок (логотип), как его присоединить?
В функции добавилось вот это . Это путь к папке Documents->image . Вместо UserName вставьте свое имя User . Надеюсь разберетесь.
Код: vbnet
1.
 .AddAttachment ("C:\Users\UserName\Documents\image\logo.png") 'Здесь прописываем путь к файлу


Это получается вложение к письму, а мне надо вставить рисунок в тело письма.
...
Рейтинг: 0 / 0
05.05.2019, 00:30
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809925
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrЭто получается вложение к письму, а мне надо вставить рисунок в тело письма.
wladimirrr,Иногда полезно и погуглить , а не только ждать готовых решений. :))
Ловите
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
Function SendEmail4(client_ID As Integer)

 Dim db As DAO.Database
 Set db = CurrentDb()
 Dim Rs As DAO.Recordset
 Dim strSQL As String
 Dim MsgHtml As String
 
 strSQL = "SELECT Info.IDinfo, Info.IDcontact, Contact.&#200;&#236;&#255;, Contact.Email, Info.Tema, Info.Info, Info.&#209;&#243;&#236;&#236;&#224;, Info.&#196;&#224;&#242;&#224; " _
       & "FROM Contact INNER JOIN Info ON Contact.IDcontact = Info.IDcontact " _
       & "Where Info.IDinfo=" & client_ID

 Set Rs = db.OpenRecordset(strSQL)
 
 MsgHtml = "<img src=""cid:logo.png""/><p> &#211;&#226;&#224;&#230;&#224;&#229;&#236;&#251;&#233; <strong> " & Rs("&#200;&#236;&#255;") & "</strong>!</p>"
 MsgHtml = MsgHtml & "&#211; &#194;&#224;&#241; &#229;&#241;&#242;&#252; &#231;&#224;&#228;&#238;&#235;&#230;&#229;&#237;&#237;&#238;&#241;&#242;&#252; &#239;&#229;&#240;&#229;&#228; &#225;&#224;&#237;&#234;&#238;&#236; &#226; &#241;&#243;&#236;&#236;&#229; - " & Rs("&#209;&#243;&#236;&#236;&#224;") & " &#240;&#243;&#225;&#235;&#229;&#233; "
 MsgHtml = MsgHtml & "<p> &#206;&#225; &#238;&#239;&#235;&#224;&#242;&#229; , &#239;&#240;&#238;&#241;&#252;&#225;&#224; &#241;o&#238;&#225;&#249;&#232;&#242;&#252; &#237;&#224; e-mail - " & Rs("Email") & " &#237;&#229; &#239;&#238;&#231;&#228;&#237;&#229;&#229; " & Rs("&#196;&#224;&#242;&#224;") & "  </p>"
 


Dim msg As Object
Dim config As String

Set msg = CreateObject("CDO.Message")
config = "http://schemas.microsoft.com/cdo/configuration/"

With msg
.To = "*****@list.ru"
.FROM = "*****@list.ru"
.Subject = Rs("Tema")

Set objbp = msg.AddRelatedBodyPart("C:/Users/Volodia/Documents/image/logo.png", "logo.png", 1)
objbp.Fields.Item("urn:schemas:mailheader:Content-ID") = "<logo.png>"
objbp.Fields.Update
 
.HTMLBody = MsgHtml
.HTMLBodyPart.Charset = "utf-8"
.TextBodyPart.Charset = "utf-8"
.BodyPart.Charset = "utf-8"
   
With .Configuration.Fields
.Item(config & "sendusing") = 2
.Item(config & "smtpserver") = "smtp.mail.ru"
.Item(config & "smtpauthenticate") = 1
.Item(config & "smtpserverport") = 25
.Item(config & "sendusername") = "username"
.Item(config & "sendpassword") = "password"
.Item(config & "smtpusessl") = False
.Item(config & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With

...
Рейтинг: 0 / 0
05.05.2019, 15:07
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809927
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrr, Блин. Немножко copy/paste подвело.
Ловите .
 

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
Function SendEmail4(client_ID As Integer)

 Dim db As DAO.Database
 Set db = CurrentDb()
 Dim Rs As DAO.Recordset
 Dim strSQL As String
 Dim MsgHtml As String
 
 strSQL = "SELECT Info.IDinfo, Info.IDcontact, Contact.Имя, Contact.Email, Info.Tema, Info.Info, Info.Сумма, Info.Дата " _
       & "FROM Contact INNER JOIN Info ON Contact.IDcontact = Info.IDcontact " _
       & "Where Info.IDinfo=" & client_ID

 Set Rs = db.OpenRecordset(strSQL)
 
 MsgHtml = "<img src=""cid:logo.png""/><p> Уважаемый <strong> " & Rs("Имя") & "</strong>!</p>"
 MsgHtml = MsgHtml & "У Вас есть задолженность перед банком в сумме - " & Rs("Сумма") & " рублей "
 MsgHtml = MsgHtml & "<p> Об оплате , просьба сoобщить на e-mail - " & Rs("Email") & " не позднее " & Rs("Дата") & "  </p>"
 


Dim msg As Object
Dim config As String

Set msg = CreateObject("CDO.Message")
config = "http://schemas.microsoft.com/cdo/configuration/"

With msg
.To = "*****@list.ru"
.FROM = "*****@list.ru"
.Subject = Rs("Tema")

Set objbp = msg.AddRelatedBodyPart("C:/Users/Volodia/Documents/image/logo.png", "logo.png", 1)
objbp.Fields.Item("urn:schemas:mailheader:Content-ID") = "<logo.png>"
objbp.Fields.Update
 
.HTMLBody = MsgHtml
.HTMLBodyPart.Charset = "utf-8"
.TextBodyPart.Charset = "utf-8"
.BodyPart.Charset = "utf-8"
   
With .Configuration.Fields
.Item(config & "sendusing") = 2
.Item(config & "smtpserver") = "smtp.mail.ru"
.Item(config & "smtpauthenticate") = 1
.Item(config & "smtpserverport") = 25
.Item(config & "sendusername") = "username"
.Item(config & "sendpassword") = "password"
.Item(config & "smtpusessl") = False
.Item(config & "smtpconnectiontimeout") = 60
.Update
End With
.send
End With


...
Рейтинг: 0 / 0
05.05.2019, 15:11
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39809959
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
DarkMan, благодарю за помощь и терпение!)
Гуглю я постоянно, не всегда могу разобраться самостоятельно, не хватает базовых знаний.
Еще раз большое спасибо, буду встраивать в реальную базу.
...
Рейтинг: 0 / 0
05.05.2019, 19:35
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39810002
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrЕще раз большое спасибо, буду встраивать в реальную базу.
Пжлст . Приходите еще .
P.S Удачи в нашем нелеХком труде.
...
Рейтинг: 0 / 0
06.05.2019, 07:43
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39810005
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrr, Да, забыл . В своей функции добавьте эту строчку кода , я вчера в спешке упустил . И обязательно в VBA ,
в настройках установите галочку Обязательное обьявление переменных ( Require Variable Declaration ) .
Ну и помните про поля подстановок в таблицах и кирилицу в контролах. Удачи .
Код: vbnet
1.
Dim objbp As Object
...
Рейтинг: 0 / 0
06.05.2019, 08:32
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820484
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
DarkManwladimirrrЕще раз большое спасибо, буду встраивать в реальную базу.
Пжлст . Приходите еще .
P.S Удачи в нашем нелеХком труде.
DarkMan, нужна Ваша помощь. Что-то у меня запрос не хочет открываться. "Where" не хочет понимать. Что я не так делаю?
...
Рейтинг: 0 / 0
30.05.2019, 21:14
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820528
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
wladimirrr,

добавьте пробелы перед FROM и WHERE
...
Рейтинг: 0 / 0
31.05.2019, 06:44
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820530
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
wladimirrrDarkMan, нужна Ваша помощь.
ПЕНСИОНЕРКАwladimirrr,

добавьте пробелы перед FROM и WHERE

DarkMan==ПЕНСИОНЕРКА

Никогда не подумал бы...
...
Рейтинг: 0 / 0
31.05.2019, 07:28
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820534
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
ПанургНикогда не подумал бы...
А какая разница кто оказывает помощь ? Или нужно только тому к кому обращаются???
Панург
Код: php
1.
DarkMan==ПЕНСИОНЕРКА


Лучше уж так
Код: php
1.
DarkMan===ПЕНСИОНЕРКА
...
Рейтинг: 0 / 0
31.05.2019, 07:47
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820540
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrЧто-то у меня запрос не хочет открываться. "Where" не хочет понимать. Что я не так делаю?
А ваще , при возникновении ошибки , ставите точку останова Breackpoint , а затем нажимая клавишу F8 делаете пошаговую отладку кода.
Если в Вашем случае , когда перейдете на строку Set rs , и наведете мышку на переменную , то Вам покажет все , что содержит переменная , и тогда Вы увидите есть пробелы или нет.
Можно так же нажать F7 и в окне immediate написать ?strSQL , и Вы так же увидите , что содержит переменная. Учитесь самостоятельно анализировать код, не все же время обращаться на форумы.
P.S книШки читать нужно. :))
...
Рейтинг: 0 / 0
31.05.2019, 07:56
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820543
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
DarkManА какая разница кто оказывает помощь ? Или нужно только тому к кому обращаются???Тут явное персональное обращение к конкретному мемберу. А разница? Да вообще никакой (тем более мне). Умиляет.

DarkManЛучше уж такЧем лучше?
...
Рейтинг: 0 / 0
31.05.2019, 08:00
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820545
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
ПанургЧем лучше?

Оператор эквивалентности
...
Рейтинг: 0 / 0
31.05.2019, 08:09
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820548
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
DarkMan Оператор эквивалентности Спасибо, но я не про эквивалентность, а про равенство.
...
Рейтинг: 0 / 0
31.05.2019, 08:22
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820549
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
ПанургСпасибо, но я не про эквивалентность, а про равенство.
Ну если расценивать DarkMen и ПЕНСИОНЕРКА не как строки , а как обьекты , то они равны , оба мемберы.
А вот с точки зрения эквивалентности , то у них разный пол. :))
...
Рейтинг: 0 / 0
31.05.2019, 08:32
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820669
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
ПЕНСИОНЕРКАwladimirrr,

добавьте пробелы перед FROM и WHERE
Не помогает((
...
Рейтинг: 0 / 0
31.05.2019, 12:01
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820676
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
С круглыми скобками проблема, полагаю.
...
Рейтинг: 0 / 0
31.05.2019, 12:13
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820680
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
wladimirrr,

Вставляйте код текстом, тем более на картинке часть кода обрезана. И какую ошибку дает?
...
Рейтинг: 0 / 0
31.05.2019, 12:16
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820681
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
DarkManwladimirrrЧто-то у меня запрос не хочет открываться. "Where" не хочет понимать. Что я не так делаю?
А ваще , при возникновении ошибки , ставите точку останова Breackpoint , а затем нажимая клавишу F8 делаете пошаговую отладку кода.
Если в Вашем случае , когда перейдете на строку Set rs , и наведете мышку на переменную , то Вам покажет все , что содержит переменная , и тогда Вы увидите есть пробелы или нет.
Можно так же нажать F7 и в окне immediate написать ?strSQL , и Вы так же увидите , что содержит переменная. Учитесь самостоятельно анализировать код, не все же время обращаться на форумы.
P.S книШки читать нужно. :))
Вот, что содержит переменная. Что здесь не так в синтаксисе?
Код: vbnet
1.
SELECT Applications.Deal_ID, Brokers.First_name, Companies.Legal_B_Name, Companies.DBA, Workers.Name_worker, Workers.Email, Workers.Direct_phone, Workers.Ext FROM  ((Applications INNER JOIN Brokers ON Applications.Broker = Brokers.IDbroker) INNER JOIN Companies ON Applications.Company_name = Companies.IDcompany) INNER JOIN Workers ON Applications.Worker = Workers.IDworker;WHERE Applications.Deal_ID =77304;
...
Рейтинг: 0 / 0
31.05.2019, 12:17
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820683
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: sql
1.
;WHERE
...
Рейтинг: 0 / 0
31.05.2019, 12:19
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820686
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
MrShinwladimirrr,

Вставляйте код текстом, тем более на картинке часть кода обрезана. И какую ошибку дает?
Без Where запрос работает (выдает данные 1-й записи).
Ошибка такая:
...
Рейтинг: 0 / 0
31.05.2019, 12:22
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820690
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Konst_One
Код: sql
1.
;WHERE


Вот оно что оказалось! Убрал ; и добавил пробел, заработало!
Большое спасибо!
...
Рейтинг: 0 / 0
31.05.2019, 12:27
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820691
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
wladimirrr,

SELECT Applications.Deal_ID, Brokers.First_name, Companies.Legal_B_Name, Companies.DBA,
Workers.Name_worker, Workers.Email, Workers.Direct_phone, Workers.Ext
FROM ((Applications
INNER JOIN Brokers
ON Applications.Broker = Brokers.IDbroker)
INNER JOIN Companies
ON Applications.Company_name = Companies.IDcompany)
INNER JOIN Workers
ON Applications.Worker = Workers.IDworker;WHERE Applications.Deal_ID =77304;

почему перед WHERE --точка с запятой
...
Рейтинг: 0 / 0
31.05.2019, 12:28
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39820697
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
ПЕНСИОНЕРКАwladimirrr,

SELECT Applications.Deal_ID, Brokers.First_name, Companies.Legal_B_Name, Companies.DBA,
Workers.Name_worker, Workers.Email, Workers.Direct_phone, Workers.Ext
FROM ((Applications
INNER JOIN Brokers
ON Applications.Broker = Brokers.IDbroker)
INNER JOIN Companies
ON Applications.Company_name = Companies.IDcompany)
INNER JOIN Workers
ON Applications.Worker = Workers.IDworker;WHERE Applications.Deal_ID =77304;

почему перед WHERE --точка с запятой
Да, уже разобрались, спасибо!
...
Рейтинг: 0 / 0
31.05.2019, 12:37
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851385
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
DarkMan, а если у меня в таблице Email имеет тип "гиперссылка", а не просто "текст", то как его прописать в коде в строку ".To"?
В таком виде не получается.
Код: vbnet
1.
2.
3.
4.
With msg
.To = Forms!Info!Email
.From = "******@mail.ru"
.Subject = Forms!Info!Tema
...
Рейтинг: 0 / 0
20.08.2019, 01:06
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851395
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
wladimirrrВ таком виде не получается.

А должно получаться.... значит дело в чем-то другом...
...
Рейтинг: 0 / 0
20.08.2019, 06:37
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851397
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Ой, и правда может не работать...
Надо достать из гиперссылки стринг адреса.
я бы в отладчике перед выполнением команды посмотрел свойства Forms!Info!Email, нашел там стринг адреса и как к нему обратится...
...
Рейтинг: 0 / 0
20.08.2019, 06:41
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851399
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Код: vbnet
1.
pism = pism & " Приложение " & rsn!np & " " & "<a href='" & rsn!doc & "'> " & gtn(rsn!doc) & "</a> " & vbCrLf


Такая строка, присвоенная htmlbody сообщения, вставляет гиперссылки в текст письма(на всякий случай)
...
Рейтинг: 0 / 0
20.08.2019, 06:45
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851441
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Serg197311Ой, и правда может не работать...
Надо достать из гиперссылки стринг адреса.
я бы в отладчике перед выполнением команды посмотрел свойства Forms!Info!Email, нашел там стринг адреса и как к нему обратится...
Да, вопрос именно в этом. Как достать адрес из гиперссылки. Гиперссылка выглядит так: bla***@mail.ru#mailto:bla***@mail.ru#
Как из нее вытащить значение bla***@mail.ru?
...
Рейтинг: 0 / 0
20.08.2019, 10:19
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851465
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
wladimirrr,

Hyperlink
...
Рейтинг: 0 / 0
20.08.2019, 10:56
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851479
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Панургwladimirrr,

Hyperlink
Да, смотрел эту тему, там все про адреса файлов и объектов. Про почтовый адрес не нашел. Поэтому прошу помощи у профессионалов. Если можно, конкретнее.
...
Рейтинг: 0 / 0
20.08.2019, 11:15
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851481
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
wladimirrrсмотрел эту темукакую?
wladimirrrЕсли можно, конкретнее.
...
Рейтинг: 0 / 0
20.08.2019, 11:18
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851484
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
wladimirrr,

может так будет понятней - Объект Hyperlink (Access)
...
Рейтинг: 0 / 0
20.08.2019, 11:27
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851488
Art_Serge
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Art_Serge
Гость
Коллеги Вы что творите ?! Челу лень открыть дебаг, посмотреть строку SQL, закопипастить ее и проверить на простейший синтаксис. Вы и так всю задачу решили походу.
...
Рейтинг: 0 / 0
20.08.2019, 11:33
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851509
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Art_SergeКоллеги Вы что творите ?! Челу лень открыть дебаг, посмотреть строку SQL, закопипастить ее и проверить на простейший синтаксис. Вы и так всю задачу решили походу.
Да не лень мне. Если бы знал и умел это делать не обращался бы к "профессионалам". Я не профессионал, изучаю, ищу, учусь на примерах. Не хотите помочь, Ваше дело.
...
Рейтинг: 0 / 0
20.08.2019, 12:05
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851518
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Панургwladimirrr,

может так будет понятней - Объект Hyperlink (Access)
Спасибо, прочитал, что есть свойство гиперссылки EmailSubject. Как его задать правильно? Мой код не работает, синтаксис, наверняка, неправильный.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim msg As Object
Dim config As String
Dim Em As String
Emailto = Forms!Merchant!informCompany.Form!Email.EmailSubject

Set msg = CreateObject("CDO.Message")
config = "http://schemas.microsoft.com/cdo/configuration/"

With msg
.To = Emailto
.FROM = "app@premier****.com"
.Subject = "Code"
...
Рейтинг: 0 / 0
20.08.2019, 12:14
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851521
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Уточненный код
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim msg As Object
Dim config As String
Dim Emailto As String
Emailto = Forms!Merchant!informCompany.Form!Email.EmailSubject

Set msg = CreateObject("CDO.Message")
config = "http://schemas.microsoft.com/cdo/configuration/"

With msg
.To = Emailto
.FROM = "app@premier***.com"
.Subject = "Code"
...
Рейтинг: 0 / 0
20.08.2019, 12:16
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851524
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
wladimirrrУточненный кодумора !

где-то с пятого раза, в "уточнённом коде" появится End With ... :)
...
Рейтинг: 0 / 0
20.08.2019, 12:19
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851534
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
wladimirrrСпасибо, прочитал, что есть свойство гиперссылки EmailSubject. Как его задать правильно?Subject - это ващето, ТЕМА письма
А то, чего ты так "упорно добиваешься" называется Address :)
...
Рейтинг: 0 / 0
20.08.2019, 12:29
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851538
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
courtА то, чего ты так "упорно добиваешься" называется Address :)ТС - писатель, не читатель.
...
Рейтинг: 0 / 0
20.08.2019, 12:35
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851721
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
wladimirrr, ищете электронную почту в гиперссылке? таки её там нет! проблема думаю в том что у Вас поле имеет соответствующую маску, которая представляет данные в удобоваримом для просмотра виде, но не подходит для почтовых программ - эти данные нужно привести к соответствующему виду. и, кстати, CDO зло.
...
Рейтинг: 0 / 0
20.08.2019, 16:14
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851796
Фотография court
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
court
Участник
aleckoи, кстати, CDO зло.сурово :)

Почему, кстати ?

Т.е. я тоже не сказал бы, что CDO какое-то "фриндли" программисту.
Когда, например, имеешь под рукой МС СКЛ-ный ДБ-мэйл, то, действительно CDO - "тяжеловат"
Но когда ничего этого нет, то какая альтернатива ? :)
...
Рейтинг: 0 / 0
20.08.2019, 17:49
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851816
wladimirrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wladimirrr
Гость
Все просто, я искал именно это:
Код: vbnet
1.
.To = HyperlinkPart(Forms!Merchant!informCompany.Form!Email, 0)


Поле Email у меня в таблице имеет тип Гиперссылка.
...
Рейтинг: 0 / 0
20.08.2019, 19:01
| Ответить | Цитировать | Написать  
Вывод данных из аксесса в тело письма в формате HTML
    #39851832
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
wladimirrrВсе просто, я искал именно это:
Код: vbnet
1.
.To = HyperlinkPart(Forms!Merchant!informCompany.Form!Email, 0)



Поле Email у меня в таблице имеет тип Гиперссылка.
Справились ? Ну и молодец. :))
...
Рейтинг: 0 / 0
20.08.2019, 20:13
| Ответить | Цитировать | Написать  
62 сообщений из 62, показаны все 3 страниц
  все  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вывод данных из аксесса в тело письма в формате HTML
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=45&tid=1610521]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 75ms
get tp. blocked users:
 1ms
others: 309ms
total:  464ms
созд. / загр.: 464ms
x
x
Закрыть


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