Esimerkki toiminnosta lähettää sähköpostia CDO: lla ASP: ssä

Asp / by admin / July 04, 2021

Tein tämän toiminnon lähettämään jatkuvasti sähköposteja sivujeni lomakkeista ASP: ssä, joten minun tarvitsee vain luoda tiedosto ja sisällyttää se lähettääksesi sähköpostia ASP: hen.

Lähetä sähköposti -toiminto (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
ON VIRHEEN JATKAMINEN SEURAAVA

Lähetä tekstiviesti todennuksen avulla SMTP-palvelimelle

Const cdoSendUsingPickup = 1 'Lähetä viesti SMTP-paikallishakemiston noutopalvelun avulla
Const cdoSendUsingPort = 2 'Lähetä verkon kautta, SMTP verkon kautta

Const cdoAnonymous = 0 'Älä todenna
Const cdoBasic = 1 'Todenna perus (pelkkä teksti)
Const cdoNTLM = 2 'NTLM

Aseta objMessage = CreateObject ("CDO.Message")
objMessage. Aihe = ongelma
objMessage. From = f lähettäjänimi & ""
objMessage. Vastaanottaja = femailpara
objMessage. Piilokopio = fbcc
objMessage. TextBody = fmessage
JOS fadjoint <> "" Sitten
objMessage. AddAttachment-fadjoint
LOPPU JOS

'== SMTP-palvelin on määritetty tässä.

objMessage. Kokoonpano. Kentät. Tuote _
("

instagram story viewer

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

'SMTP-etäpalvelimen nimi tai IP-osoite
objMessage. Kokoonpano. Kentät. Tuote _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" paikallinen isäntä "

'Todennustyyppi, NONE, Basic (koodattu Base64), NTLM
objMessage. Kokoonpano. Kentät. Tuote _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'Käyttäjätunnuksesi SMTP-palvelimella
objMessage. Kokoonpano. Kentät. Tuote _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" KÄYTTÄJÄ "

'Salasanasi SMTP-palvelimella
objMessage. Kokoonpano. Kentät. Tuote _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" SALASANA "

'Palvelinportti (tyypillisesti 25)
objMessage. Kokoonpano. Kentät. Tuote _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Käytä SSL-yhteyttä yhteyden muodostamiseen (väärä tai tosi)
objMessage. Kokoonpano. Kentät. Tuote _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Väärä

'TIMEOUT sekunteina, enimmäisaika, jonka CDO yrittää muodostaa yhteyden SMTP: hen
objMessage. Kokoonpano. Kentät. Tuote _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. Kokoonpano. Kentät. Päivittää

'== Viimeistele SMTP-määritys ==

objMessage. Lähettää

SendEmail = femailpara & ","

Lopeta toiminto
%>

Tunnisteet pilvi

Luokitus

Näkymät

Kommentit