Avatar billede smidt Novice
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>&nbsp;</h1>

<p>&nbsp;</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>&nbsp;
    <p><INPUT TYPE=SUBMIT VALUE=\"Send\"></p>
  </td></tr>
</TABLE>
</FORM>

<% End If %>

<p>&nbsp;</p>

</body></html>
Avatar billede netsrac Praktikant
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>&nbsp;</h1>

<p>&nbsp;</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>&nbsp;
    <p><INPUT TYPE=SUBMIT VALUE=\"Send\"></p>
  </td></tr>
</TABLE>
</FORM>

<% End If %>

<p>&nbsp;</p>

</body></html>
 

Avatar billede smidt Novice
26. marts 2001 - 19:30 #2
Hej netsrac
Har været bortrejst så jeg tester det nu
Avatar billede netsrac Praktikant
26. marts 2001 - 19:42 #3
Okay :-)
Avatar billede smidt Novice
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
Avatar billede netsrac Praktikant
26. marts 2001 - 20:12 #5
Hm...Bliver der ikke sendt til dem der skulle have data fra formen `?
Avatar billede asker Nybegynder
26. marts 2001 - 20:16 #6
Det er kun strEmail der får en mail

Så svaret på spørgsmålet er nej
Avatar billede netsrac Praktikant
26. marts 2001 - 20:18 #7
asker >> Hvis du kigger lidt på scriptet, så burde det virke.
Avatar billede smidt Novice
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.

Avatar billede netsrac Praktikant
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


Avatar billede smidt Novice
26. marts 2001 - 20:43 #10
Ingen forskel ????
Avatar billede netsrac Praktikant
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
Avatar billede smidt Novice
26. marts 2001 - 20:56 #12
Nej
Men det er heller ikke blevet være >> jeg har tjekket mail adresserne og de virker

Avatar billede netsrac Praktikant
26. marts 2001 - 21:00 #13
Hm..
Avatar billede smidt Novice
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
%>
Avatar billede netsrac Praktikant
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
Avatar billede smidt Novice
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

Avatar billede netsrac Praktikant
26. marts 2001 - 21:27 #17
Der er jo 2 objekter, den ene sender til strEmail og den anden til de andre!
Avatar billede smidt Novice
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.
Avatar billede netsrac Praktikant
27. marts 2001 - 15:12 #19
Det script jeg som du selv har postet i det spm. burde generere mailen 2 gange.
Avatar billede smidt Novice
27. marts 2001 - 15:20 #20
Det gør den ikke.....har du tjekket det
Avatar billede smidt Novice
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\")
Avatar billede netsrac Praktikant
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.
Avatar billede smidt Novice
27. marts 2001 - 15:25 #23
Jeg har også en server der understøtter JMail
Hvordan vil scriptet se ud i JMail
Avatar billede smidt Novice
27. marts 2001 - 18:56 #24
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