26. september 2006 - 10:32Der er
4 kommentarer og 1 løsning
Sende form via Jmail
Hej
Jeg er "lidt" ny i Jmail, og kan ikke få hele formens indhold sendt via Jmail. Skal man definere hver enkelt tekstboks, eller kan man fange alt hvad der står i formen på en gang. Jeg kan sagtens få den til at sende et tekstfelt, hvis jeg bruger Request.Form("tekstfeltet")
jmail koden ser således ud:
<% Set JMail = Server.CreateOBject( "JMail.Message" ) JMail.MailServerUserName = "info@domæne.dk" JMail.MailServerPassword = "12345" JMail.From = "info@domæne.dk" JMail.AddRecipient "alj@domæne.dk" JMail.Subject = "Ordre fra hjemmesiden" jMail.body = body & "Style: " & Request.Form("style") & vbCrLf jMail.body = body & "Beskrivelse: " & Request.Form("Beskrivelse") & vbCrLf jMail.body = body & "Farve: " & Request.Form("Farve") & vbCrLf jMail.body = body & "Farvekode: " & Request.Form("Farvekode") & vbCrLf jMail.body = body & "Størrelse: " & Request.Form("Str") & vbCrLf jMail.body = body & "Antal: " & Request.Form("Antal") & vbCrLf JMail.Priority = 3 If JMail.Send("193.31.15.31") Then Response.Write("Din ordre er sendt<BR><BR>") Else Response.Write("Der skete en fejl under afsendelsen af ordren, send venligst ordren igen<BR><BR>") End If
Set JMail = Nothing %>
------------------------------------------------------------- Form koden ser således ud:
If Request.Form.Key(i) <> "url" Then StrengBody = StrengBody & Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf End if
Next
JMail.Body = StrengBody JMail.Priority = 3 If JMail.Send("193.31.15.31") Then Response.Write("Din ordre er sendt<BR><BR>") Else Response.Write("Der skete en fejl under afsendelsen af ordren, send venligst ordren igen<BR><BR>") End If
StrengBody = "" For i = 1 to Request.Form.Count StrengBody = StrengBody & Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf Next
JMail.Body = StrengBody JMail.Priority = 3 If JMail.Send("193.31.15.31") Then Response.Write("Din ordre er sendt<BR><BR>") Else Response.Write("Der skete en fejl under afsendelsen af ordren, send venligst ordren igen<BR><BR>") End If
StrengBody = "" For i = 1 to Request.Form.Count StrengBody = StrengBody & Request.Form.Key(i) & ": " & Request.Form.Item(i) & vbcrlf & vbcrlf Next
JMail.Body = StrengBody JMail.Priority = 3
If JMail.Send("193.31.15.31") Then Response.Write("Din ordre er sendt<BR><BR>") Else Response.Write("Der skete en fejl under afsendelsen af ordren, send venligst ordren igen<BR><BR>") End If
Set JMail = Nothing %>
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.