Exempel på en funktion för att skicka e-post med CDO i ASP

Asp / by admin / July 04, 2021

Jag gjorde den här funktionen för att ständigt skicka e-post från formuläret på mina sidor i ASP, så jag behöver bara skapa en fil och inkludera den för att skicka e-post i ASP.

Skicka e-postfunktion (fname avsändare, femail avsändare, fmessage, femailpara, fasunto, fadjoint)
PÅ FEL ÅTERFATTAR NÄSTA

'Skicka ett sms med autentisering på en SMTP-server

Const cdoSendUsingPickup = 1 'Skicka meddelande med SMTP lokal kataloghämtningstjänst
Const cdoSendUsingPort = 2 'Skicka med nätverk, SMTP över nätverk

Const cdoAnonymous = 0 'Verifiera inte
Const cdoBasic = 1 'Autentisera grundläggande (vanlig text)
Const cdoNTLM = 2 'NTLM

Ställ objMessage = CreateObject ("CDO.Message")
objektMeddelande. Ämne = fråga
objektMeddelande. Från = f sändarnamn & ""
objektMeddelande. Till = femailpara
objektMeddelande. Bcc = fbcc
objektMeddelande. TextBody = fmessage
OM fadjoint <> "" DAN
objektMeddelande. AddAttachment fadjoint
SLUT OM

'== Här konfigurerar du SMTP-servern.

objektMeddelande. Konfiguration. Fält. Artikel _
("

instagram story viewer

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

'Namn eller IP för fjärr SMTP-server
objektMeddelande. Konfiguration. Fält. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" lokal värd "

'Typ av autentisering, INGEN, Basic (Base64-kodad), NTLM
objektMeddelande. Konfiguration. Fält. Artikel _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'Ditt användar-ID på SMTP-servern
objektMeddelande. Konfiguration. Fält. Artikel _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" ANVÄNDARE "

'Ditt lösenord på SMTP-servern
objektMeddelande. Konfiguration. Fält. Artikel _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" LÖSENORD "

'Serverport (vanligtvis 25)
objektMeddelande. Konfiguration. Fält. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Använd SSL för anslutningen (Falsk eller Sann)
objektMeddelande. Konfiguration. Fält. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Falskt

'TIMEOUT i sekunder, den maximala tid som CDO försöker upprätta en anslutning till SMTP
objektMeddelande. Konfiguration. Fält. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objektMeddelande. Konfiguration. Fält. Uppdatering

'== Avsluta SMTP-konfiguration ==

objektMeddelande. Skicka

SendEmail = femailpara & ","

Slutfunktion
%>

Taggar moln

Betyg

Visningar

Kommentarer