Just nu i M3-nätverket
Jump to content

Hur utökar man ett Jmail formulär


ChristerNyberg

Recommended Posts

ChristerNyberg

Hej Jag har ett Jmail script här... och testade det och de funkade när det såg ut som nedan. Utan kunskap försökte jag utöka scriptet med fler uppgifter, email, adress, telefonnummer, ålder ..ets

Tex med det blå färgade raden nedan....Epost

Det gick inget bra.. Går det inte att utföra, eller kan någon ge mig lite hjälp på traven ?

MCH Christer

 

<%@LANGUAGE = VBSCRIPT%>
<%
If Request.Form("Submit") <> "" Then
 set msg = Server.CreateOBject("JMail.Message")

 msg.Logging = true
 msg.silent = true

 msg.AddRecipient "mail@ryggforening.se", "Namn"

 msg.From = Request.Form("From")
 msg.FromName = Request.Form("FromName")

 msg.Subject = Request.Form("Subject")
 msg.Body = Request.Form("Message")

[color="#0000ff"]msg.Epost = Request.Form("Epost")[/color]

 msg.MailServerUserName = "mail@ryggforening.se"
 msg.MailServerPassword = "00"

 If not msg.Send("smtp.ryggforening.se:587") Then
   Response.write "<pre>" & msg.log & "</pre>"
 Else
     Response.write "TACK ! Meddelandet sänt ! Kolla din Epost för mer information !!"
 End If
End If
%>

 

Link to comment
Share on other sites

det finns ingen property i jmail som heter e-mail.

 

För att konkatera meddelandet med fler uppgifter gör du följande:

 

dim sMessage
sMessage =  Request.Form("Message")  & VbCrLf & VbCrLf
'VbCrLf gör en radbrytning vid oformaterat mail. Använd annars "<br>" inkl citattecken

sMessage = sMessage & "e-postadress: "&Request.Form("Epost") & VbCrLf & VbCrLf
sMessage = sMessage & "Telefon: "&Request.Form("telefon")

msg.Body = sMessage

 

Link to comment
Share on other sites

ChristerNyberg

Hej !

Tack för det. Men jag är helt novis och om jag skall komma vidare så

måste jag nog ha hjälp med att stoppa in din kod i min. Jag kan ej se var någonstans detta skall in. Dessutom har jag ytterligare inputs till att lägga till skriptet....

Totalt dessa

 

FromName, Adress, Ort, Postnr, Tele, Message, Epost, Hittade, Age, Rygg, Lan,

 

Kanske inte går ? Ersätter gärna om du orkar..

MVH Christer

 

Link to comment
Share on other sites

 

<%@LANGUAGE = VBSCRIPT%>
<%
If Request.Form("Submit") <> "" Then
 set msg = Server.CreateOBject("JMail.Message")

 msg.Logging = true
 msg.silent = true

 msg.AddRecipient "mail@ryggforening.se", "Namn"

 msg.From = Request.Form("From")
 msg.FromName = Request.Form("FromName")

 '***ändrat nedan
 msg.Subject = Request.Form("Subject")

 dim sMessage : sMessage=""
 sMessage = sMessage & Request.Form("Message")  & VbCrLf & VbCrLf

 sMessage = sMessage & "E-postadress: " & Request.Form("Epost") & VbCrLf & VbCrLf
 sMessage = sMessage & "Telefon: " & Request.Form("Tele") & VbCrLf & VbCrLf
 ' lägg till ytterligare rad efter ovanstående och ändra text och fältnamn efter behov


 msg.Body = sMessage
 '** ändrat ovan

 msg.MailServerUserName = "mail@ryggforening.se"
 msg.MailServerPassword = "00"

 If not msg.Send("smtp.ryggforening.se:587") Then
   Response.write "<pre>" & msg.log & "</pre>"
 Else
     Response.write "TACK ! Meddelandet sänt ! Kolla din Epost för mer information !!"
 End If
End If
%>

 

Link to comment
Share on other sites

ChristerNyberg

Javisst ...jag skall testa skriva idag så återkommer jag..

 

(Tidigare ser det ut http://www.ryggforening.se/formular.asp

med ett formmail...men funkar ej så bra)

 

Kan man få till en tacksida också ? Nu är bara en liten fras

man knappt uppfattar.... eller om man kan åtminstone formatera den...

 

christer.ny@gmail.com

 

[inlägget ändrat 2009-09-17 06:12:49 av Chrisny]

Link to comment
Share on other sites

ChristerNyberg

Hej igen

 

Jag testade med de uppgifter du skrev in. Det ser ut som det går iväg, man får Tack skriften och inga felmeddelande. Men boxen mail@ryggforening.se får inget meddelande i inboxen.

(jag har rätt password)

 

Det första skriptet gav meddelande i boxen...

 

Vad kan man tro ?

 

Link to comment
Share on other sites

ChristerNyberg

 

Hej , Jag skickade upp på server koden du gav mig...Asp koden här....eller måste du ha html också ?

MVH christer

 

 

<%@LANGUAGE = VBSCRIPT%>
<%
If Request.Form("Submit") <> "" Then
 set msg = Server.CreateOBject("JMail.Message")

 msg.Logging = true
 msg.silent = true

 msg.AddRecipient "mail@ryggforening.se", "Namn"

 msg.From = Request.Form("From")
 msg.FromName = Request.Form("FromName")

 '***ändrat nedan
 msg.Subject = Request.Form("Subject")

 dim sMessage : sMessage=""
 sMessage = sMessage & Request.Form("Message")  & VbCrLf & VbCrLf

 sMessage = sMessage & "E-postadress: " & Request.Form("Epost") & VbCrLf & VbCrLf
 sMessage = sMessage & "Telefon: " & Request.Form("Tele") & VbCrLf & VbCrLf
 ' lägg till ytterligare rad efter ovanstående och ändra text och fältnamn efter behov

 msg.Body = sMessage
 '** ändrat ovan

 msg.MailServerUserName = "mail@ryggforening.se"
 msg.MailServerPassword = "cb2200"

 If not msg.Send("smtp.ryggforening.se:587") Then
   Response.write "<pre>" & msg.log & "</pre>"
 Else
     Response.write "TACK ! Meddelandet sänt ! Kolla din Epost för mer information !!"
 End If
End If
%>

 

Link to comment
Share on other sites

ändra

Response.write "TACK ! Meddelandet sänt ! Kolla din Epost för mer information !!"

 

till

Response.write "TACK ! Meddelandet sänt ! Kolla din Epost för mer information !!"& msg.log

kopiera meddelandet då får efter att det skickats.

 

Det ser rätt ut och får du ett Tack-meddelande skall det gått iväg.

 

En tack-sida kan du skicka användaren till om du ändrar

Response.write "TACK ! Meddelandet sänt ! Kolla din Epost för mer information !!"

 

Till

Response.Clear
Response.Redirect "tacksidan.html"

men gör det först när du vet att allt fungerar.

byt då ut tacksidan.html mot den sida som användaren skall skickas till.

 

 

 

 

 

Link to comment
Share on other sites

ChristerNyberg

Hej och tack !

 

Jag får detta felmeddelande vid sändning

 

TACK ! Meddelandet sänt ! Kolla din Epost för mer information !!.execute() { Trying server mail:smtp.ryggforening.se:587 <- 220 s128.loopia.se ESMTP -> EHLO s154 <- 250-s128.loopia.se 250-PIPELINING 250-SIZE 209715200 250-STARTTLS 250-AUTH LOGIN PLAIN 250 8BITMIME -> AUTH LOGIN Sending authentication data.. 0 of 1 servers failed }

 

Link to comment
Share on other sites

det är inget felmeddelande.

Loggen visar att mailet gått iväg. Det är något annat fel. Prova skicka till eller från annan adress

 

Link to comment
Share on other sites

ChristerNyberg

Hej !

Ja nu har jag i alla fall kommit tillbaka till ruta ett, boxen får info, och några av dina förslag är inlagda...skall bara jobba vidare med resten..jag återkommer i morgon...Tack !

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...