Primjer funkcije slanja e-pošte s CDO-om u ASP-u

Asp / by admin / July 04, 2021

protection click fraud

Napravio sam ovu funkciju da neprestano šaljem e-poštu iz obrazaca mojih stranica u ASP-u, tako da moram samo stvoriti datoteku i uključiti je za slanje e-pošte u ASP-u.

Funkcija SendMail (fname pošiljatelj, pošiljatelj femail, fmessage, femailpara, fasunto, fadjoint)
NA DALJE NASTAVAK POGREŠKE

'Pošaljite tekstualnu poštu pomoću provjere autentičnosti na SMTP poslužitelju

Const cdoSendUsingPickup = 1 'Pošaljite poruku koristeći SMTP uslugu preuzimanja lokalnog direktorija
Const cdoSendUsingPort = 2 'Pošalji putem mreže, SMTP preko mreže

Const cdoAnonymous = 0 'Ne provjeravajte autentičnost
Const cdoBasic = 1 'Autentifikacija osnovnog (običan tekst)
Const cdoNTLM = 2 'NTLM

Postavi objMessage = CreateObject ("CDO.Message")
objMessage. Predmet = izdanje
objMessage. Od = f ime pošiljatelja & ""
objMessage. Za = femailpara
objMessage. Bcc = fbcc
objMessage. TextBody = fmessage
AKO fadjoint <> "" ONDA
objMessage. AddAttachment fadjoint
ZAVRŠI AKO

'== Ovdje konfigurirate SMTP poslužitelj.

objMessage. Konfiguracija. Polja. Stavka _
("

instagram story viewer

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

'Ime ili IP udaljenog SMTP poslužitelja
objMessage. Konfiguracija. Polja. Stavka _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" lokalni domaćin "

'Vrsta provjere autentičnosti, NIJE, Osnovno (kodirano u Base64), NTLM
objMessage. Konfiguracija. Polja. Stavka _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'Vaš UserID na SMTP poslužitelju
objMessage. Konfiguracija. Polja. Stavka _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" KORISNIK "

'Vaša lozinka na SMTP poslužitelju
objMessage. Konfiguracija. Polja. Stavka _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" LOZINKA "

'Server poslužitelj (obično 25)
objMessage. Konfiguracija. Polja. Stavka _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Koristite SSL za vezu (False ili True)
objMessage. Konfiguracija. Polja. Stavka _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Lažno

'TIMEOUT u sekundama, maksimalno vrijeme koje će CDO pokušati uspostaviti vezu sa SMTP-om
objMessage. Konfiguracija. Polja. Stavka _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. Konfiguracija. Polja. ažuriranje

'== Završi SMTP konfiguraciju ==

objMessage. Poslati

SendEmail = femailpara & ","

Krajnja funkcija
%>

Teachs.ru

Oznake oblak

Ocjena

Pogledi

Komentari