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

Жерех / by admin / July 04, 2021

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

Функция SendMail (отправитель fname, отправитель femail, fmessage, femailpara, fasunto, fadjoint)
ПРИ ОШИБКЕ ВОЗОБНОВИТЬ СЛЕДУЮЩИЙ

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

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

Const cdoAnonymous = 0 'Не аутентифицировать
Const cdoBasic = 1 'Базовая аутентификация (простой текст)
Константа 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. Конфигурация. Поля. Пункт _
("

instagram story viewer

https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Имя или IP-адрес удаленного SMTP-сервера
objMessage. Конфигурация. Поля. Пункт _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" локальный хост "

'Тип аутентификации, НЕТ, Базовая (в кодировке 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 & ","

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

Облако тегов

Жерех

Рейтинг

Взгляды

Комментарии