HTML Mail

[markus]

Hallo!

Habe dir mal den kompletten mailsender kopiert. Ist etwas viel. Hoffe das hilft weiter.

subject = Request.QueryString("subject")
if subject = "" THEN subject = "Bewerbung Online"
on error resume next
ziel=request.form("ziel")
email=request.form("email")
'------------------------------------------------------------------
pers_daten="PERSOENLICHE DATEN" & chr(13)& chr(10)
pers_daten=pers_daten & "-----------------------------------------------" & chr(13)& chr(10)
pers_daten=pers_daten & "Position:                    " & request.form("Position") & chr(13) & chr(10)
pers_daten=pers_daten & "Titel:                       " & request.form("Titel") & chr(13) & chr(10)
pers_daten=pers_daten & "Vorname:                     " & request.form("Vorname") & chr(13) & chr(10)
pers_daten=pers_daten & "Nachname:                    " & request.form("Nachname") & chr(13) & chr(10)
pers_daten=pers_daten & "Adresse:                     " & request.form("Adresse") & chr(13) & chr(10)
pers_daten=pers_daten & "Postleitzahl, Ort:           " & request.form("plzort") & chr(13) & chr(10)
pers_daten=pers_daten & "Geburtsdatum:                " & request.form("geburtsdatum") & chr(13) & chr(10)
pers_daten=pers_daten & "Nationalitaet:               " & request.form("nationalitaet") & chr(13) & chr(10)
pers_daten=pers_daten & "Familienstand:               " & request.form("familienstand") & chr(13) & chr(10) & chr(13)& chr(10)
pers_daten=pers_daten & "KONTAKT" & chr(13) & chr(10)
pers_daten=pers_daten & "-----------------------------------------------" & chr(13) & chr(10)
pers_daten=pers_daten & "Telefon geschaeftlich:       " & request.form("Telefonbuero") & chr(13) & chr(10)
pers_daten=pers_daten & "Telefon privat:              " & request.form("Telefonprivat") & chr(13) & chr(10)
pers_daten=pers_daten & "Handy:                       " & request.form("Geburtsort") & chr(13) & chr(10)
pers_daten=pers_daten & "E-Mail:                      " & request.form("email") & chr(13) & chr(10) & chr(13)& chr(10)
pers_daten=pers_daten & "PRAESENZ-, ZIVILDIENST" & chr(13)& chr(10)
pers_daten=pers_daten & "-----------------------------------------------" & chr(13) & chr(10)
pers_daten=pers_daten & "Praesenz-, Zivildienst "& chr(13) & chr(10)
pers_daten=pers_daten & "abgeleistet:                 " & request.form("praesenzdienst") & chr(13) & chr(10)
pers_daten=pers_daten & "Dauer:                       " & request.form("dauer")
pers_daten=pers_daten & " bis: " & request.form("dauer2") & chr(13) & chr(10)
pers_daten=pers_daten & "Standort:                    " & request.form("standort") & chr(13) & chr(10) & chr(13)& chr(10)
pers_daten=pers_daten & "FINANZIELLES" & chr(13)& chr(10)
pers_daten=pers_daten & "-----------------------------------------------" & chr(13) & chr(10)
pers_daten=pers_daten & "derzeitiges Bruttoeinkommen: " & request.form("Bruttoeinkommen") & chr(13) & chr(10)
pers_daten=pers_daten & "Gehaltswunsch Brutto:        " & request.form("Gehaltswunsch") & chr(13) & chr(10) & chr(13)& chr(10)
pers_daten=pers_daten & "AUSBILDUNG" & chr(13)& chr(10)
pers_daten=pers_daten & "-----------------------------------------------" & chr(13) & chr(10)
pers_daten=pers_daten & "Ausbildung:                  " & request.form("Ausbildung") & chr(13) & chr(10)
pers_daten=pers_daten & "bisherige Berufstaetigkeit:  " & request.form("Berufstaetigkeit") & chr(13) & chr(10)
pers_daten=pers_daten & "Zeugnis:                     " & request.form("Zeugnis") & chr(13) & chr(10)
pers_daten=pers_daten & "Sprachkenntnisse:            " & request.form("Sprachkenntnisse") & chr(13) & chr(10)
pers_daten=pers_daten & "Bemerkungen:                 " & request.form("Bemerkungen") & chr(13) & chr(10) & chr(13)& chr(10)
pers_daten=pers_daten & "BISHERIGE LAUFBAHN UND AUSBILDUNG" & chr(13)& chr(10)
pers_daten=pers_daten & "-----------------------------------------------" & chr(13) & chr(10)
pers_daten=pers_daten & "Grund der Bewerbung:         "& request.form("Grund") & chr(13) & chr(10)
pers_daten=pers_daten & "Bewerbung fuer den Standort: " & request.form("Standort2") & chr(13) & chr(10)
'--------------------------------------------------------------------------------
body=pers_daten
Dim mail
set mail = Server.CreateOBject( "JMail.SMTPMail" )
mail.ServerAddress = "mail.1000ps.at"
mail.Sender = email
mail.SenderName = email
mail.AddRecipient ziel
'mail.AddRecipientBCC "[e-mail]"
mail.subject= subject
mail.Body = body
mail.Execute
mail.close
set mail=nothing
mailerror=false
If Err.Description = "" Then
%>

<title>Thank you</title>
</head>

<body bg>

<h2><font face="Arial" size="3"><b>Vielen Dank! Ihre E-Mail wurde abgeschickt!</b></font></h2>
<font face="Arial" size="2"><b>E-Mail=</b></font><%=email%><br>

</body>
<%
else
%>
<title>No valid E-Mail Adress</title>
</head>

<body>

<h2>No valid E-Mail Adress</h2>

E-Mail=<%=email%><br>

</body><%
end if
%>
<br>
<h3>
<font face="Arial"><a href="javascript:history.back()" size="2"><b>
Zurück</b></font></a></h3>

</html>