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

Adder   /   by admin   /   July 04, 2021

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
%>

Tagswolk
Beoordeling
0
Keer bekeken
0
Opmerkingen
YOU MIGHT ALSO LIKE