Avatar billede cygnet Praktikant
05. januar 2003 - 20:46 Der er 4 kommentarer og
1 løsning

Attachment i AspMail - med AspSmartUpload ?

Jeg har lavet en kontakt form hvor jeg meget gerne vil have folk har mulighed for at tilføje et énkelt attachment fra den besøgenes harddisk - hvordan gør jeg dette ?

Gerne link til et eksempel med det ..

/cygnet
Avatar billede niceday Nybegynder
06. januar 2003 - 06:05 #1
Dvs. du vil modtage en email med indtastede oplysninger og den vedhæftede fil?
Avatar billede niceday Nybegynder
06. januar 2003 - 06:06 #2
Jeg kan løse dit problem med JMail og ASPupload, hvis dette ønskes?
Avatar billede cygnet Praktikant
06. januar 2003 - 07:36 #3
Det var det jeg ønskede - men det desværre ikke med ASPupload - må gerne værer jmail dog helst ASPmail
Avatar billede niceday Nybegynder
06. januar 2003 - 08:12 #4
Jeg kan løse halvdelen af dit problem, da jeg ikke ved hvordan ASPmail helt præcist virker, men du kan læse det i følgende link, hvor der er gode eksempler (også vedhæftning):
http://www.serverobjects.com/comp/Aspmail4.htm

Ellers skal den første fil, hvor indtastningerne ske indeholde følgende:
*******************************************************************

<form method="post" enctype="multipart/form-data" action="sendinfo.asp">


'Specificer her andre informationer, som skal sendes med i inputbokse

'Den vedhæftede fil vælges her
  <input type=file name="file1"><br>
  <input type=submit value="Upload">
</form>




Den anden fil (sendinfo.asp), som modtager skal indeholde:
********************************************************

dim fs

Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save("fysisk sti til hvor filen skal gemmes midlertidigt")
 
For Each File in Upload.Files

'Her skal din ASPmail-kode følge og henvise til den netop uploadede fil, som ligger på:
'(den fysiske sti) + File.ExtractFileName

'Dette sletter filen fra serveren
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists("fysisk stil til filen + File.ExtractFileName") then
  fs.DeleteFile("fysisk stil til filen + File.ExtractFileName")
end if
set fs=nothing
Next
Avatar billede cygnet Praktikant
27. januar 2003 - 00:22 #5
/lukker
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