CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede meyer Nybegynder
20. august 2008 - 11:13 Der er 12 kommentarer og
1 løsning

vedhæft flere filer i jmail med aspupload

Er her nogen der kan hjælpe mig med at få denne til at sende flere vedhæftede filer?

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Set Upload = Server.CreateObject("Persits.Upload.1")
  Upload.SetMaxSize 8000000, True
  On Error Resume Next
 
  Count = Upload.Save
  If Err.Number = 8 Then
    fejl = "Filen er for stor."
  Else
    if Err <> 0 then Fejl = "Der opstod en fejl : " & Err.Description
  end if     


 
  Count = Upload.Save ("D:\vhosts\xxx.dk\httpdocs\log\intranet\")
 
  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 = "mail.xxx.dk"
  JMail.Sender        = "xxx@xxx.dk"
  JMail.Subject      = "emnet"
  JMail.AddRecipient  "xxx@xxx.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
 
  Set file1=nothing
  set upload=nothing
 
  Response.Write "Mail sendt."
end if
%>
<html>
<head></head>
<body>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="POST" ENCTYPE="multipart/form-data">
<br>Navn: <input type="text" name="navn" size="20">
<br>Fra (email): <input type="text" name="email" size="20">
<br>Fil1: <input type="file" name="file1" size="20">
<br><input type="submit" name="send" value="send">
</form>
</body>
</html>
Avatar billede w13 Novice
20. august 2008 - 11:27 #1
Du kører bare:

JMail.AddAttachment (file1.path)

for hver uploadede fil.
Avatar billede meyer Nybegynder
20. august 2008 - 11:44 #2
Så kommer den med fejl: Object required: 'file2'
Avatar billede w13 Novice
20. august 2008 - 11:46 #3
Ja, du skal også rette her:

  if Count>0 then
    set file1=Upload.Files("file1")
  end if

Det skal vel så være:

  if Count>0 then
    set file1=Upload.Files("file1")
    set file2=Upload.Files("file2")
  end if

Så skal du selvfølgelig sørge for, at uploadfeltet hedder "file2".

Og den skal også slettes fra serveren igen, så ret:

  if count>0 then
    Upload.DeleteFile (file1.path)
  end if
 
  Set file1=nothing

til:

  if count>0 then
    Upload.DeleteFile (file1.path)
    Upload.DeleteFile (file2.path)
  end if
 
  Set file1=nothing
  Set file2=nothing
Avatar billede meyer Nybegynder
20. august 2008 - 11:53 #4
Hmmm... ja selvfølgelig ...
havde skrevet:

if Count>0 then
    set file1=Upload.Files("file1")
    set file1=Upload.Files("file2")
      end if

;-)
Avatar billede meyer Nybegynder
20. august 2008 - 11:55 #5
Hvis jeg nu skal sende til en gruppe fra databasen hvor skal jeg så sætte mit loop ind henne?

do while...

loop
Avatar billede w13 Novice
20. august 2008 - 12:02 #6
Det er rundt om denne linje:

JMail.AddRecipient  "xxx@xxx.dk"

Så du får:

Do While Not rs.EOF
  JMail.AddRecipient  rs("email")
  rs.MoveNext
Loop

Hvis du altså lægger e-mail-adresserne i recordsettet kaldet "rs".
Avatar billede w13 Novice
20. august 2008 - 12:04 #7
:)
Avatar billede meyer Nybegynder
20. august 2008 - 13:00 #8
Endnu en gang redder du mig ;-)

Tusind tak!
Avatar billede meyer Nybegynder
20. august 2008 - 13:25 #9
Jeg får dog denne fejl når jeg eksempelvis kun sender 1 fil:

Object required: 'file2'

I den linie hvor den vil slette.....
Avatar billede meyer Nybegynder
20. august 2008 - 13:48 #10
Har klaret den :-)
Avatar billede meyer Nybegynder
20. august 2008 - 13:57 #11
Øhh.. det har jeg ikke alligevel - det ser ud til at det er der hvor vi attacher filerne det går galt..hvis der kun er en så mangler den fil 2 osv.
Avatar billede w13 Novice
20. august 2008 - 14:11 #12
Så må du smide en if-sætning rundt om de steder, hvor file2 optræder. F.eks.:

if Count>0 then
    set file1=Upload.Files("file1")
    if Upload.Files("file2") then
        set file1=Upload.Files("file2")
    end if
end if

og:

  if count>0 then
    Upload.DeleteFile (file1.path)
    if Upload.Files("file2") then
      Upload.DeleteFile (file2.path)
    end if
  end if

  Set file1=nothing
  if Upload.Files("file2") then
    Set file2=nothing
  end if
Avatar billede meyer Nybegynder
20. august 2008 - 14:19 #13
Takker :-)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP 6 09/03/202418:16 10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP 10 15/10/202313:12 18/10/202308:48
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:39 Hjælp til Google Fotos Af Kbr i Foto & video
I går 12:25 Hjælp til wifi Af Kim1998 i Andet sikkerhed
I går 11:26 Fjerne systemfiler på 97 Gb Af nu_igen i Backup- & Antivirus
06/0912:07 Kan ike skrive same bogstav to gange efter hinanden Af KurtG i Windows
06/0911:25 Font til danskundervisning Af Katja Mikkelsen i Andet software
White papers
Flere white papers »


Premium
Teaser billede
Hårde tider for Danmarks største it-selskaber: Mere end en tredjedel af profitten er forduftet
Læs mere »
Pludselig exit fra Schultz kom som en overraskelse for Merete Søby: Derfor stoppede samarbejdet
Fagforbund rasende: Ansatte har fået blot 50 kroner i timen for at arbejde på Microsofts datacenter i Køge - melder firma til politiet
Microsoft vil have flere kunder ind i folden: Åbner for verdensomspændende rabat på Copilot M365
Se alle »
Computerworld
Teaser billede
Om en uge går det løs: Så banebrydende bliver iPhone 16
Læs mere »
Nu kommer en af bilbranchens største software-opdateringer nogensinde
Lokker med ’Nordens hurtigste internet’: Sådan ved du, om du kan få adgang til Danmarks nyeste bredbåndsudbyder
Test af Tesla Model 3 Performance: Aldrig har man fået så meget sportsvogn til så få penge
Se alle »
CIO
Teaser billede
Kommunerne brugte 6,6 milliarder kroner på it i 2023: Se top 10 over hvem der bruger flest penge
Læs mere »
De to største medlems-kommuner trækker sig fra det sjællandske it-fællesskab Digit
Dansk top-CIO har en nøglerolle ved kæmpe-opkøb: Her er hendes opskrift på succesfulde sammenlægninger
Microsoft vil have flere kunder ind i folden: Åbner for verdensomspændende rabat på Copilot M365
Se alle »
Job & Karriere
Teaser billede
Merete Søby fratræder med omgående virkning som CEO for Schultz efter blot tre måneder på posten
Læs mere »
Professor: "Det er på høje tid at opløse virksomhedernes it-afdelinger"
KMD-direktør forlader selskabet: Det skal hun nu
Kom tæt på Danmarks nye digitaliserings-minister: 33-årige Caroline Stage Olsen er tidligere tobaks-lobbyist - har været aktiv i politik siden hun var helt ung
Se alle »
White paper
Teaser billede
Informationshåndtering på frontlinjen: Sådan optimerer du med automatisering
Læs mere »
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Få mere ud af din cloudinfrastruktur og gør op med de konstant stigende omkostninger
Sådan høster du forretningsfordelene ved Internet of Things
Se alle »

IT-JOB
Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »