Сегодня я разрабатываю пользовательские сообщения.Одна копия хранится в базе данных, а другую копию нужно отправить в указанный почтовый ящик. Я не знаю, поддерживает ли это сервер, информация о сообщении будет отправлена. на электронную почту. Во-первых, должно быть заявление об ошибке. Возобновить далее.
Затем попробуйте возобновить пример jmail:
Дим JMail
Установить JMail=Server.CreateObject(JMail.Message)
Примите решение по экземпляру. Если компонент не установлен успешно, экземпляр не создается:
Если JMail — ничто, тогда
Response.Write не поддерживается.
Еще
Ответ.Напишите поддержку
Конец, если
Остальные компоненты обрабатываются таким же образом, что очень просто.
Лучше всего обрабатывать его в глобальном файле, чтобы вам не приходилось беспокоиться об этом при его использовании.
Лучший способ — поместить генерируемое электронное письмо в таблицу, а затем обсудить его отправку.
Скопируйте код кода следующим образом:
Функция IsObjInstalled(strClassString)
При ошибке Возобновить Далее
IsObjInstalled = Ложь
Ошибка = 0
Димкстестобдж
Установите xTestObj = Server.CreateObject(strClassString)
Если 0 = Ошибка, Тогда IsObjInstalled = Истина
Установить xTestObj = Ничего
Ошибка = 0
Конечная функция
Код решения:
если IsObjInstalled(JMail.Message)=True, то {
если IsObjInstalled(JMail.Message) = True, тогда
SendStat = Jmail(***@vevb.com, сообщение клиента из Интернета, <html><head><meta http-equiv=Content-Type content=text/html; charset=gb2312><title>Сообщение пользователя веб-сайта</title></head><body>Человек, отправивший сообщение: &txtname&<br>Пол: &xingbie&<br>Консалтинговый веб-сайт: &txtweb&<br>Контактная информация: &txttel&<br>Содержимое сообщения :&продолжение ent&<br>IP-адрес:&ipaddress&<br>Время сообщения:&now()&<br><br>Это электронное письмо автоматически отправляется системой, ответ не требуется<!--Script Home www.vevb.com-- ><br ><br></body></html>,GB2312,text/html)
конец, если
}
функция отправки jmail
Скопируйте код кода следующим образом:
' ==========================================
' jmail отправляет электронное письмо
' ==========================================
Функция Jmail(mailTo,mailTopic,mailBody,mailCharset,mailContentType)
'Входные параметры:
' mailTo адрес электронной почты получателя
'mailTopic тема письма
' mailBody тело письма (содержание)
'Набор почтовых символов mailCharset, например GB2312 или US-ASCII
' Формат тела сообщения mailContentType, например text/plain или text/html.
'Возвращаемое значение:
' Строка OK будет возвращена после успешной передачи, в случае неудачи будет возвращено сообщение об ошибке.
'Использование:
' 1) Устанавливаем константу, то есть переменную, начинающуюся с Const
'2) Используйте код, подобный следующему, чтобы отправить сообщение
'Dim SendStat
'SendStat = Jmail([email protected], тестовый Jmail, это тестовое письмо!, GB2312, text/html)
'Response.Write SendStat
'******************Установите константы, необходимые для запуска******************
Dim ConstFromNameCn,ConstFromNameEn,ConstFrom,ConstMailDomain,ConstMailServerUserName,ConstMailServerPassword
ConstFromNameCn = китайское имя отправителя в сети лотереи (используется при отправке электронных писем на китайском языке), например «Чжан Сан».
ConstFromNameEn = bc5’Английское имя отправителя (используется при отправке электронных писем на английском языке), например «zhangsan».
ConstFrom = [email protected]» адрес электронной почты отправителя, например «[email protected]».
ConstMailDomain = адрес smtp-сервера smtp.163.com, например smtp.163.com
ConstMailServerUserName = имя входа в почтовый ящик SMTP-сервера [email protected], например «zhangsan». Обязательно совпадайте с адресом электронной почты отправителя!
ConstMailServerPassword = пароль для входа в почтовый ящик SMTP-сервера www.vevb.com.
'******************Установите константы, необходимые для завершения******************
'--------------------------------Следующее содержимое изменять не нужно-------- -------- ---------------
При ошибке Возобновить Далее
Уменьшить мой Jmail
Установите myJmail = Server.CreateObject(JMail.Message)
myJmail.Logging = Ложная регистрация
myJmail.ISOEncodeHeaders = False'Заголовки почты не используют кодировку ISO-8859-1
myJmail.ContentTransferEncoding = base64'Кодировка почты установлена на base64.
myJmail.AddHeader Priority,3'Добавьте заголовок письма, не меняйте его!
myJmail.AddHeader MSMail-Priority,Normal' Добавляем заголовок письма, не меняем его!
myJmail.AddHeader Mailer,Microsoft Outlook Express 6.00.2800.1437'Добавьте заголовок письма, не меняйте его!
myJmail.AddHeader MimeOLE, произведено Microsoft MimeOLE V6.00.2800.1441 'Добавьте заголовок письма, не меняйте его!
myJmail.Charset = mailCharset
myJmail.ContentType = тип mailContentType
Если UCase(mailCharset) = GB2312 Тогда
myJmail.FromName = ConstFromNameCn
Еще
myJmail.FromName = ConstFromNameEn
Конец, если
myJmail.From = ConstFrom
myJmail.Subject = mailTopic
myJmail.Body = mailBody
myJmail.AddRecipient mailTo
myJmail.MailDomain = ConstMailDomain
myJmail.MailServerUserName = ConstMailServerUserName
myJmail.MailServerPassword = ConstMailServerPassword
myJmail.Send ConstMailDomain
myJmail.Close
Установите myJmail=ничего
Если Ошибка Тогда
Jmail=Ошибка.Описание
Ошиб.Очистить
Еще
Джмейл=ОК
Конец, если
При ошибке Перейти к 0
Конечная функция