Formular med tilbagesvar til email adr.
Hej.Jeg har følgende opgave. Jeg har en formular der kan returnere nogen oplysninger. Nu ønsker jeg at formularen tager enailen der udfyldes i formularen og sender en kopi til denne.
Altså jeg ønsker at denne linie bliver ændret så den kan bruge variablen fra formularen. JMail.AddRecipientCC "xxxe@xxxx.dk"
Hvordan gøres det.
Jeg vedlægger hele første delen af formularen.
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0
'Her bliver variabler til inputene fra formen defineret
Dim strName, strAddresse, strPostnummer, strBy, strTlf, strEmail, strbem, strxxx1, strxxxx2, strxxx3, strxxx3, strxxx4,strxxx5, strxxx6, xxx7, xxx8
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
strName = Trim(Request.Form("navn"))
strAddresse = Trim(Request.Form("addresse"))
strPostnummer = Trim(Request.Form("postnummer"))
strBy = Trim(Request.Form("by"))
strTlf = Trim(Request.Form("tlf"))
strEmail = Trim(Request.Form("email"))
strbem = Trim(Request.Form("bem"))
strxxx1 = Trim(Request.Form("xxx1"))
strxxx2 = Trim(Request.Form("xxx2"))
strxxx3 = Trim(Request.Form("xxx3"))
strxxx4 = Trim(Request.Form("xxx4"))
strxxx5 = Trim(Request.Form("xxx5"))
strxxx6 = Trim(Request.Form("xxx6"))
strxxx7 = Trim(Request.Form("xxx7"))
strxxx8 = Trim(Request.Form("xxx8"))
JMail.ServerAddress = "xxx.xxxx.dk"
JMail.sender = "xxx@xxx.dk"
JMail.subject = "Forespørgsel fra www.xxxx.dk"
JMail.AddRecipient "xxx@xxxx.dk"
JMail.AddRecipientCC "xxxe@xxxx.dk"
JMail.AddRecipientBCC "xxxe@xxxx.dk"
'Her bliver e-mailen til et "ENTER" bliver angivet med: "& VbCrLF"
JMail.Body = "Mail fra formularen på yachtsejlerskolens website.: " & VbCrLf
JMail.Body = JMail.Body & strName & VbCrLf
JMail.Body = JMail.Body & strAddresse & VbCrLf
JMail.Body = JMail.Body & strPostnummer& " " & strBy & VbCrLf
JMail.Body = JMail.Body & "Telefon nummer: " & strTlf & VbCrLf
JMail.Body = JMail.Body & "e-mail: " & strEmail & VbCrLf & VbCrLf
JMail.Body = JMail.Body & "Bemærkninger:" & strbem & VbCrLf
JMail.Body = JMail.Body & "xxx1:" & strxxx1 & VbCrLf
JMail.Body = JMail.Body & "xxx2:" & strxxx2 & VbCrLf
JMail.Body = JMail.Body & "xxx3:" & strxxx3 & VbCrLf
JMail.Body = JMail.Body & "xxx4:" & strxxx4 & VbCrLf
JMail.Body = JMail.Body & "xxx5:" & strxxx5 & VbCrLf
JMail.Body = JMail.Body & "xxx6:" & strxxx6 & VbCrLf
JMail.Body = JMail.Body & "xxx7:" & strxxx7 & VbCrLf
JMail.Body = JMail.Body & "xxx8:" & strxxx8 & VbCrLf
JMail.Body = JMail.Body & strCv
'Her bliver form-mailens prioritet bestemt
' 1 - højeste (Haster / Vigtigt)
' 3 - normal
' 5 - lavest
JMail.Priority = 3
JMail.Execute
Håber på hurtigt svar.
