20. marts 2001 - 18:27
Der er
23 kommentarer og 1 løsning
aRecipients minus Attachfile
Her for den der udfylder formulare en eMail med en fil vedhæftet. Samtidig får aRecipient en kopi & det er her problemet opstår for han skal kun have informationer fra formularen strName strAdress osv. og uden en vedhæftet fil Hvordan skriver man det.. <% @LANGUAGE = VBScript %> <% Option Explicit %> <html> <head> <title>test</title> <title>test</title> </head> <body bgcolor=#ffffff> <% Dim strName, strEmail, strAdress, strQuery, strBy strName = Trim(Request.Form(\"ClientName\")) strEmail = Trim(Request.Form(\"ClientEmail\")) strAdress = Trim(Request.Form(\"ClientAdress\")) strQuery = Trim(Request.Form(\"ClientQry\")) strBy = Trim(Request.Form(\"ClientBy\")) If (strName <> \"\" And strAdress <> \"\" And strBy <> \"\") Then Dim objMail, aRecipients Set objMail = Server.CreateObject(\"CDONTS.NewMail\") objMail.From = \"22@xx.dk\" objMail.To = strEmail objMail.Subject = \"Fremsendelse af opstilling via eMail til \" & strName aRecipients = Array(\"11@xx.dk\", _ \"33@xx.dk\") objMail.AttachFile Server.MapPath(\"../Pdfer/1809_d6.PDF\") objMail.BCC = Join(aRecipients, \";\") objMail.Body = \"Hermed fremsendes den bestilte opstilling! \" & strName objMail.Send Response.Write \"Tak for din bestilling! \" & strName Set objMail = Nothing Else %> <h1> </h1> <p> </p> <FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST> <TABLE BORDER=0> <tr><td>Name:</td><td><IMG border=0 src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td><INPUT NAME=\"ClientName\" VALUE=\"\" SIZE=57></td></tr> <tr><td>Adresse:</td><td><IMG border=0 src=\"../images/stjerne.gif\"></td><td><!--webbot bot=\"Validation\" S-Validation-Constraint=\"Greater than\" S-Validation-Value=\"1\" --><input type=\"text\" name=\"ClientAdress\" size=\"57\"></td></tr> <tr><td>Postnr. og by:</td><td><IMG border=0 src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td><!--webbot bot=\"Validation\" S-Validation-Constraint=\"Greater than\" S-Validation-Value=\"1\" --><input type=\"text\" name=\"ClientBy\" size=\"57\"></td></tr> <tr><td>Tlf:</td><td></td><td><input type=\"text\" name=\"telefon\" size=\"18\">Tlf (arbejde/mobil):<input type=\"text\" name=\"TlfArbejde\" size=\"16\"></td></tr> <tr><td>eMail:</td><td></td><td><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40></td></tr> <tr><td valign=top>Comment/Question</td><td></td><td><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA></td></tr> <tr><td></td><td></td><td> <p><INPUT TYPE=SUBMIT VALUE=\"Send\"></p> </td></tr> </TABLE> </FORM> <% End If %> <p> </p> </body></html>
Annonceindlæg fra Barco
20. marts 2001 - 20:03
#1
<% @LANGUAGE = VBScript %> <% Option Explicit %> <html> <head> <title>test</title> <title>test</title> </head> <body bgcolor=#ffffff> <% Dim strName, strEmail, strAdress, strQuery, strBy strName = Trim(Request.Form(\"ClientName\")) strEmail = Trim(Request.Form(\"ClientEmail\")) strAdress = Trim(Request.Form(\"ClientAdress\")) strQuery = Trim(Request.Form(\"ClientQry\")) strBy = Trim(Request.Form(\"ClientBy\")) If (strName <> \"\" And strAdress <> \"\" And strBy <> \"\") Then Dim objMail, aRecipients, tmp tmp = \"Navn \" & Strname & vbcrlf & \"Email \" & strEmail & vbcrlf & \"Adresse \" & strAdress & vbcrlf & \"Query \" & strQuery & vbcrlf & \"By \" & strby Set objMail = Server.CreateObject(\"CDONTS.NewMail\") objMail.From = \"22@xx.dk\" objMail.To = strEmail objMail.Subject = \"Fremsendelse af opstilling via eMail til \" & strName objMail.AttachFile Server.MapPath(\"../Pdfer/1809_d6.PDF\") objMail.Body = \"Hermed fremsendes den bestilte opstilling! \" & strName objMail.Send Response.Write \"Tak for din bestilling! \" & strName Set objMail = Nothing Set objMail = CreateObject(\"CDONTS.NewMail\") objMail.Subject = \"Fremsendelse af opstilling via eMail til \" & strName aRecipients = Array(\"11@xx.dk\", _ \"33@xx.dk\") objMail.Body = tmp objMail.BCC = Join(aRecipients, \";\") objMail.Send Set objMail = Nothing Else %> <h1> </h1> <p> </p> <FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST> <TABLE BORDER=0> <tr><td>Name:</td><td><IMG border=0 src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td><INPUT NAME=\"ClientName\" VALUE=\"\" SIZE=57></td></tr> <tr><td>Adresse:</td><td><IMG border=0 src=\"../images/stjerne.gif\"></td><td><!--webbot bot=\"Validation\" S-Validation-Constraint=\"Greater than\" S-Validation-Value=\"1\" --><input type=\"text\" name=\"ClientAdress\" size=\"57\"></td></tr> <tr><td>Postnr. og by:</td><td><IMG border=0 src=\"../images/stjerne.gif\" width=\"10\" height=\"10\"></td><td><!--webbot bot=\"Validation\" S-Validation-Constraint=\"Greater than\" S-Validation-Value=\"1\" --><input type=\"text\" name=\"ClientBy\" size=\"57\"></td></tr> <tr><td>Tlf:</td><td></td><td><input type=\"text\" name=\"telefon\" size=\"18\">Tlf (arbejde/mobil):<input type=\"text\" name=\"TlfArbejde\" size=\"16\"></td></tr> <tr><td>eMail:</td><td></td><td><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40></td></tr> <tr><td valign=top>Comment/Question</td><td></td><td><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA></td></tr> <tr><td></td><td></td><td> <p><INPUT TYPE=SUBMIT VALUE=\"Send\"></p> </td></tr> </TABLE> </FORM> <% End If %> <p> </p> </body></html>
26. marts 2001 - 19:30
#2
Hej netsrac Har været bortrejst så jeg tester det nu
26. marts 2001 - 19:42
#3
Okay :-)
26. marts 2001 - 20:04
#4
Hej objMail.To = strEmail fik en mail med vehæftede fil så det virker stadig...... men ingen til aRecipients ??? Der er ikke generede nogen
26. marts 2001 - 20:12
#5
Hm...Bliver der ikke sendt til dem der skulle have data fra formen `?
26. marts 2001 - 20:16
#6
Det er kun strEmail der får en mail Så svaret på spørgsmålet er nej
26. marts 2001 - 20:18
#7
asker >> Hvis du kigger lidt på scriptet, så burde det virke.
26. marts 2001 - 20:24
#8
Hej objMail.To = strEmail er den eneste der har fået en mail Så dem fra formen får ingen.
26. marts 2001 - 20:27
#9
Prøv at udskifte: aRecipients = Array(\"11@xx.dk\", _ \"33@xx.dk\") objMail.Body = tmp objMail.BCC = Join(aRecipients, \";\") med: aRecipients = Array(\"33@xx.dk\",\"11@xx.dk\") objMail.To = Join(aRecipients, \";\") objMail.Body = tmp
26. marts 2001 - 20:43
#10
Ingen forskel ????
26. marts 2001 - 20:48
#11
Det forstår jeg sq ikke, prøv med: objMail.To = \"33@xx.dk;11@xx.dk\" objMail.Body = tmp
26. marts 2001 - 20:56
#12
Nej Men det er heller ikke blevet være >> jeg har tjekket mail adresserne og de virker
26. marts 2001 - 21:00
#13
Hm..
26. marts 2001 - 21:04
#14
Jeg har fundet det her script kan man bruge det <% @LANGUAGE = VBScript %> <% Option Explicit Dim myMail Set myMail = Server.CreateObject(\"CDONTS.NewMail\") myMail.Send \"webmaster@asp24h.com\", \"brains@softwing.com\", _ \"My first mail\", \"This message is sent to you Chris.\", 0 Set myMail = Nothing %>
26. marts 2001 - 21:10
#15
Tja udskift: Set objMail = CreateObject(\"CDONTS.NewMail\") objMail.Subject = \"Fremsendelse af opstilling via eMail til \" & strName aRecipients = Array(\"11@xx.dk\", _ \"33@xx.dk\") objMail.Body = tmp objMail.BCC = Join(aRecipients, \";\") objMail.Send Set objMail = Nothing Med: Set myMail = Server.CreateObject(\"CDONTS.NewMail\") myMail.Send \"11@xx.dk\", \"33@xx.dk\", _ \"Fremsendelse af opstilling via eMail til \" & strName, tmp, 0 Set myMail = Nothing
26. marts 2001 - 21:20
#16
Det vil ikke virke dersom strEmail ikke får Jeg prøver at oprette spørgsmålet over i ASP
26. marts 2001 - 21:27
#17
Der er jo 2 objekter, den ene sender til strEmail og den anden til de andre!
27. marts 2001 - 15:08
#18
Hej netsrac
Ja og jeg oprettet spørgsmålet på ASP.....
Se spørgsmål
http://www.eksperten.dk/spm/59833 Men jeg ved ikke hvordan man generere mailen 2 gange.
Kan du hjælpe.
27. marts 2001 - 15:12
#19
Det script jeg som du selv har postet i det spm. burde generere mailen 2 gange.
27. marts 2001 - 15:20
#20
Det gør den ikke.....har du tjekket det
27. marts 2001 - 15:22
#21
netsrac som du kan se har jeg ændret: Set myMail = CreateObject(\"CDONTS.NewMail\") til:Set myMail = Server.CreateObject(\"CDONTS.NewMail\")
27. marts 2001 - 15:23
#22
Jeg har ikke mulighed for at teste det, da min server ikke understøtter CDONTS, men kun JMail, desværre.
27. marts 2001 - 15:25
#23
Jeg har også en server der understøtter JMail Hvordan vil scriptet se ud i JMail
27. marts 2001 - 18:56
#24
Kurser inden for grundlæggende programmering