Kategorie auswählen
Übersicht Hilfe Kontakt
print article

Beispiel für den E-Mail-Versand mit ASP

Für 1&1 WebHosting Windows-Pakete

Als Komponente steht Ihnen CDO für Windows (auch CDO 2.0 oder CDOSYS) zur Verfügung. Damit kann einfach über eine ASP-Seite eine E-Mail verschickt werden, um z.B. Bestell- oder Feedback-Meldungen zu erhalten.

Hier sehen sie ein einfaches Beispiel:


<!--METADATA TYPE="typelib"
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library" -->

NAME="ADODB Type Library" -->
<!--Durch die obigen METADATA werden die CDO Konstanten bekannt gemacht,
wie z.B. cdoSendUsingMethod-->
<html>
<body>
<%
Dim strFrom, strTo, strSubject, strBody
Dim objMessage, objConfig
strFrom = "AuthAbsender@IhreDomain.de" 'Absender
strTo = "empfaenger@IhreDomain.de" 'Empfänger
strSubject = "Nachricht" 'Mail Subject
strBody = "Ihre Nachricht..." 'Mail Body(Text)

'Erzeugen des Email Server Objects
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

'Hier wird festgelegt, wie die Mails versendet werden (lokal oder extern).
'Bitte immer externen Versand angeben, da eine lokaler Versand nicht
'möglich ist.
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort

'Ausgehender SMTP Server mit SMTP-Auth
objConfig.Fields(cdoSMTPServer) = "smtp.1und1.de"

'SMTP Port
objConfig.Fields(cdoSMTPServerPort) = 25
'Klartext Authentifizierung
objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic

'E-Mail-Accountname
objConfig.Fields(cdoSendUserName) = "info@ihre-webhosting-domain.de"

'Passwort
objConfig.Fields(cdoSendPassword) = "IhrPasswort"

objConfig.Fields.Update

Set objMessage.Configuration = objConfig
objMessage.To = strTo
objMessage.From = strFrom
objMessage.Subject = strSubject
objMessage.TextBody = strBody 'Plain Text Modus

On Error Resume Next
objMessage.Send

If Err.Number = "0" Then
Response.Write("Die Nachricht wurde versendet!")
Else
Response.Write("Waehrend des Versendens ist " &amp; _
"ein Fehler aufgetreten.")
response.write Err.Number &amp; " " &amp; Err.Description
Err.Number = "0"
End If
%>
</body>

Um Ihre E-Mail im HTML Format zu versenden, ändern Sie bitte die Zeile objMessage.TextBody = strBody wie folgt ab:

>objMessage.HTMLBody = strBody
'versendet die Nachricht im HTML Format

Die Nachricht kann auch an mehrere Empfänger verschickt werden, diese einfach durch ein Komma trennen.

strTo = "empfaenger1@IhreDomain.de, empfaenger2@IhreDomain.de, empfaenger3@IhreDomain.de"

Um Ihrer Nachricht ein Attachment anzuhängen, fügen Sie bitte folgende Zeile ein:

objMessage.AddAttachment Server.MapPath("picture.gif")

oder auch:

objMessage.AddAttachment "http://IhreDomain.de/picture.gif"