Har lite problem med den här koden, får inte med alla mottagare i mailet. Alla med mail ska ha ett meddelande, skriver jag fel så kan alla mail hamna hos en mottagare och det är inte bra. Nån som har ett bra förslag på hur jag skriver
<%set mailRS=objConn.execute("SELECT userID, mailID, email, username, Headline, sender, message, mailDate "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.reciever")
set mail1=objConn.Execute("select distinct userID from tblUsers")
varName=request("toUser")
varMailID = FriendlySQL(Request.Form ("txtMailID"))
varHeadline = FriendlySQL(Request.Form ("txtHeadline"))
varDatum = FriendlySQL(Request.Form ("txtDatum"))
varMail = FriendlySQL(mailRS ("email"))
varTime = Time()
varMessage = FriendlySQL(Request.Form("txtMessage"))
SET objConn = connect()
do until mail1.eof
varReciever = mail1("userID")
SQL = "INSERT INTO tblUsers_imail"
SQL = SQL & "(Sender, Reciever, Headline,message, mailDate,mailTime, mailRead, Nyhetsbrev) "
SQL = SQL & "VALUES(1,'"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"', 1, 1)"
'response.write SQL
'response.write varReciever
'response.end
objConn.Execute(SQL)
[B]
sTo = varMail
sFrom = "info@webbisen.com"
sSubject = "Information från Webbisen.com , '"& varDate &"' "
sTextBody = "Du har fått ett informationsbrev från [url]Http://www.webbisen.com[/url] "&vbcrlf _
& vbcrlf &"Meddelandet skickades "& varDatum &" "& varTime &" "_
& vbcrlf &"Meddelandets rubrik """& varHeadline &""""&vbcrlf _
& vbcrlf &"Mvh Admin på "& title &""
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = sFrom
objMail.To = sTo
objMail.Subject= sSubject
objMail.TextBody = sTextBody
objMail.Send
Set objMail = Nothing
mail1.movenext
loop%>[/B]
Bäst och bäst.
Ta bort det översta select-satsen.
Ändra mail1 till "select userid,email from tblUsers where mail is not null and mail<>''"
Flytta "varMail = FriendlySQL(mailRS ("email"))" innanför do-loopen och ändra mailRS till mail1.
Sen kanske du inte ska göra insert innan du ser att mailet har gått iväg.
Bäst och bäst.
Ta bort det översta select-satsen.
Ändra mail1 till "select userid,email from tblUsers where mail is not null and mail<>''"
Flytta "varMail = FriendlySQL(mailRS ("email"))" innanför do-loopen och ändra mailRS till mail1.
Sen kanske du inte ska göra insert innan du ser att mailet har gått iväg.
med den här koden så får samma användare flera mail
set mail1=objConn.Execute("SELECT userID, mailID, email, username, Headline, sender, message, mailDate "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.reciever where email is not null and email<>''")
varName=request("toUser")
varMailID = FriendlySQL(Request.Form ("txtMailID"))
varHeadline = FriendlySQL(Request.Form ("txtHeadline"))
varDatum = FriendlySQL(Request.Form ("txtDatum"))
varTime = Time()
varMessage = FriendlySQL(Request.Form("txtMessage"))
SET objConn = connect()
do until mail1.eof
varMail = FriendlySQL(mail1 ("email"))
varReciever = mail1("userID")
SQL = "INSERT INTO tblUsers_imail"
SQL = SQL & "(Sender, Reciever, Headline,message, mailDate,mailTime, mailRead, Nyhetsbrev) "
SQL = SQL & "VALUES(1,'"& varReciever &"','"&varHeadline &"','"&varMessage &"','"& varDatum &"','"& varTime &"', 1, 1)"
'response.write SQL
response.write varReciever
'objConn.Execute(SQL)
sTo = varMail
sFrom = "info@webbisen.com"
sSubject = "Information från Webbisen.com , '"& varDate &"' "
sTextBody = "Du har fått ett informationsbrev från [url]Http://www.webbisen.com[/url] "&vbcrlf _
& vbcrlf &"Meddelandet skickades "& varDatum &" "& varTime &" "_
& vbcrlf &"Meddelandets rubrik """& varHeadline &""""&vbcrlf _
& vbcrlf &"Mvh Admin på "& title &""
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = sFrom
objMail.To = sTo
objMail.Subject= sSubject
objMail.TextBody = sTextBody
'objMail.Send
response.write sTo
Set objMail = Nothing
mail1.movenext
loop
response.end
Varför joinar du in tblUsers_imail i frågan?
Gör du det kommer du få en träff per användar och mail.
Ta bort tblUsers_imail ur select-satsen.
måste joina in eftersom ett brev (internt meddelande) skickas, imailtabellen och ett E-postmeddelande ska skickas för att meddela att ett internt brev har kommit till inboxen på webbisen till användaren och mailadressen finns i användartabellen
