Avatar billede smidt Novice
26. marts 2001 - 21:23 Der er 3 kommentarer og
1 løsning

aRecipient minus Attachfile

Her får 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 gandalfthewhite Nybegynder
26. marts 2001 - 21:34 #1
Jeg har lige løbet de properties igennem der er på CDONTS objectet, og tør sige ret sikkert, at du ikke kan undgå filen bliver vedhæftet til BCC modtagerne.
Hvis du skal undgå dette bliver du nok nød til at oprette en ny indstands af CDONTS og så generere mailen to gange - dog uden attach den ene gang.
Avatar billede smidt Novice
26. marts 2001 - 21:46 #2
Har du et forslag til koden (jeg har prøvet med

<% @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 = \"11@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 xxxxxxxxxxxxxxxxxxxxxxxxxxdddddbestilte opstilling! \" & strName
    objMail.Send
   
    Response.Write \"Tak for din bestilling! \" & strName
    Set objMail = Nothing


   
    Set myMail = Server.CreateObject(\"CDONTS.NewMail\")
myMail.Send \"11@xx.dk\", \"22@xx.dk\", _
    \"Fremsendelse af opstilling via eMail til \" & strName, tmp, 0
Set myMail = Nothing
%>

<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>


Men det går helt galdt
Avatar billede smidt Novice
27. marts 2001 - 15:35 #3
gandalfthewhite 
Skal jeg opfatte din tavshed som at du ikke vil hjælpe eller ikke kan.
Som du kan høre er jeg lidt desperat såååå lidt hjælp ønskes
Har jeg afsat for lidt point
Avatar billede smidt Novice
27. marts 2001 - 18:51 #4
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