В настоящее время этот проект требует поставленной доставки электронной почты с использованием ASP, и многие люди говорят, что ASP не имеет такой функции.
На самом деле, я подробно объяснил это в предыдущей статье, но это задача, и основная идея такая же.
Ссылка: Методы реализации задач по времени в ASP
Здесь мы используем компонент Jmail для этого. Содержание электронной почты представляет собой единственную веб -страницу, и он может быть настроен свободно.
Давайте посмотрим на код для отправки поставленной почты:
Кода -копия выглядит следующим образом:
Функция gethttppage (url)
Dim objxml
set objxml = createObject ("msxml2.serverxmlhttp.3.0") 'вызовите компонент xmlhttp, чтобы проверить, поддерживает ли пространство xmlhttp
objxml.open "get", url, ложные «ложные средства для получения веб -кода синхронно понимать, что такое синхронизация? Что такое асинхронное?
objxml.send () 'Send
gethttppage = bbytestobstr (objxml.responsebody) 'возвращает информацию и использует функцию для определения кодирования.
Установите objxml = Nothing'close
Конечная функция
Функция bbytestobstr (тело)
Dim objstream
SET OBJStream = createObject ("AdoDB.Stream") '// Вызов компонента AdoDB.Stream
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write Тело
objstream.position = 0
objstream.type = 2
objstream.charset = "gb2312"
«Преобразовать исходную кодировку UTF-8 по умолчанию в кодировку GB2312, в противном случае вы получите искаженную код, напрямую вызывая веб-страницу с китайскими символами с XMLHTTP.
bbytestobstr = objstream.readtext
objstream.close
установить objstream = ничего
конечная функция
Sub Sendaction (субъект, MailAddress, Tomail, Sender, Content, Fromemail, Fromer, имя пользователя, пароль)
Установить ojmail = createObject ("jmail.message")
ojmail.logging = false
ojmail.silent = true
ojmail.priority = 3
ojmail.fromname = fromer
ojmail.from = from email
ojmail.charset = "gb2312"
ojmail.mailserverusername = имя пользователя
ojmail.mailserverpassword = пароль
ojmail.contentTransferencoDing = "base64"
ojmail.htmlbody = content 'mail Content
ojmail.body = content '«Наши электронные письма находятся в формате HTML, но ваше программное обеспечение для просмотра электронной почты может не поддерживать их»
ojmail.addrecipient Томайль
ojmail.subject = subject 'title
ojmail.send (mailaddress)
Конец суб
DIM Тема, MailAddress, The Mail, отправитель, от отправки, от пароля, ojmail, userners, томайль