Avatar billede iceb1 Nybegynder
28. juni 2001 - 13:52 Der er 8 kommentarer

bruge en mailing liste .......

Hey

Nogen der ved hvordan jeg bruger en txt fil som

mailing liste ?

Derved at jeg via en formular kan skrive den samme

email til modtagerne i txt filen ?

Her er mit asp

<HTML>
    <HEAD>
        <TITLE>Feedback Status</TITLE>
    </HEAD>

    <BODY bgCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" aLINK=\"#0000AA\" vLINK=\"#000000\">

<%

\' Email the feedback
Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.IsHTML = False
Mail.Host = \"vip.cybercity.dk\"
Mail.From = \"iceyboo@yahoo.com\"
Mail.FromName = \"ras\"
Mail.AddAddress \"test.txt\"
Mail.Subject = \"Feedback\"
Mail.AddAttachment \"c:\\windows\\skrivebord\\cako.txt\"
Mail.Body = Request.Form(\"body\")

On Error Resume Next
Mail.Send
If Err = 0 Then
    %>
    <font size=\"2\" face=\"Arial, Helvetica, sans-serif\">
    <br>
    <b>Feedback!</b><br>
    <br>
    Thank you. Tak.<br>
    <br>
    Your email has been delivered.Din post er sendt og jeg takker *s.
    </font>
    <%
Else
    %>
    <font size=\"2\" face=\"Arial, Helvetica, sans-serif\">
    <br>
    <b>Error</b><br>
    <br>
    An error has occured while sending your feedback. Please try again later.<br>
    </font>
    <%
End If

Set Mail = Nothing
%>

    </BODY>
</HTML>

Dette ovenfor vil jeg så bruge til at sende

folk email fra de emailaddresser i txt filen .

Dog virker dette ikke ovenfor så hvad er der galt ?

Haster *s
Avatar billede jespernaur Nybegynder
28. juni 2001 - 17:19 #1
Du kan ikke skrive et filnavn til AddAddress, der skal stå modtagerens (modtagernes) mailadresser. Hvis du ønsker at hente mailadresserne fra en tekstfil, må du selv åbne og læse denne, og benytte AddAddress for hver linie du læser.

Mvh
Jesper Naur
Avatar billede iceb1 Nybegynder
28. juni 2001 - 21:00 #2
Ok .

Hvordan ser mit script så ud med denne funktion

implementeret ?

Hvad skal der tilføjes ?

Avatar billede jespernaur Nybegynder
28. juni 2001 - 23:14 #3
Jeg viser kun den del, der opbygger mailen

\' Email the feedback
Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.IsHTML = False
Mail.Host = \"vip.cybercity.dk\"
Mail.From = \"iceyboo@yahoo.com\"
Mail.FromName = \"ras\"


Const  ForReading = 1

Set fsoObj = Server.CreateObject(\"Scripting.FileSystemObject\")
Set tsObj = fsoObj.OpenTextFile( \"test.txt\", ForReading, False )

While Not tsObj.AtEndOfStream
  line = tsObj.ReadLine
  Mail.AddAddress line
Wend

tsObj.Close
Set tsObj = Nothing
Set fsoObj = Nothing


Mail.Subject = \"Feedback\"
Mail.AddAttachment \"c:\\windows\\skrivebord\\cako.txt\"
Mail.Body = Request.Form(\"body\")

Mvh
Jesper Naur
Avatar billede iceb1 Nybegynder
29. juni 2001 - 01:03 #4
Hey

Det virker ikke .....

Serverobjekt fejl \'ASP 0177 : 800a0035\'

Server.CreateObject blev ikke udført

/a/send_email2.asp, linje 20

00000000


Her er min kode .....



<HTML>
    <HEAD>
        <TITLE>Feedback Status</TITLE>
    </HEAD>

    <BODY bgCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" aLINK=\"#0000AA\" vLINK=\"#000000\">
<%
\' Email the feedback
Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.IsHTML = False
Mail.Host = \"vip.cybercity.dk\"
Mail.From = \"iceyboo@yahoo.com\"
Mail.FromName = \"ras\"


Const  ForReading = 1

Set fsoObj = Server.CreateObject(\"Scripting.FileSystemObject\")
Set tsObj = fsoObj.OpenTextFile( \"test.txt\", ForReading, False )


While Not tsObj.AtEndOfStream
  line = tsObj.ReadLine
  Mail.AddAddress line
Wend

tsObj.Close
Set tsObj = Nothing
Set fsoObj = Nothing


Mail.Subject = \"Feedback\"
Mail.AddAttachment \"c:\\windows\\skrivebord\\cako.txt\"
Mail.Body = Request.Form(\"body\")

Mail.Send

Set Mail = Nothing
%>

    </BODY>
</HTML>


Hvad er der galt ?

Skal man have noget downloadet for at kunne køre

dette ?

Jeg bruger win 98 med pws fra microsoft...


Avatar billede jespernaur Nybegynder
29. juni 2001 - 16:12 #5
For at benytte Scripting.FileSystemObject skal filen SCRRUN.DLL være installeret, men den burde komme af sig selv ved installation af PWS.
Avatar billede iceb1 Nybegynder
29. juni 2001 - 18:44 #6
Hey

Ja det er den hele 3 gange på min hd ....

Dvs den samme fil er vel kopieret ind i

forskellige biblioteker ...

Hvad er der så galt da ?
Avatar billede jespernaur Nybegynder
29. juni 2001 - 20:59 #7
En ting er, at filen findes (evt i flere eksemplarer), en anden er om den
er registreret i registreringsdatabasen. Dette kan undersøges med regedit:

Tryk Start->Kør, skriv regedit og tryk OK. Dette starter regedit (her skal du være
forsigtig med at komme til at ændre noget, medmindre du ved, hvad du foretager dig).
Søg efter tekststrengen \"Scripting.FileSystemObject\". Hvis du finder den, vil den sikkert
befinde sig i en nøgle \"ProgID\". Parallelt hermed ses nøglen \"InprocServer32\", som skal
indeholde det fulde filnavn til SCRRUN.DLL (hos mig er det C:\\WINDOWS\\SYSTEM\\SCRRUN.DLL).
Du skal sikre dig, at InprocServer32 peger på en af dine kopier af filen.

Hvis Scripting.FileSystemObject IKKE findes i regedit, kan du forsøge at registrere den:

Start->Kør, skriv

  regsvr32 C:\\WINDOWS\\SYSTEM\\SCRRUN.DLL

du skal selvsagt angive den korrekte placering af filen.
Avatar billede iceb1 Nybegynder
30. juni 2001 - 07:13 #8
Hey

Ält synes at være ok .

I prodID ligger der en standard udgave af filen.

I ImprocServer32 ligger der den samme fil med

samme henvisning som du også har .

Nedenunder den ligger der noget der hedder

ThreadingModel \"Both\"

Så......

Hvad er der så galt ?

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