Некоторое время назад я отправил простой код электронной почты JMAIL. Сегодня я специально прокомментирую этот код, добавлю два других кода формата и приведу несколько простых примеров:
Первый — это основной код jmail.smtpmail:
<%
Set jmail = Server.CreateObject("JMAIL.SMTPMail") 'Создание объекта JMAIL
jmail.silent = true 'JMAIL не будет выдавать ошибки исключения, а возвращаемые значения будут FALSE и TRUE
jmail.logging = true 'Включить журналы использования
jmail.Charset = "GB2312" 'Код текста электронного письма — упрощенный китайский
jmail.ContentType = "text/html" 'Формат электронного письма — HTML.
jmail.ServerAddress = "Адрес сервера" 'Сервер, который отправляет электронные письма
jmail.AddRecipient Email 'Получатель электронного письма
jmail.SenderName = "SenderName" 'Имя отправителя электронного письма
jmail.Sender = "Адрес электронной почты" 'Адрес электронной почты отправителя электронной почты
jmail.Priority = 1 'Программа экстренной отправки электронной почты, 1 — самая быстрая, 5 — самая медленная, 3 — значение по умолчанию.
jmail.Subject = "Тема письма" 'Заголовок электронного письма
jmail.Body = "Тело письма" 'Содержимое электронного письма
jmail.AddRecipientBCC Email 'Адрес слепого получателя электронной почты
jmail.AddRecipientCC Email 'Адрес человека, отправившего копию электронной почты.
jmail.Execute() 'Выполнить отправку электронной почты
jmail.Close 'Закрыть почтовый объект
%>
Компонент w3 Jmail4.3 переработал свою внутреннюю структуру — для отправки электронных писем вместо исходного единственного объекта Jmail.smtpmail используется объект Message. Некоторые методы требуют аутентификации (например, 163, Yahoo и т. д.), что можно решить с помощью компонента w3 Jmail4.3. следующий метод:
<%
Set jmail = Server.CreateObject("JMAIL.Message") 'Создаем объект для отправки электронных писем
jmail.silent = true 'Защитить ошибки исключений и вернуть значения FALSE и TRUE j
mail.logging = true 'Включить ведение журнала почты
jmail.Charset = "GB2312" 'Кодировка текста электронной почты соответствует национальному стандарту.
jmail.ContentType = "text/html" 'Формат электронного письма — HTML.
jmail.AddRecipient Email 'Адрес получателя электронной почты
jmail.From = "Электронное письмо от отправителя" 'Адрес электронной почты отправителя
jmail.MailServerUserName = "Имя пользователя электронной почты" 'Имя пользователя, необходимое для входа на почтовый сервер
jmail.MailServerPassword = "Пароль электронной почты" 'Пароль, необходимый для входа на почтовый сервер
jmail.Subject = "Тема письма" 'Заголовок электронного письма
jmail.Body = "Тело письма" 'Содержимое электронного письма
jmail.Prority = 1 'Программа экстренной отправки электронной почты, 1 — самая быстрая, 5 — самая медленная, 3 — значение по умолчанию.
jmail.Send("Адрес сервера") 'Выполнить отправку электронной почты (через адрес почтового сервера)
jmail.Close() 'Закрываем объект
%>
Давайте поговорим о том, как отправлять сообщения с помощью собственного компонента Microsoft CDONTS:
<%
Set cdomail = Server.CreateObject("CDONTS.NewMail") 'Создание почтового объекта
cdomail.Subject = "Тема письма" 'Заголовок письма
cdomail.From = "Почта отправителя" 'Адрес отправителя
cdomail.To = "Электронное письмо будет от" 'Адрес получателя
cdomail.Body = "Тело письма" 'Содержимое электронного письма
cdomail.Send 'Выполнить отправку
%>
Этот метод является самым простым для отправки электронных писем, но он также приносит определенные проблемы, то есть немногие серверы откроют этот сервис!
Когда мы пишем программы, мы обычно говорим, что код должен быть модульным, чтобы облегчить обслуживание и портирование. Поэтому я напишу здесь это письмо как подпрограмму, которую можно будет вызывать напрямую при звонке (конечно, если вы с удовольствием пропишете ее как функцию, это тоже возможно, это в основном зависит от личного интереса):
<%
'Описание параметра
'Тема: Название письма
'MailAddress: адрес отправляющего сервера, например smtp.163.com.
'Электронная почта: адрес электронной почты получателя.
'Отправитель: имя отправителя
'Содержимое: содержимое электронного письма.
'Fromer: адрес электронной почты отправителя
Sub SendAction(тема, почтовый адрес, электронная почта, отправитель, контент, отправитель)
Set jmail = Server.CreateObject("JMAIL.SMTPMail") 'Создание объекта JMAIL
jmail.silent = true 'JMAIL не будет выдавать ошибки исключения, а возвращаемые значения будут FALSE и TRUE
jmail.logging = true 'Включить журналы использования
jmail.Charset = "GB2312" 'Код текста электронного письма — упрощенный китайский
jmail.ContentType = "text/html" 'Формат электронного письма — HTML.
jmail.ServerAddress = mailaddress 'Сервер, который отправляет почту
jmail.AddRecipient Email 'Получатель электронного письма
jmail.SenderName = sender 'Имя отправителя электронного письма
jmail.Sender = fromer 'Адрес электронной почты отправителя электронной почты
jmail.Priority = 1 'Программа экстренной отправки электронной почты, 1 — самая быстрая, 5 — самая медленная, 3 — значение по умолчанию.
jmail.Subject = subject 'Заголовок электронного письма
jmail.Body = content 'Содержимое электронного письма
'Поскольку BCC и CC не используются, эти два предложения здесь заблокированы. При необходимости вы можете восстановить их здесь.
'jmail.AddRecipientBCC Email 'Адрес слепого получателя электронной почты
'jmail.AddRecipientCC Email 'Адрес точной копии электронного письма
jmail.Execute() 'Выполнить отправку электронной почты
jmail.Close 'Закрыть почтовый объект
Конец субтитра
'Пример вызова этого Sub
Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
strSubject = "Это тестовое письмо, отправленное с помощью JMAIL"
strContent = "Компонент JMail успешно отправил тест!"
strEmail = " [email protected] "
strFromer = " [email protected] "
strMailAddress = "mail.ubbcn.com"
Вызов SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)
%>
Вышеизложенное является моим приблизительным мнением о коде для отправки электронных писем. Я хотел бы поблагодарить вас за совет!