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:
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.