27. december 2005 - 17:28Der er
4 kommentarer og 1 løsning
jmail problem
eksperter, jeg har et lille problem, jeg kan godt få min jmail sendt osv, men kan kun få sendt det fra den første post i access, ikke næste.
Har prøvet at sætte mit form = id i sql, men sp giver den fejlen: data mistype in criteria.
Mit kode er dette:
<% if request.Form("find") = "Send" then
dim mail mail = CStr(trim(replace(request.form("mail"),chr(34),chr(39))))
set conn = server.CreateObject("ADODB.Connection") conn.open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.MapPath("../../database/uforum.mdb")
set rs = conn.execute("SELECT * FROM bruger WHERE mail = '"&mail&"'")
if not rs.eof then
if CStr(rs("mail")) = CStr(mail) then
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true msg.silent = true msg.From = "postmaster@123ogabc.dk" msg.FromName = "Postmaster" msg.AddRecipient mail msg.Subject = "123ogABC.dk" msg.HTMLBody = "Dit brugernavn er: " & "<strong>" & rs("bruger") & "</strong>" &"<br>" & "Dit kodeord er: " & "<strong>" & rs("kode") & "</strong>" msg.Send("smtp.wannafind.dk") check = msg.Send("smtp.wannafind.dk") response.write check set msg = nothing end if end if end if %>
Læ mærke til at jeg har instantieret "JMail.Message" før løkken, da det er meningsløst at lave et nyt objekt for hver post i databasen. msg.AddRecipient føjer bare en e-mail til listen i msg, så det er nok at sætte dette inde i løkken. Efter løkken kan du så slutte af med msg.Send("...")
uncas, jeg er ked af det, men jeg har fået det til at virke på dne måde det stod deroppe. Har bare glemt at lukke sopørgsmålet. Der var faktisk ikke noget glat med koden vist, det var bare mig der var en skovl og tjekkede de forkerte mail adresser:S
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.