Avatar billede Slettet bruger
30. maj 2006 - 00:05 Der er 4 kommentarer og
1 løsning

JMail - kan du hjælpe?

Jeg sidder og pusler med mit script. Jeg vil gerne have mit script til at sende en mail til mig, med spørgsmålet, navn, på den der har sendt et spørgsmål, som scriptet er nu, så sender den mail til mig hvor der står "Der er skrevet et spørgsmål i faqen."
Er der en der kan hjælpe mig :-)
<%
  ' Declaring variables
  Dim name, email, comments, data_source, con, sql_insert

  ' A Function to check if some field entered by user is empty
  Function ChkString(string)
  If string = "" Then string = " "
  ChkString = Replace(string, "'", "''")
  End Function

  ' Receiving values from Form
  name = ChkString(Request.Form("name"))
  email = ChkString(Request.Form("email"))
  comments = ChkString(Request.Form("comments"))

  data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
            Server.MapPath("form.mdb")
  sql_insert = "insert into users (name, email, comments, dato) values ('" & _
            name & "', '" & email & "', '" & comments & "','"&date()&"')"
   
' Creating Connection Object and opening the database
  Set con = Server.CreateObject("ADODB.Connection")
  con.Open data_source
  con.Execute sql_insert
  ' Done. Close the connection
  con.Close
  Set con = Nothing
  Response.Write "<FONT FACE='VERDANA' SIZE='1'>Bemærk: Dit spørgsmål bliver <b>ikke</b> vist før jeg har svaret og godkendt dit spørgsmål.</FONT><br>"
      ' =============================================
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "localhost:26"
JMail.Priority = 1
JMail.Sender = "mail@domæne.dk"
JMail.AddRecipientEx "mail@domæne.dk", ""
Jmail.AddRecipientCC "mail@domæne.dk"
Jmail.AddRecipientBCC "mail@domæne.dk"
JMail.Subject = "Der er skrevet et spørgsmål.."
JMail.Body = "Der er skrevet et spørgsmål i faqen."
JMail.Execute
Set JMail = Nothing

%>
Avatar billede Slettet bruger
30. maj 2006 - 00:16 #1
hmm... jamen hvad er det for nogle variabler som skal med?
- skal det være sådan her?:
<%
  ' Declaring variables
  Dim name, email, comments, data_source, con, sql_insert

  ' A Function to check if some field entered by user is empty
  Function ChkString(string)
  If string = "" Then string = " "
  ChkString = Replace(string, "'", "''")
  End Function

  ' Receiving values from Form
  name = ChkString(Request.Form("name"))
  email = ChkString(Request.Form("email"))
  comments = ChkString(Request.Form("comments"))

  data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
            Server.MapPath("form.mdb")
  sql_insert = "insert into users (name, email, comments, dato) values ('" & _
            name & "', '" & email & "', '" & comments & "','"&date()&"')"
   
' Creating Connection Object and opening the database
  Set con = Server.CreateObject("ADODB.Connection")
  con.Open data_source
  con.Execute sql_insert
  ' Done. Close the connection
  con.Close
  Set con = Nothing
  Response.Write "<FONT FACE='VERDANA' SIZE='1'>Bemærk: Dit spørgsmål bliver <b>ikke</b> vist før jeg har svaret og godkendt dit spørgsmål.</FONT><br>"
      ' =============================================
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "localhost:26"
JMail.Priority = 1
JMail.Sender = "mail@domæne.dk"
JMail.AddRecipientEx "mail@domæne.dk", ""
Jmail.AddRecipientCC "mail@domæne.dk"
Jmail.AddRecipientBCC "mail@domæne.dk"
JMail.Subject = "Der er skrevet et spørgsmål.."
JMail.Body = "Der er skrevet et spørgsmål i faqen." & name & "<br>" & comments
JMail.Execute
Set JMail = Nothing

%>

- er det "comments" der er spørgsmålet eller hvordan?

\Dan
Avatar billede Slettet bruger
30. maj 2006 - 00:18 #2
ja det er "comments" der er spørgsmålet :)
Avatar billede Slettet bruger
30. maj 2006 - 00:21 #3
OK! - men så burde du få det med i body´en med det script nu...

\Dan
Avatar billede Slettet bruger
30. maj 2006 - 00:22 #4
Det virker perfekt tak for hjælpen :)
Avatar billede Slettet bruger
30. maj 2006 - 00:26 #5
- Det var så lidt!

Godt det kom til at virke...

Her et svar...

\Dan
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester