Näide funktsioonist CDO-ga meilide saatmiseks ASP-s

Asp / by admin / July 04, 2021

Selle funktsiooni tegin selleks, et saata pidevalt meilisõnumeid oma lehtede vormidelt ASP-s, nii et ma pean ASP-s olevate meilide saatmiseks looma ainult faili ja selle kaasama.

Saada e-posti funktsioon (fname saatja, femail saatja, fmessage, femailpara, fasunto, fadjoint)
JÄRGMISE VIGA JATKA

'Saatke SMTP-serveris autentimist kasutades tekstsõnum

Const cdoSendUsingPickup = 1 'Saada sõnum SMTP kohaliku kataloogi vastuvõtuteenuse abil
Const cdoSendUsingPort = 2 'Saada võrgu kaudu, SMTP võrgu kaudu

Const cdoAnonymous = 0 'Ärge autentige
Const cdoBasic = 1 'Põhiteabe autentimine (lihttekst)
Const cdoNTLM = 2 'NTLM

Määra objMessage = CreateObject ("CDO.Message")
objMessage. Teema = küsimus
objMessage. From = f saatjanimi & ""
objMessage. To = femailpara
objMessage. Pimekoopia = fbcc
objMessage. TextBody = fmessage
KUI fadjoint <> "" SIIS
objMessage. AddAttachment fadjoint
LÕPP KUI

'== Siin on konfigureeritud SMTP-server.

objMessage. Konfiguratsioon. Väljad. Üksus _
("https://schemas.microsoft.com/cdo/configuration/sendusing

instagram story viewer

") = 2

'Kaug-SMTP-serveri nimi või IP
objMessage. Konfiguratsioon. Väljad. Üksus _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" kohalik host "

'Autentimise tüüp, Puudub, Põhiline (kodeeritud Base64), NTLM
objMessage. Konfiguratsioon. Väljad. Üksus _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'Teie kasutajatunnus SMTP-serveris
objMessage. Konfiguratsioon. Väljad. Üksus _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" KASUTAJA "

'Teie parool SMTP-serveris
objMessage. Konfiguratsioon. Väljad. Üksus _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" PARool "

'Serveri port (tavaliselt 25)
objMessage. Konfiguratsioon. Väljad. Üksus _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Kasutage ühenduse loomiseks SSL-i (vale või tõene)
objMessage. Konfiguratsioon. Väljad. Üksus _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Vale

'TIMEOUT sekundites - maksimaalne aeg, mille jooksul CDO proovib SMTP-ga ühendust luua
objMessage. Konfiguratsioon. Väljad. Üksus _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. Konfiguratsioon. Väljad. Uuenda

'== Lõpeta SMTP seadistamine ==

objMessage. Saada

SendEmail = femailpara & ","

Funktsioon Lõpeta
%>

Siltide pilv

Hinnang

Vaated

Kommentaarid