Пример за функция за изпращане на имейли с CDO в ASP

Asp / by admin / July 04, 2021

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

Функция за изпращане на поща (изпращач на име, изпращач на femail, 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. От = f име на подателя & ""
objMessage. До = femailpara
objMessage. Ск = 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") =" localhost "

'Тип удостоверяване, НЯМА, Основен (кодиран в 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 & ","

Крайна функция
%>

Облаци на етикети

Рейтинг

Изгледи

Коментари