hente en mail body fra en html fil

filen ligger i en undermappe som hedder mail. hvis det ikke fremgår tydeligt

Set op = CreateObject("Scripting.FileSystemObject")
Set fil = op.OpenTextFile(server.mappath("mail/TipEnVenMail.html"),1)
do while not fil.AtEndOfStream
    body = fil.readline
loop

den siger :
Microsoft VBScript runtime error '800a004c'
Path not found

/i-butikker.dk/TipEnVen.asp, line 95

linie 95 er :
Set fil = op.OpenTextFile(server.mappath("mail/TipEnVenMail.html"),1)

nogen som kan hjælpe

2 sek...

ok

det driller dig ?

det må man sige..

slet ingen som har lavet noget lign før ?

jeg tror det er din path der er forkert, for det virker hos mig men den kode du har skrevet! Men prøv evt. dette...

Set op = CreateObject("Scripting.FileSystemObject")
Set fil = op.OpenTextFile(server.mappath("i-butikker.dk/mail/TipEnVenMail.html"),1)
do while not fil.AtEndOfStream
    body = fil.readline
loop

ok... hvordan kunne du vide det var i-butikker.dk ?

prøver lige

læs din kommentar 28/4-2003 20:43:00 :-)

virker stadig ikke

hmm... me stupid

send den evt. til min email, så kan jeg lige se hvad jeg kan finde ud af:
jens@mail.zix.dk

Microsoft VBScript runtime error '800a004c'
Path not found

/i-butikker.dk/TipEnVen.asp, line 95

hele lortet ? hele den side er på vej

hmmn...!

Gav mig ikke en bedre ide... Prøv lige Set op = CreateObject("Scripting.FileSystemObject")
Set fil = op.OpenTextFile(server.mappath("i-butikker.dk/mail/TipxEnVenMail.html"),1)
do while not fil.AtEndOfStream
    body = fil.readline
loop

Og skriv fejlen her...

hvad er nyt ?

nå x

hmm tænkte det nok :
Microsoft VBScript runtime error '800a004c'
Path not found

/i-butikker.dk/TipEnVen.asp, line 95

det må være noget med at din fil ikke ligger der hvor du har defineret den til at skulle...!

Prøv at ligge den i roden på din server...

helt ude ?... prøver lige... skal jeg så bare skrive "TipEnVen.html"... prøver det.

samme fejl

Ja, altså hvis det er i samme mappe...

hmmn...
Hvad med:
Set fil = op.OpenTextFile("mail/TipxEnVenMail.html",1)
do while not fil.AtEndOfStream
    body = fil.readline
loop

stadig med x ?

nej uden denne gang :-)

jamen sådan havde jeg det jo i starten

fejl stadig.... kan simpelthen ikke finde den skod fil...

Nej, jeg har droppet servar.Mappath!

prøver lige

Set op = CreateObject("Scripting.FileSystemObject")
Set fil = op.OpenTextFile("mail/TipEnVenMail.html")
do while not fil.AtEndOfStream
    body = fil.readline
loop

gav samme fejl...

kan du pakke det hele til en zipfil og sende det til mig ??

hmm... er nu ikke så meget for det... det er fortroligt meget af det... men bare det med at kunne få data fra en fil ind i en variable .... hvorfor fanden skal det være så svært.

hvordan gør man det ?

jeg er helt sikker på det er fordi filen ikke er der hvor du siger den skal ligge... For det virker hos mig, når jeg beder den om at gøre det med en fil som jeg ved hvor ligger...

Men det virker ikke hvis jeg ikke tager servermappath med...

jamen er det lokalt eller på et webhotel... mit er hos et webhotel hos jepponet

det er lokalt...!

Går da også ud fra det virker på mit webhotel...!

Du skal bare være sikker på hvad den mapper der er defineret som din server.mappath er for en...

hmm... ser lige på det i morgen... tak foreløbigt...

hmm... nogen som kan hjælpe ?

hvilken mappe var defineret som din mappath ?

er det ikke ved at være tid til at lukke her ??

har du fundet ud af noget her, eller skal du stadig have hjælp til dette spg...?

jeg har ingen problemer hvis min asp fil ligger i samme folder som min htm fil.
Sådan får jeg det til at virke!

<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("nyhed.htm")
Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  body = body + f.ReadLine & "<br>"
Loop
f.Close

'og så sende med Jmail

Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "willi@gizom.com", "Mr.Example"
jmail.From = "admin@gizom.com"

jmail.Subject = "Nyhed fra Gizom.com"
jmail.Body = "Denne nyheds e-mail er sendt som HTML-mail."
jmail.HTMLBody = body
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
jmail.Body = "Denne nyheds e-mail sendes ud som HTML-mail."
jmail.appendText " Hvis du ikke har mulighed for modtage HTML e-mail"
jmail.appendText " er du velkommen til at læse om nyhederne på www.wilweb.dk"
jmail.Send( "mailhub.registeredhost.com" )
%>

nyhed.htm er en ganske alm. htm fil med tabeller og lign.

Og jeg har prøvet at bruge mange forskellige versioner af serverMapPath
bl.a. Server.Mappath("../mail/nyhed.htm") hvor htm filen er placeret.
Men Jeg får det kun til at virke hvis filerne ligger i samme mappe.

i hvilket dir i forhold til din rod ligger filen, beskriv strukturen...

Root/mail/send.asp + nyhed.htm

<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("mail/nyhed.htm")
Set f = fso.OpenTextFile(filespec,1)
' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  body = body + f.ReadLine & "<br>"
Loop
f.Close

'og så sende med Jmail

Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient "willi@gizom.com", "Mr.Example"
jmail.From = "admin@gizom.com"

jmail.Subject = "Nyhed fra Gizom.com"
jmail.Body = "Denne nyheds e-mail er sendt som HTML-mail."
jmail.HTMLBody = body
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
jmail.Body = "Denne nyheds e-mail sendes ud som HTML-mail."
jmail.appendText " Hvis du ikke har mulighed for modtage HTML e-mail"
jmail.appendText " er du velkommen til at læse om nyhederne på www.wilweb.dk"
jmail.Send( "mailhub.registeredhost.com" )
%>

virker det ikke hvis du skriver det sådan her...?

nope, sjovt nok!
Fordi når jeg ved include af filer og ved forbindelser til database med lethed kan jeg skrive ../nyheder.htm og Server.MapPath ("../data/kalender.mdb") uden problemer.
Men det virker jo og generelt har jeg ikke noget imod at alle filer ikke ligger i roden.

Det var også bare lige for at fortælle azez, hvordan jeg fik det til at virke, men det ser jo unægtelig ud som om at azez er på ferie.