Приклад функції надсилання електронних листів із CDO в ASP

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

Функція надсилання пошти (відправник імені, відправник за допомогою електронної пошти, повідомлення, повідомлення про користувач, фасунто, прив'язка)
ПРО ПОМИЛКУ ВІДНОВИТИ ДАЛІ

 'Надішліть текстове повідомлення за допомогою аутентифікації на 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. Від = f ім'я відправника & ""
 objMessage. До = femailpara
 objMessage. Скз = fbcc
 objMessage. TextBody = fmessage
 ЯКЩО fadjoint <> "" ПОТІМ
 objMessage. AddAttachment fadjoint

 КІНЕЦЬ ЯКЩО

 '== Тут налаштовано SMTP-сервер.

 objMessage. Конфігурація. Поля. Елемент _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 'Назва або IP віддаленого SMTP-сервера
 objMessage. Конфігурація. Поля. Елемент _
 ("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" localhost "

 'Тип автентифікації, NONE, Basic (кодований Base64), NTLM
 objMessage. Конфігурація. Поля. Елемент _
 ("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

 'Ваш UserID на SMTP-сервері
 objMessage. Конфігурація. Поля. Елемент _
 ("https://schemas.microsoft.com/cdo/configuration/sendusername") =" КОРИСТУВАЧ "

 'Ваш пароль на SMTP-сервері
 objMessage. Конфігурація. Поля. Елемент _
 ("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" ПАРОЛЬ "

 'Порт сервера (зазвичай 25)
 objMessage. Конфігурація. Поля. Елемент _
 ("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

 'Використовуйте SSL для з'єднання (False або True)
 objMessage. Конфігурація. Поля. Елемент _
 ("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Помилковий

 'TIMEOUT у секундах, максимальний час, протягом якого CDO намагатиметься встановити з'єднання з SMTP
 objMessage. Конфігурація. Поля. Елемент _
 ("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

 objMessage. Конфігурація. Поля. Оновлення

 '== Завершити конфігурацію SMTP ==

 objMessage. Надіслати

 SendEmail = femailpara & ","

Кінцева функція
%>