Пример функции для отправки электронных писем с CDO в ASP

Я сделал эту функцию, чтобы постоянно отправлять электронные письма из форм моих страниц в ASP, поэтому мне нужно только создать файл и включить его для отправки писем в ASP.

Функция отправки почты (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
ПРИ ОШИБКЕ ВОЗОБНОВИТЬ ДАЛЕЕ

 'Отправить текстовое сообщение с использованием аутентификации на SMTP-сервере

 Const cdoSendUsingPickup = 1 'Отправить сообщение с помощью службы подбора локального каталога SMTP
Const cdoSendUsingPort = 2 'Отправить по сети, SMTP по сети

 Const cdoAnonymous = 0 'Не аутентифицировать
 Const cdoBasic = 1 'Базовая аутентификация (простой текст)
 Const cdoNTLM = 2 'NTLM

 Установите objMessage = CreateObject ("CDO.Message")
 objMessage. Тема = проблема
 objMessage. From = f sendername & ""
 objMessage. Кому = femailpara
 objMessage. Bcc = fbcc
 objMessage. TextBody = fmessage
 ЕСЛИ fadjoint <> "" ТО
 objMessage. AddAttachment fadjoint
 КОНЕЦ ЕСЛИ

 '== Здесь настроен SMTP-сервер.

 objMessage. Конфигурация. Поля. Пункт _
 ("

 SendEmail = femailpara & ","

Конечная функция
%>