Primer funkcije za pošiljanje e-pošte s CDO v ASP

Asp / by admin / July 04, 2021

To funkcijo sem naredil za nenehno pošiljanje e-poštnih sporočil iz obrazcev mojih strani v ASP, zato moram samo ustvariti datoteko in jo vključiti za pošiljanje e-pošte v ASP.

Funkcija SendMail (pošiljatelj fname, pošiljatelj femail, fmessage, femailpara, fasunto, fadjoint)
PRI NADALJEVANJU NAPAK NASLED

'Pošljite besedilno pošto z overjanjem na strežnik SMTP

Const cdoSendUsingPickup = 1 'Pošlji sporočilo s storitvijo za prevzem lokalnega imenika SMTP
Const cdoSendUsingPort = 2 'Pošlji prek omrežja, SMTP prek omrežja

Const cdoAnonymous = 0 'Ne preverjajte pristnosti
Const cdoBasic = 1 'Preveri pristnost osnovnega (navadno besedilo)
Const cdoNTLM = 2 'NTLM

Nastavite objMessage = CreateObject ("CDO.Message")
objMessage. Zadeva = izdaja
objMessage. Od = f sendername & ""
objMessage. Za = femailpara
objMessage. Skp = fbcc
objMessage. TextBody = sporočilo
ČE fadjoint <> "" TEDA
objMessage. AddAttachment fadjoint
KONEC ČE

'== Tukaj konfigurirate strežnik SMTP.

objMessage. Konfiguracija. Polja. Element _
("

instagram story viewer

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

'Ime ali IP oddaljenega strežnika SMTP
objMessage. Konfiguracija. Polja. Element _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" localhost "

'Vrsta preverjanja pristnosti, NONE, Basic (kodirano v Base64), NTLM
objMessage. Konfiguracija. Polja. Element _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'Vaš ID uporabnika na strežniku SMTP
objMessage. Konfiguracija. Polja. Element _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" UPORABNIK "

'Vaše geslo na strežniku SMTP
objMessage. Konfiguracija. Polja. Element _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" GESLO "

'Strežniška vrata (običajno 25)
objMessage. Konfiguracija. Polja. Element _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Za povezavo uporabite SSL (False ali True)
objMessage. Konfiguracija. Polja. Element _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'TIMEOUT v sekundah, največji čas, ko bo CDO poskušal vzpostaviti povezavo s SMTP
objMessage. Konfiguracija. Polja. Element _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. Konfiguracija. Polja. Nadgradnja

'== Končaj konfiguracijo SMTP ==

objMessage. Pošlji

SendEmail = femailpara & ","

Končna funkcija
%>

Oblak oznak

Ocena

Pogledi

Komentarji