/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
JMail kontra ASPMail
Fra : Jan Kristensen


Dato : 23-04-01 15:09

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



 
 
Jesper Nielsen (23-04-2001)
Kommentar
Fra : Jesper Nielsen


Dato : 23-04-01 17:09

> JMail.AddRecipient arrEmail(0, num)
^ = objMailer i dit eksempel...

/jesper/



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408875
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste