Hej Alle
jeg har vedlagt et script som Dennis Knaper har skrevet, men nu er lavet om
til JMail, men det virker ikke. Er der "der-ude" som kan hjælpe?
Response.Buffer = True
strMode = Request.QueryString("mode")
'// Dette er vores connection streng til databasen
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
& Server.MapPath("mailliste.mdb")
If Request.Form("Send") <> "" Then
'// Her putter vi værdien af de indtastede felter i en variabel
strSender = Request.Form("Afsender")
strSubject = Request.Form("Emne")
strMessage = Request.Form("Besked")
strMailServer = Request.Form("Mailserver")
'// Her åbner vi databasen, og trækker alle email adresse ud i et array
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open tempConn
strSQL = "SELECT Email FROM Mailliste"
Set rs = myConn.Execute(strSQL)
arrEmail = rs.GetRows()
myConn.Close
Set myConn = Nothing
'// Her laver vi et loop igennem vore email array, og sender beskeden til
alle de tilmeldte
Set objMailer = Server.CreateObject("JMail.SMTPMail")
For num = 0 to Ubound(arrEmail,2)
objMailer.ServerAddress = strMailserver
objMailer.Sender = strSender
objMailer.Subject = strSubject
JMail.AddRecipient arrEmail(0, num)
objMailer.Body = strMessage
objMailer.Priority = 3
objMailer.Execute
Next
Set objMailer = Nothing
strMode = "messagessendt"
'// Her sletter vi alt buffered output, og redirecter siden, med et
parameter der fortæller at vi har sendt til listen
Response.Clear
Response.Redirect("mailliste.asp?mode=finish")
End If
%>
Scriptet skal køre på Azeros server!!!
Mvh
Jan
