Exemplu de funcție pentru a trimite e-mailuri cu CDO în ASP

Asp / by admin / July 04, 2021

Am făcut această funcție pentru a trimite în mod constant e-mailuri din formularele paginilor mele în ASP, așa că trebuie doar să creez un fișier și să îl includ pentru a trimite e-mailuri în ASP.

Funcția Trimitere e-mail (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
REPORTAȚI EROAREA ÎN URMĂTOARE

„Trimiteți un e-mail text utilizând autentificarea pe un server SMTP

Const cdoSendUsingPickup = 1 'Trimiteți mesaj folosind serviciul de preluare a directorului local SMTP
Const cdoSendUsingPort = 2 'Trimite folosind rețea, SMTP prin rețea

Const cdoAnonymous = 0 'Nu vă autentificați
Const cdoBasic = 1 'Autentificare de bază (text simplu)
Const cdoNTLM = 2 'NTLM

Setați objMessage = CreateObject ("CDO.Message")
obiectMessage. Subiect = problemă
obiectMessage. From = f nume de trimitere & ""
obiectMessage. To = femailpara
obiectMessage. Bcc = fbcc
obiectMessage. TextBody = fmessage
IF fadjoint <> "" THEN
obiectMessage. AddAttachment fadjoint
ÎNCHEI DACĂ

'== Serverul SMTP este configurat aici.

obiectMessage. Configurare. Câmpuri. Element _
("

instagram story viewer

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

„Numele sau adresa IP a serverului SMTP la distanță
obiectMessage. Configurare. Câmpuri. Element _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" localhost "

„Tipul de autentificare, NICIUL, de bază (codificat Base64), NTLM
obiectMessage. Configurare. Câmpuri. Element _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

„ID-ul dvs. de utilizator pe serverul SMTP
obiectMessage. Configurare. Câmpuri. Element _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" UTILIZATOR "

'Parola dvs. pe serverul SMTP
obiectMessage. Configurare. Câmpuri. Element _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" PAROLĂ "

„Port server (de obicei 25)
obiectMessage. Configurare. Câmpuri. Element _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

„Folosiți SSL pentru conexiune (Fals sau Adevărat)
obiectMessage. Configurare. Câmpuri. Element _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Fals

'TIMEOUT în secunde, timpul maxim pe care CDO îl va încerca să stabilească o conexiune cu SMTP
obiectMessage. Configurare. Câmpuri. Element _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

obiectMessage. Configurare. Câmpuri. Actualizați

'== Finalizați configurarea SMTP ==

obiectMessage. Trimite

SendEmail = femailpara & ","

Funcția de sfârșit
%>

Cloud etichete

Evaluare

Vizualizări

Comentarii