adressekartotek i outlook express

Hvorfor ikke bruge Jmail til at sende nailene med istedet? Hvis du kender ASP. så kan du også lave en lille brugerflade til det formål.. jmail bruger jeg selv til min mailliste

Jeg kender ikke nogen haj til asp, men kan da finde ud af lidt, hvad er jmail? og hvordan virker det

jeg bruger dette script til mit nyheds brev, det er med jmail.

config.inc
<%
dim dsn
dsn=\"DBQ=\" & Server.Mappath(\"../db/subs.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\"
%>

send.asp
<%
option explicit\'must be declared
%>
<!--#include file=\"config.inc\"-->
<%
response.buffer = true
Server.ScriptTimeout = 1000000

dim useraction,subject,comm,emails,conn,rs,sql
dim totalMails



Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set Rs = Server.CreateObject(\"ADODB.Recordset\")
Conn.Open dsn
SQL = \"SELECT emails from emails\"
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount

useraction=request(\"action\")
select case useraction
case \"send\"
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Set Rs = Server.CreateObject(\"ADODB.Recordset\")
    Conn.Open dsn
    SQL = \"SELECT emails from emails order by id\"
    rs.open sql,conn
    do while not rs.eof
        emails=rs(\"emails\")
        subject = request.form(\"subject\")
        comm = request.form(\"comm\")
        Dim JMail
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"post.tele.dk\"
JMail.Priority = 3
JMail.Sender = \"din@mail.dk\"
jmail.AddRecipient rs(\"emails\")
JMail.Subject = subject
JMail.Body = comm
JMail.Execute

        rs.movenext
    loop
    Set JMail = Nothing
    rs.close
    set rs = nothing
    conn.close
    set conn = nothing
    response.write \"<script>alert(\'has been sent!\');\"
    response.write \"location.href=\'index.asp\'</script>\"
    response.end
end select
rs.close
    set rs = nothing
    conn.close
    set conn = nothing
%>
<HTML>
<HEAD>
<script>
function openwin()
{
    NewWindow =window.open(\"hebrew.htm\",\"hebrew\",\"width=500,height=200\")
}
function submitit(){
var email=document.subform.email.value;
if (email==\"\"){
alert(\"Please type your Email\")
document.subform.email.focus()
return false
    }
if (email.indexOf(\'@\', 0) == -1 || email.indexOf(\'.\', 0) == -1){ alert(\"No valid e-mail address!\");
        document.subform.email.focus()
        return false
        }
}

</script>

<title></title>

</HEAD>
<BODY BGCOLOR=#FFFFFF>
            <form action=\"send.asp?action=send\" method=\"post\">
  Emne:
  <input class=\"inputBut\" type=\"text\" name=\"subject\" size=20 maxlength=30><br>
  Besked:
  <textarea class=\"inputBut\" cols=27 rows=8 name=\"comm\"></textarea><br>
<input type=submit class=\"inputSubmit\" name=submit value=\"Send\">
</form>
<p>Bruger ialt: <%=totalMails%>&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"send.asp\">Send nyhedsbrev</a> |
  <a href=\"edit.asp\">Ret bruger</a> </p>

</BODY>
</HTML>

index.asp
<%
option explicit\'must be declared
%>
<!--#include file=\"config.inc\"-->
<%
\'setting buffering to true
response.buffer=true
\'decleration
dim useraction
dim conn
dim rs
dim sql
dim DownNumber
dim sql3
dim sql2
dim uemail
dim subs
dim totalmails
\'----------------------

\'counting
set conn=server.createobject(\"adodb.connection\")
set rs=server.createobject(\"adodb.recordset\")
sql = \"select id from emails\"
conn.open dsn
rs.Open SQL, Conn, 1, 3
totalMails = rs.recordcount
rs.close
set rs = nothing
conn.close
set conn = nothing
\'----end counting ----------------------
%>
<HTML>
<HEAD>
<title></title>

</HEAD>
<BODY BGCOLOR=#FFFFFF>
Bruger ialt: <%=totalMails%>&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"send.asp\">Send nyhedsbrev</a> | <a href=\"edit.asp\">Ret bruger</a>
</BODY>
</HTML>

edit.asp
<%
option explicit\'must be declared
response.buffer = true
dim flag
dim bgcolor
%>

<script>
function rusure() {

if (confirm(\"Are you sure You want to Delete?\")) {
return true;
} else {

return false;
}
}
</script>
<!--#include file=\"config.inc\"-->
<%
response.buffer = true
dim useraction,subject,comm,emails,conn,rs,sql
dim id

    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Set Rs = Server.CreateObject(\"ADODB.Recordset\")
    Conn.Open dsn
    SQL = \"SELECT id,emails from emails order by id desc\"
    rs.open sql,conn
    if rs.eof and rs.bof then
        response.write \"The database is Empty!<br><a href=index.asp>go back</a>\"
    else
        response.write \"<table>\"
        do while not rs.eof
            if flag = 0 then
                flag = 1
                bgcolor = \"#F3F3F3\"
            else
                flag = 0
                bgcolor = \"white\"
    end if
            response.write \"<tr><td bgcolor=\" & bgcolor & \">\"
            id = rs(\"id\")
            emails = rs(\"emails\") & \"</td><td><a onclick=\'return rusure()\' href=\'delete.asp?id=\"& id &\"\'>Delete User</a></td></tr>\"
            response.write emails
        rs.movenext
        loop
        response.write \"</table>\"
    end if
%>

delete.asp
<%
dim id
dim conn
dim sql
id = request.querystring(\"id\")
%>
<!--#include file=\"config.inc\"-->
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set Rs = Server.CreateObject(\"ADODB.Recordset\")
   
Conn.Open dsn
   
SQL = \"DELETE FROM emails WHERE id=\"&id
rs.Open SQL, Conn

response.write \"<script>alert(\'deleted!\');location.href=\'edit.asp\';</script>\"
%>

Her kan du downloade Jmail, som er freeware
http://www.asp-dev.com/default.asp?page_menu_id=130&page=131

Jeg prøver lige ovenstående og vender tilbage, forløbig tak

oki, bare husk at Jmail skal være installeret på den server du skal have scriptet på