leder efter simpel mailliste med Jmail

Her er et:
http://www.webwizguide.com/asp/sample_scripts/mailing_list_script.asp

Men eller kan du kigge denne liste igenne om der er noget der passer til det du har brug for:
http://www.hotscripts.com/ASP/Scripts_and_Components/Mailing_List_Managers/index.html

Eagleeye>> Jeghar fundet et lille mail script. men jeg er stødt ind i dette problem, når jeg vil sende en "besked" til dem i min mail db kommer denne fejl

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver]Der opstod en generel fejl. Registreringsnøglen Temporary (volatile) Jet DSN for process 0xd90 Thread 0xf34 DBC 0x1664ac4 Jet kan ikke åbnes.
/web2004/wml/admin/write_send.asp, line 17


Write_send.asp linie 17: conn.Open "DBQ="&(Server.MapPath(".")) &"..\wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"

Prøv at rette den til dette:

conn.Open "DBQ="&Server.MapPath("wml.mdb") &"; Driver={Microsoft Access Driver (*.mdb)};"

Måske skal denne rettes lidt til: Server.MapPath("wml.mdb")
alt efter hvor database filen i forhold til asp filen.

drop et svar, det funger nu :O)

Ok ;)

tak for l din hjælp ;)

tak for al din hjælp ;)

Den sender ikke til alle i min db, kan du lige tjekke

<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS

mailertype = 1

'**********************************************

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&Server.MapPath("../wml.mdb") &"; Driver={Microsoft Access Driver (*.mdb)};"
    SQL = "SELECT * from mailingliste"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
end if



response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop

conn.close

response.redirect("../default.asp?emne=admin&emne2=nybrev")

else
%>
<CENTER>
<TABLE BORDER="0">
<form action="admin/write_send.asp" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
  <TR>
 
    <TD ALIGN="LEFT" class="nyhed">Overskrift:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <INPUT TYPE="TEXT" NAME="header" SIZE="50">
    </TD>
  </TR>
  <TR>
    <TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
    &nbsp;
    </TD>
    <TD ALIGN="RIGHT">    <input type="submit" value="-- SEND --"> </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>

det er kun mig der modtager

Du kan prøve at rette dette:

if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then


Til dette:

if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        JMail.Logging = True
        JMail.Silent = True
        ' Send it...
        'JMail.Execute
        If Not JMail.Execute Then
          Response.Write "ERROR MESSAGE: " & JMail.ErrorMessage & "<br>" & vbCrLf
          Response.Write "ERROR SOURCE: " & JMail.ErrorSource & "<br>" & vbCrLf
          Response.Write "LOG: <pre>" & JMail.Log & "</pre>" & vbCrLf
        End if

        set JMail = nothing
elseif mailertype = 2 then



Samt prøv at udkommentere denne linje:
response.redirect("../default.asp?emne=admin&emne2=nybrev")

sådan her, så kan du se om den har lavet en fejl da den sender filen:
'response.redirect("../default.asp?emne=admin&emne2=nybrev")

jeg får denne besked..

Betyder det at der er fejl ??

E-mail er sendt til : rmo@pc.dk
ERROR MESSAGE: The message was undeliverable. All servers failed to receive the message
ERROR SOURCE: SMTPConnect()
LOG:
The message was undeliverable. All servers failed to receive the message
.execute()
{
  Trying server mail:smtp.mail.dk
  <- 220 pfepb.post.tele.dk ESMTP
  -> EHLO Web
  <- 250-pfepb.post.tele.dk
250-PIPELINING
250-SIZE 10000000
250-VRFY
250-ETRN
250 8BITMIME
  -> MAIL FROM:
  <- 250 Ok
  -> RCPT TO:pia@linedanc.dk
<- 550 : Recipient address rejected: Domain not found
  -> DATA
<- 503 No recipient(s).
Error: 503 No recipient(s).
.execute()
{
  Trying server mail:smtp.mail.dk
  <- 220 pfepb.post.tele.dk ESMTP
  -> EHLO Web
  <- 250-pfepb.post.tele.dk
250-PIPELINING
250-SIZE 10000000
250-VRFY
250-ETRN
250 8BITMIME
  -> MAIL FROM:
  <- 250 Ok
  -> RCPT TO:pia@linedanc.dk
<- 550 : Recipient address rejected: Domain not found
  -> DATA
<- 503 No recipient(s).
Error: 503 No recipient(s).

  1 of 1 servers failed
}

E-mail er sendt til : pia@linedanc.dk
E-mail er sendt til : ebp@privat.dk

den siger den ikke kan finde dette domæne: linedanc.dk

Er du sikker på det domænet linedanc.dk findes ?
Skal der ikke være et e i linedance.dk ?

adressen var linedance.dk  så jeg har rette email adrssen, nu kommer den med en side
hvor den viser de 3 mails den sender til

Ja så prøv at rette:

'response.redirect("../default.asp?emne=admin&emne2=nybrev")

Tilbage igen så den redirecter til default.asp siden:

response.redirect("../default.asp?emne=admin&emne2=nybrev")

okay