Voorbeeld van een functie om e-mails te verzenden met CDO in ASP

Adder / by admin / July 04, 2021

protection click fraud

Ik heb deze functie gemaakt om constant e-mails te verzenden vanuit de formulieren van mijn pagina's in ASP, dus ik hoef alleen een bestand te maken en op te nemen om e-mails in ASP te verzenden.

Send Mail-functie (fname afzender, femail afzender, fmessage, femailpara, fasunto, fadjoint)
OP FOUT HERVATTEN VOLGENDE

'Stuur een sms met authenticatie op een SMTP-server

Const cdoSendUsingPickup = 1 'Bericht verzenden met lokale SMTP-ophaalservice voor directory's'
Const cdoSendUsingPort = 2 'Verzenden via netwerk, SMTP via netwerk

Const cdoAnonymous = 0 'Niet authenticeren'
Const cdoBasic = 1 'Authenticeer basis (platte tekst)
Const cdoNTLM = 2 'NTLM

Stel objMessage = CreateObject ("CDO.Message") in
objBericht. Onderwerp = probleem
objBericht. Van = f afzendernaam & ""
objBericht. Aan = vrouwelijk
objBericht. Bcc = fbcc
objBericht. TextBody = fbericht
IF fadjoint <> "" DAN
objBericht. AddAttachment fadjoint
STOP ALS

'== De SMTP-server wordt hier geconfigureerd.

objBericht. Configuratie. velden. Artikel _
("

instagram story viewer

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

'Naam of IP van externe SMTP-server'
objBericht. Configuratie. velden. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" lokale host "

'Type authenticatie, GEEN, Basic (Base64 gecodeerd), NTLM
objBericht. Configuratie. velden. Artikel _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'Uw gebruikers-ID op de SMTP-server'
objBericht. Configuratie. velden. Artikel _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" GEBRUIKER "

'Uw wachtwoord op de SMTP-server'
objBericht. Configuratie. velden. Artikel _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" WACHTWOORD "

'Serverpoort (meestal 25)
objBericht. Configuratie. velden. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Gebruik SSL voor de verbinding (False of True)
objBericht. Configuratie. velden. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Onwaar

'TIMEOUT in seconden, de maximale tijd die CDO zal proberen om verbinding te maken met de SMTP
objBericht. Configuratie. velden. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objBericht. Configuratie. velden. Bijwerken

'== Voltooi SMTP-configuratie ==

objBericht. Sturen

SendEmail = femailpara & ","

Functie beëindigen
%>

Teachs.ru

Tagswolk

Adder

Beoordeling

Keer bekeken

Opmerkingen