Automatischer Versand von Emails

[IcedDEVIL]

<%@ language = vbscript %>
<%
Const cstCdoBodyFormatHTML = 0
Const cstCdoBodyFormatText  = 1
Const cstCdoLow    = 0   ' Low importance
Const cstCdoNormal = 1   ' Normal importance (default)
Const cstCdoHigh   = 2   ' High importance

strBetreff = "HTML-Nachricht"
strNachricht = "Dies ist eine <u>Textnachricht<u>,<br>" & VbCrLf
strNachricht = strNachricht & "generiert vom <i>NewMail Objekt</i>.<br>"
strEmpaenger = "[e-mail]"
strAbsender = "[e-mail]"

Set objNewMail = CreateObject("CDONTS.NewMail")
objNewMail.BodyFormat = cstCdoBodyFormatHTML
objNewMail.Importance = cstCdoHigh
objNewMail.From = strAbsender
objNewMail.To = strEmpaenger
objNewMail.Subject = strBetreff
objNewMail.Body = strNachricht
objNewMail.Send
Set objNewMail = Nothing
%>

Die ganze Seite braucht nicht eine Krümel HTML da sie ja nur zur serverseitigen Verarbeitung dient und später dann sowiso auf eine andere Seite weiterleiten soll.
So müßte es eigentlich funktionieren.

Grüße aus Oberfranken

Sven

"das dokument enthielt keine daten...."
so wie ich das verstanden habe,müsste er doch zumindest schreiben:
"Dies ist eine Textnachricht generiert vom NewMail Objekt"
oder?