Релиб / ASP / Веб-программирование / Отправка почты / Latest Posts

RE: Отправка почты

Vodizzz — Fri, 01 Jun 2007 18:37:53 GMT

А я все написал как описано в FAQ, но выдается ошибка [b]error '8004020e' [/b]
на строке [b].Send [/b]

RE: Отправка почты

Nik-82 — Tue, 22 May 2007 14:01:07 GMT

Спасибо!

RE: Отправка почты

bazile — Tue, 22 May 2007 10:54:37 GMT

Проверяй было ли введено значение в поле и если да, то добаляй его к тексту сообщения:

messageBody = ""
If ""<>Request.Form("textfield1") Then messageBody = messageBody & Request.Form("textfield1")
If ""<>Request.Form("textfield2") Then messageBody = messageBody & Request.Form("textfield2")
.textbody = messageBody

RE: Отправка почты

Nik-82 — Tue, 22 May 2007 08:47:43 GMT

bazile, спасибо! Все прекрасно работает! Только вот вопрос появился: а если количество полей в форме динамически изменяется (т.е. посетитель сайта выбирает что-то - может одну позицию, может 10). Тогда .textbody=request.Form("textfield1") & " " & request.Form("textfield2") не подойдет. Как лучше поступить - функцию писать? Или есть способ проще? Заранее благодарен.

RE: Отправка почты

bazile — Mon, 21 May 2007 18:25:01 GMT

Ну разумеется. Ты же сначала присваиваешь одно значение, а потом "поверх" следующее. Надо их склеить:

.textbody=request.Form("textfield1") & " " & request.Form("textfield2")

Если нужно вставить перевод строки, то используй константу vbCrLf.

.textbody=request.Form("textfield1") & vbCrLf & request.Form("textfield2")

RE: Отправка почты

Nik-82 — Mon, 21 May 2007 17:25:31 GMT

Гм... Как это сделать? Если у меня в форме 2 поля textfield1 и textfield2 и если я вызову

.textbody=request.Form("textfield1")
.textbody=request.Form("textfield2"),

то приходит только значение второго поля

RE: Отправка почты

bazile — Mon, 21 May 2007 14:25:37 GMT

Надо по отдельности к каждому полю формы обращаться.

RE: Отправка почты

Nik-82 — Mon, 21 May 2007 14:14:27 GMT

Полдела сделано. Спасибо! Но мне нужно, чтобы на почту приходило сообщение - то, что видит посетитель на сайте. Т.е. при нажатии на кнопку Submit мне отправилось содержимое формы. Вот код, но что-то в нем не так. Помогите пожалуйста.
<%
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '' cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "name"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "passw"
End With
iMsg.Configuration.Fields.Update
With iMsg
'.Configuration = iConf
.BodyPart.Charset = "windows-1251"
.From = "xxx@mail.ru"
.To = "xxx@bk.ru"
.Subject = "Проверка"
.HtmlBody = Request.Form("form1")
.Send
End With
%>
На странице есть форма form1 с нексколькими полями.

RE: Отправка почты

bazile — Mon, 21 May 2007 12:56:06 GMT

Раз ты хочещь отправлять почту через SMTP сервер на mail.ru, то нужно указать для него логин и пароль. Смотри мой ответ в этой теме. Еще в одном случае аналогичный вопрос поднимался. Человек отправлял письма через mail.ru и ему это помогло.

RE: Отправка почты

Nik-82 — Mon, 21 May 2007 12:33:30 GMT

Что-то не получается...
Я оставляю код как есть, меняю только строки:
...
Const SMTP_SERVER = "SMTP.mail.ru"
...
.From = "xxxxxxx@mail.ru"
.To = "xxxxxxx@bk.ru"
.Subject = "subject"
.TextBody = "textBody"
...

Или что-то неправильно? Сообщение то не приходит...