Jag ska hämta alla epostadresser ur en Access 2000 db där ett True/False fält anger vilka som ska ha mailet och inte.
Den här koden är inte rätt men hur ska den skrivas?
SQL = "SELECT * FROM elistatextmail WHERE nyhetsbrev = True"
/webb
3 svar · 295 visningar · startad av webbmannen
Jag ska hämta alla epostadresser ur en Access 2000 db där ett True/False fält anger vilka som ska ha mailet och inte.
Den här koden är inte rätt men hur ska den skrivas?
SQL = "SELECT * FROM elistatextmail WHERE nyhetsbrev = True"
/webb
Jag ser inget fel i den koden. Får du något fel eller så?
Problemet ligger kanske någon annanstans i nedanstående kod då. Tog bara för givet att det var "True" som strulade.
Problemet är att det endast skickas ut till en enda epostadress trots att det ska vara flera enligt databasens register.
En mer fullständig kod ser ut så här:
If Request.Form("send") = "Skicka brevet" Then
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTso = objFso.OpenTextFile("sökvägen\text.txt")
text = objTso.ReadAll
Set Connect = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=sökvägen\textelista.mdb"
SQL = "SELECT * FROM elistatextmail WHERE nyhetsbrev = True"
rs.Open SQL, Connect
Do While Not rs.EOF
mottagare = rs("eadress")
sender = "sändande@epostadress.se"
Set JMail = Server.CreateObject("Jmail.Message")
JMail.AddRecipient mottagare
JMail.From = sender
JMail.Subject = "Nyhetsbrev"
JMail.Body = replace(text,"<br>",vbCrLf)
JMail.Send( "smtp.digikom.net" )
rs.MoveNext
Loop
Connect.Close
Response.Redirect "brev_skickat.asp?id=2"
End If
Vad är det jag inte ser?
/webb
Saken är löst - glömt att ändra sökväg och alltså gick frågan till fel db :r