Пример функције слања е-поште са ЦДО-ом у АСП-у

Асп / by admin / July 04, 2021

Направио сам ову функцију да непрестано шаљем е-пошту из образаца мојих страница у АСП-у, тако да морам само да направим датотеку и да је укључим за слање е-поште у АСП-у.

Функција СендМаил (фнаме пошиљалац, пошиљалац фемаил, фмессаге, фемаилпара, фасунто, фадјоинт)
НА ДАЉЕ НАСТАВАК ГРЕШКЕ

'Пошаљите текстуалну пошту користећи потврду идентитета на СМТП серверу

Цонст цдоСендУсингПицкуп = 1 'Пошаљите поруку користећи СМТП услугу преузимања локалног директорија
Цонст цдоСендУсингПорт = 2 'Пошаљи путем мреже, СМТП преко мреже

Цонст цдоАнонимоус = 0 'Не потврђујте идентитет
Цонст цдоБасиц = 1 'Потврдите идентитет основног (обичан текст)
Цонст цдоНТЛМ = 2 'НТЛМ

Постави објМессаге = ЦреатеОбјецт ("ЦДО.Мессаге")
објМессаге. Предмет = издање
објМессаге. Од = ф име пошиљаоца & ""
објМессаге. То = фемаилпара
објМессаге. Бцц = фбцц
објМессаге. ТектБоди = фмессаге
АКО је фадјоинт <> "" ОНДА
објМессаге. АддАттацхмент фадјоинт
КРАЈ АКО

'== Овде конфигуришете СМТП сервер.

објМессаге. Конфигурација. Поља. Ставка _
("

instagram story viewer

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

'Име или ИП удаљеног СМТП сервера
објМессаге. Конфигурација. Поља. Ставка _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" лоцалхост "

'Тип потврде идентитета, НИЈЕ, Основно (кодирано у Басе64), НТЛМ
објМессаге. Конфигурација. Поља. Ставка _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = цдоБасиц

'Ваш УсерИД на СМТП серверу
објМессаге. Конфигурација. Поља. Ставка _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" КОРИСНИК "

'Ваша лозинка на СМТП серверу
објМессаге. Конфигурација. Поља. Ставка _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" ЛОЗИНКА "

'Сервер порт (обично 25)
објМессаге. Конфигурација. Поља. Ставка _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Користите ССЛ за везу (нетачно или тачно)
објМессаге. Конфигурација. Поља. Ставка _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Нетачно

'ТИМЕОУТ у секундама, максимално време које ће ЦДО покушати да успостави везу са СМТП-ом
објМессаге. Конфигурација. Поља. Ставка _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

објМессаге. Конфигурација. Поља. ажурирање

'== Заврши СМТП конфигурацију ==

објМессаге. Пошаљите

СендЕмаил = фемаилпара & ","

Крајња функција
%>

Ознаке облак

Асп

Оцена

Виевс

Коментари