07. september 2004 - 09:36Der er
9 kommentarer og 1 løsning
Formular med mulighed for at vedhæfte billeder søges
Hej,
Jeg skal bruge en formular med de sædvanlige felter til kontaktinfo. Ud over dette skal formularen også indeholde en mulighed for at uploade et billede. Billedet skal ikke lægges op i en DB, men skal medsendes i mailen som formularen genererer.
Links til en sådan samt lidt info om nødvendige komponenter modtages med tak.
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set Upload = Server.CreateObject("Persits.Upload.1")
'ret brugernavn til dit brugernavn hos azero: Count = Upload.Save ("d:\Webfiler\test\db\")
if Count>0 then set file1=Upload.Files("file1") end if
navn = Upload.form("navn") email = Upload.form("email")
Set JMail = Server.CreateObject("JMail.SMTPMail") 'REt DOMÆNE til dit domæne navn: JMail.ServerAddress = "post.tele.dk" JMail.Sender = "post@test.dk" JMail.Subject = "Måske en fil til dig" JMail.AddRecipient "post@test.dk"
JMail.Body = "En mail fra : " & navn & " og brugeren har denne email adresse : " & email
if Count>0 then JMail.AddAttachment (file1.path) end if JMail.Execute
Set JMail = Nothing
if count>0 then Upload.DeleteFile (file1.path) end if
Du har da ret - Filen er med. Jeg blev bare snydt af, at der ingen clips var. Burde man egentlig ikke i Outlook så kunne sige hvis vedhæftede filer ? Jeg er nødt til at gemme dem først.
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.