Klik på hyperlink sender mails til MANGE ....

Jeg ville løse det ved at lave et link der henviser til en fil, der indeholder et script med JMail der sender til alle adresserne i din DB!

Kodemæssigt vil det se ca. således ud:

\'Filen hvor du har dit hyperlink
<a href=\"mail_fil.asp\">Send mange mails</a>


\'her er koden i din mail_fil.asp
Set msg = Server.CreateObject(\"JMail.Message\")
            msg.Logging = True
            msg.Silent = True

            msg.From = strMail
            msg.FromName = strSender
            msg.AddRecipient strModtager
            msg.Subject = strSubject
            msg.Body = strMsg & VbCrLf & VbCrLf & strNavn & strSender & VbCrLf & strFNavn & strFirma & VbCrLf
            msg.Body = msg.Body & strTlf & strPhone & VbCrLf & strEMail & strMail & VbCrLf & strCompType & strType & VbCrLf
            msg.Body = msg.Body & VbCrLf & strEnd

            If not msg.Send(\"ip-nr eller mail-srv-navn\") Then
                Response.Write \"An error occurred while sending your request.<br><br>Please try again.\"
            Else
                Response.Write \"Your request have been sent.<br><br>You will receive an e-mail with your username and password.\"
            End if

response.redirect(\"en_fil.asp\")

lyder på mig som om du vil undgå mail kompenenter - og kører det over outlook - hvis det er korrekt kan du bruge noget ala det her :

<%
    Conn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    strSQL = \"SELECT email FROM maillingliste\"
    myConn.Open Conn
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Response.Write \"<A HREF=\'mailto:info@dinside.dk?cc=info@enandenside.dk&bcc=\"
        Do While Not rs.EOF
        Response.Write rs(\"email\") & \";\"
            rs.MoveNext
        Loop
        Response.Write \"\'>Email alle på maillinglisten</A>\"
    Else
        Response.Write \"Der er endnu ikke nogle emails i databasen endnu\"
    End If
    myConn.Close
    Set myConn = Nothing
  %>

Bedre sent end aldrig !