- #1
G
giga2000
Guest
Hallo,
ich würde gerne ein Script erstellen, damit wenn jemand ein Formular ausfüllt und abschickt, soll er eine vorgefertigte Mail von mir zurückbekommen.
Ich habe einen Webserver auf dem Frontpage 2003 läuft, aber keine Ahnung wie man das macht.
Momentan habe ich ein Formular, dass die Daten an mich schickt, kann ich das anpassen, so
das automatsch an die von Ihm angegebene Adresse eine Mail versendet wird`?
Anbei das aktuelle Formular, wie es momentan ist:
Danke für eure Hilfe!!!
* Code-Tags eingefügt *
ich würde gerne ein Script erstellen, damit wenn jemand ein Formular ausfüllt und abschickt, soll er eine vorgefertigte Mail von mir zurückbekommen.
Ich habe einen Webserver auf dem Frontpage 2003 läuft, aber keine Ahnung wie man das macht.
Momentan habe ich ein Formular, dass die Daten an mich schickt, kann ich das anpassen, so
das automatsch an die von Ihm angegebene Adresse eine Mail versendet wird`?
Anbei das aktuelle Formular, wie es momentan ist:
Danke für eure Hilfe!!!
Code:
<%
' Empfänger
strTo = [email protected]
' Absender
strFrom = Request.QueryString(email)
' Betreff
strSubject = Formular - Test
' Emailtext
strBody = Formular - Test &<br><br>&</b><br>Firmenname = <b> & Request.QueryString(firma)&</b><br>Name = <b> & Request.QueryString(name)&</b><br>Vorname = <b> & Request.QueryString(vorname)&</b><br>Strasse = <b> & Request.QueryString(strasse)&</b><br>Land = <b> & Request.QueryString(land)&</b><br>Ort = <b> & Request.QueryString(ort)&</b><br>PLZ = <b> & Request.QueryString(plz)& <br></b>Tel: <b> & Request.QueryString(tel)& <br></b>Fax:<b> &Request.QueryString(fax)& <br></b>email:<b> &Request.QueryString(email)& <br></b>Sie sind:<b> &Request.QueryString(haendler)&Request.QueryString(endkunde)& <br></b>Wie finden Sie die Seite :<b> &Request.QueryString(news)
' Message und Configuration Objekte instanzieren
Set objMessage = CreateObject(CDO.Message)
objMessage.To = strTo -> Empfaenger
objMessage.From = strFrom -> Absender
objMessage.Subject = strSubject-> Betreff
' Versender der Nachricht:
' objMessage.Sender = [email protected]
objMessage.HTMLBody = strBody -> Nachricht
' Checkbox
If Instr(strFrom,@) = 0 Then
Response.Redirect (wrong.htm)
ElseIf Instr(strFrom,.) = 0 Then
Response.Redirect (wrong.htm)
End If
' Error Handling waehrend dem Versenden:
On Error Resume Next
' Checkbox
objMessage.Send
Response.Redirect( danke.htm)
If Err.Number = 0 Then
Response.Write Email wurde an & strTo & verschickt!
Else
Response.Write(Waehrend des Versendens ist & _
ein Fehler aufgetreten, ueberpruefen Sie die & _
Verbindung zum Internet oder dem Mailserver! & _
<br> Moeglicherweise akzeptiert der Emailserver & _
Ihre Nachricht nicht. )
Err.Number = 0
End If
On Error Goto 0
%>* Code-Tags eingefügt *
