Beispiel für eine Funktion zum Senden von E-Mails mit CDO in ASP

Asp / by admin / July 04, 2021

Ich habe diese Funktion erstellt, um ständig E-Mails aus den Formularen meiner Seiten in ASP zu senden, sodass ich nur eine Datei erstellen und einbinden muss, um E-Mails in ASP zu senden.

Send Mail Funktion (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
BEI FEHLER FORTSETZEN WEITER

'Senden Sie eine SMS mit Authentifizierung auf einem SMTP-Server

Const cdoSendUsingPickup = 1 'Nachricht mit SMTP-Abholdienst für das lokale Verzeichnis senden
Const cdoSendUsingPort = 2 'Senden über Netzwerk, SMTP über Netzwerk

Const cdoAnonymous = 0 'Nicht authentifizieren
Const cdoBasic = 1 'Basic authentifizieren (Klartext)
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject ("CDO.Message")
objMessage. Betreff = Problem
objMessage. Von = f Absendername & ""
objMessage. An = femailpara
objMessage. Bcc = fbcc
objMessage. TextBody = fmessage
WENN Fadjoint <> "" DANN
objMessage. AddAttachment-Fadjoint
ENDE WENN

'== Hier wird der SMTP-Server konfiguriert.

objMessage. Aufbau. Felder. Artikel _
("

instagram story viewer

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

'Name oder IP des Remote-SMTP-Servers
objMessage. Aufbau. Felder. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpserver") =" localhost "

'Art der Authentifizierung, KEINE, Basic (Base64-kodiert), NTLM
objMessage. Aufbau. Felder. Artikel _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'Ihre UserID auf dem SMTP-Server
objMessage. Aufbau. Felder. Artikel _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" BENUTZER "

'Ihr Passwort auf dem SMTP-Server
objMessage. Aufbau. Felder. Artikel _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" PASSWORT "

'Server-Port (typischerweise 25)
objMessage. Aufbau. Felder. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'SSL für die Verbindung verwenden (False oder True)
objMessage. Aufbau. Felder. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = Falsch

'TIMEOUT in Sekunden, die maximale Zeit, die CDO versucht, eine Verbindung mit dem SMTP aufzubauen
objMessage. Aufbau. Felder. Artikel _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. Aufbau. Felder. Aktualisieren

'== SMTP-Konfiguration abschließen ==

objMessage. Senden

SendEmail = femailpara & ","

Endfunktion
%>

Schlagwortwolke

Bewertung

Ansichten

Bemerkungen