>bagvedliggende programmering skal udføres i Adobe Acrobat
De ville fint virke med de links jeg sendte.
At sende filen filen efter den er generet på serveren er ikke det store.
Der findes man componenter til det.
Jeg bruger selv
http://fileup.softartisans.com/default.aspx?PageID=130Her er en stump kode jeg lige havde ved hånden som kunne vedhæfte en fil med overstående komponent
<% @language="VBSCRIPT" %>
<%
on error resume next
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.MaxBytes = 500000
if upl.UserFilename <> "" then
upl.Path = "C:\xfilestemp"
upl.Save
end if
Set objMail = Server.CreateObject("CDONTS.Newmail")
objMail.To = upl.Form("recipient")
objMail.Subject = upl.Form("subject")
objMail.From = upl.Form("sender")
if upl.Form("recipientcc") <> "" then
objMail.Cc = upl.Form("recipientcc")
end if
if upl.Form("recipientbcc") <> "" then
objMail.bcc = upl.Form("recipientbcc")
end if
if upl.Form("format") = "1" then
objMail.Body = upl.Form("body") & vbcrlf & vbcrlf & "Sent by
http://xxxxxx.dk" else
objMail.Body = upl.Form("body") & "<br><br>Sent by
http://xxxxxx.dk" end if
objMail.BodyFormat = upl.Form("format")
objMail.MailFormat = 0
objMail.Importance = cint(upl.Form("Importance"))
if upl.UserFilename <> "" then
objMail.AttachFile(upl.ServerName)
end if
objMail.Send
Set objMail = Nothing
if upl.UserFilename <> "" then
upl.Delete
end if
On Error GoTo 0
%>
<html>
<head>
<title>Send mail - sent</title>
<script language="javascript">
alert('Mail sent')
top.location.href = '/'
</script>
</head>
<body bgcolor="#cccccc" bottommargin=0 leftmargin=0 rightmargin=0 topmargin=0 MARGINWIDTH="0" MARGINHEIGHT="0" margintop=0 marginleft=0>
</body>
</html>
