Príklad funkcie na odosielanie e-mailov s CDO v ASP

Asp / by admin / July 04, 2021

Túto funkciu som vytvoril na neustále posielanie e-mailov z formulárov mojich stránok v ASP, takže musím iba vytvoriť súbor a zahrnúť ho na odosielanie e-mailov v ASP.

Funkcia odoslania pošty (meno odosielateľa, odosielateľ femailu, fmessage, femailpara, fasunto, fadjoint)
PO CHYBE ĎALŠIE POKRAČOVANIE

„Posielať textové správy pomocou autentifikácie na serveri SMTP

Const cdoSendUsingPickup = 1 'Odoslať správu pomocou služby vyzdvihnutia lokálneho adresára SMTP
Const cdoSendUsingPort = 2 'Odoslať pomocou siete, SMTP cez sieť

Const cdoAnonymous = 0 'Neoverovať
Const cdoBasic = 1 'Základná autentifikácia (obyčajný text)
Const cdoNTLM = 2 'NTLM

Nastaviť objMessage = CreateObject ("CDO.Message")
objMessage. Predmet = vydanie
objMessage. From = f sendername & ""
objMessage. To = femailpara
objMessage. Skrytá kópia = fbcc
objMessage. TextBody = fmessage
AK Fadjoint <> "" POTOM
objMessage. Fadjoint AddAttachment
KONIEC AK

'== Tu je nakonfigurovaný server SMTP.

objMessage. Konfigurácia. Polia. Položka _
("

instagram story viewer

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

„Názov alebo IP vzdialeného servera SMTP
objMessage. Konfigurácia. Polia. Položka _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" localhost "

„Typ autentifikácie, ŽIADNE, Základné (zakódované v Base64), NTLM
objMessage. Konfigurácia. Polia. Položka _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

„Vaše ID používateľa na serveri SMTP
objMessage. Konfigurácia. Polia. Položka _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" USER "

„Vaše heslo na serveri SMTP
objMessage. Konfigurácia. Polia. Položka _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" HESLO "

„Serverový port (zvyčajne 25)
objMessage. Konfigurácia. Polia. Položka _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

„Použiť SSL na pripojenie (False alebo True)
objMessage. Konfigurácia. Polia. Položka _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Falošné

'TIMEOUT v sekundách, maximálny čas, po ktorý sa CDO pokúsi nadviazať spojenie so SMTP
objMessage. Konfigurácia. Polia. Položka _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. Konfigurácia. Polia. Aktualizácia

'== Dokončiť konfiguráciu SMTP ==

objMessage. Pošli

SendEmail = femailpara & ","

Koncová funkcia
%>

Značky cloud

Hodnotenie

Názory

Pripomienky