Eksempel på en funktion til afsendelse af e-mails med CDO i ASP

Asp / by admin / July 04, 2021

Jeg lavede denne funktion til konstant at sende e-mails fra formularerne på mine sider i ASP, så jeg skal kun oprette en fil og inkludere den for at sende e-mails i ASP.

Send mail-funktion (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
OM FEJLVÆGDEN NÆSTE

'Send en sms ved hjælp af godkendelse på en SMTP-server

Const cdoSendUsingPickup = 1 'Send besked ved hjælp af SMTP-lokal katalogtjeneste
Const cdoSendUsingPort = 2 'Send ved hjælp af netværk, SMTP over netværk

Const cdoAnonymous = 0 'Autentificer ikke
Const cdoBasic = 1 'Godkend grundlæggende (almindelig tekst)
Const cdoNTLM = 2 'NTLM

Indstil objMessage = CreateObject ("CDO.Message")
objMessage. Emne = problem
objMessage. Fra = f sendnavn & ""
objMessage. Til = femailpara
objMessage. Bcc = fbcc
objMessage. TextBody = meddelelse
HVIS fadjoint <> "" SÅ
objMessage. AddAttachment fadjoint
AFSLUT HVIS

'== SMTP-serveren er konfigureret her.

objMessage. Konfiguration. Felter. Vare _
("https://schemas.microsoft.com/cdo/configuration/sendusing

instagram story viewer

") = 2

'Navn eller IP på Remote SMTP Server
objMessage. Konfiguration. Felter. Vare _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" lokal vært "

'Type godkendelse, INGEN, Basic (Base64-kodet), NTLM
objMessage. Konfiguration. Felter. Vare _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'Dit bruger-id på SMTP-serveren
objMessage. Konfiguration. Felter. Vare _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" BRUGER "

'Dit kodeord på SMTP-serveren
objMessage. Konfiguration. Felter. Vare _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" PASSWORD "

'Serverport (typisk 25)
objMessage. Konfiguration. Felter. Vare _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Brug SSL til forbindelsen (falsk eller sand)
objMessage. Konfiguration. Felter. Vare _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Falsk

'TIMEOUT i sekunder, den maksimale tid, som CDO forsøger at etablere en forbindelse til SMTP
objMessage. Konfiguration. Felter. Vare _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. Konfiguration. Felter. Opdatering

'== Afslut SMTP-konfiguration ==

objMessage. Sende

SendEmail = femailpara & ","

Afslut funktion
%>

Tags sky

Bedømmelse

Visninger

Kommentarer