<% '******************************************************************* '*START***************E-Mail versenden****************************** '***********************************************************artGATE* If Request.Form("HF_MailSEND") = "true" Then 'First lets Dim all the variables we need Dim ObjSendMail Set ObjSendMail = Server.CreateObject("CDO.Message") 'Now lets get some values for the variables from the form 'youremail = Request.Form("DD_Empfaenger") 'subject = "Kontaktformular - www.siebaut.ch.ch" if Request.Form("TF_Email") <> "" then ObjSendMail.From = Request.Form("TF_Email") else ObjSendMail.From = "info@siebaut.ch" end if 'Hier wird die Struktur der zu verschickenden Email definiert strBody = "ABSENDER" & vbCRLF & "
" strBody = strBody & "Anrede: " & Request.Form("OS_Anrede") & vbCRLF & "
" strBody = strBody & "Firma: " & Request.Form("TF_Firma") & vbCRLF & "
" strBody = strBody & "Name, Vorname: " & Request.Form("TF_NameVorname") & vbCRLF & "
" strBody = strBody & "Adresse: " & Request.Form("TF_Adresse")& vbCRLF & "
" strBody = strBody & "PLZ/Ort: " & Request.Form("TF_PLZOrt")& vbCRLF & "
" strBody = strBody & "Fon: " & Request.Form("TF_Fon")& vbCRLF & "
" strBody = strBody & "Erreichbarkeit: " & Request.Form("TF_von") & " bis " & Request.Form("TF_bis")& vbCRLF & "
" strBody = strBody & "E-Mail: " & Request.Form("TF_Email")& vbCRLF & "
" strBody = strBody & "覧覧覧覧覧覧覧覧覧" & vbCRLF & "
" strBody = strBody & "Ihre Mitteilung an uns:" & vbCRLF & "
" strBody = strBody & Request.Form("TF_Mitteilung") & vbCRLF & "
" strBody = strBody & "覧覧覧覧覧覧覧覧覧" & vbCRLF & "
" ' Outgoing SMTP server ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Update 'Now lets put the variables and other information we need into the mailing script ObjSendMail.To = "neco.wyrsch@bluewin.ch" ObjSendMail.Subject = "Kontaktformular - www.siebaut.ch" ' we are sending a html email.. simply switch the comments around to send a text email instead ObjSendMail.HTMLBody = strBody 'ObjSendMail.TextBody = MyBody ObjSendMail.Send Set ObjSendMail = Nothing End If '******************************************************************* '*ENDE***************E-Mail versenden******************************* '***********************************************************artGATE* %>
<%If Request.Form("HF_MailSEND") <> "true" Then%>
anrede*  
firma
name*  
adresse  
plz, ort  
fon  
erreichbarkeit  
e-mail*  
mitteilung  
* = pflicht  
<%ELSE%> <%Response.Write("Die nachfolgende Meldung wurde versendet:" & "
" & "
")%> <%Response.Write(strBody)%> <%END IF%>