Hilfe-Center
Home Hosting Weitere Skript- und Programmiersprachen

Senden einer E-Mail mit ASP (CDOSYS)

Für Windows Webhosting-Pakete

In diesem Artikel stellen wir Ihnen ein Code-Beispiel für den Versand einer E-Mail über ASP vor, das Sie mit Ihren eigenen Daten anpassen können.

CDOSYS ist eine in ASP integrierte Komponente.  CDOSYS stellt Ihnen die Collaboration Data Objects zur Verfügung, um authentifizierte E-Mails (die einen Benutzernamen und ein Passwort erfordern) in ASP zu versenden.

Schritt-für-Schritt-Anleitung

  • Kopieren Sie den gesamten Text aus dem unten stehenden Codeabschnitt und fügen Sie ihn in einen Texteditor ein. Z.B. in NotePad.
  • Bearbeiten Sie den Text an den mit dieser Farbe markierten Stellen und geben Sie dort die gewünschten E-Mail-Adressen für Absender und Empfänger ein.
  • Speichern Sie den Text als Datei mit der Dateiendung .asp
    Beispiel: sendmail.asp
  • Laden Sie die Datei auf Ihren Webspace hoch.
  • Rufen Sie die Datei über Ihren Browser auf, um zu überprüfen, ob sie funktioniert .
    Beispiel: https://www.example.com/sendmail.asp

<%
CONST SMTPSendUsing = 2 ' Die Nachricht über das Netzwerk versenden (SMTP über das Netzwerk)
CONST SMTPServer = "smtp.ionos.de"
CONST SMTPServerPort = 25
CONST SMTPConnectionTimeout = 10 'Sekunden
CONST SMTPUser = "sender@example.com

"
CONST SMTPPassword = "E-Mail-Passwort"

dim sSubject, sEmail, sMailBody, sFrom, sReadReceipt, sMsg
sSubject = "Test"
sEmail = "empfänger@example.com"
sMailBody = "Das ist eine Testnachricht."
sFrom = "sender@example.com"
sReadReceipt = true
sMsg = ""

On Error Resume Next

dim oMail, oConfig, oConfigFields
set oMail = Server.CreateObject("CDO.Message")
set oConfig = Server.CreateObject("CDO.Configuration")
set oConfigFields = oConfig.Fields

with oConfigFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = SMTPSendUsing
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SMTPServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPServerPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = SMTPUser
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = SMTPPassword
.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update
end with
oMail.Configuration = oConfig

oMail.Subject = sSubject
oMail.From = sFrom
oMail.To = sEmail
oMail.HTMLBody = sMailBody

oMail.Send
set oMail=nothing

sMsg = "Nachricht versendet"

if Err.Number > 0 then sMsg = "ERROR: " & Err.Description

Response.Write sMsg

%>

If the test message was received by the email account with which you replaced recipient@example.com in the example shown above, you can now adapt the script to better fit your usage, such as by replacing the sSubject and sMailBody values.