Dim ContactName, eMail, Mitteilung, sch
Schwaches OBJ_EMAIL
ContactName = Request.Form („op1“)
EMail = Request.Form („op2“)
Mitteilung = Request.Form („op3“)
sch = „http://schemas.microsoft.com/cdo/configuration/“
cdoConfig = CreateObject („CDO.Configuration“) einstellen
Mit cdoConfig.Fields
. Einzelteil (sch u. „Sendusing“) = 2
. Einzelteil (sch u. „smtpserver“) = „relay-hosting.secureserver.net“
.update
Ende mit
cdoMessage = CreateObject („CDO.Message“) einstellen
Mit cdoMessage
Satz. Konfiguration = cdoConfig
. Von = ContactName u. " < " u. eMail u. " > "
. Zu = „[email protected]“
. Thema = „in Verbindung treten mit uns“
.HTMLBody = "" u. Mitteilung u. ""
. Senden
Mit beenden
cdoMessage einstellen = nichts
cdoConfig einstellen = nichts
|