--- title: "E-post till alla med mailadress" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/153505-e-post-till-alla-med-mailadress" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "WebbisNet" published: "2006-11-08T09:26:18.000Z" updated: "2006-11-08T16:12:27.000Z" replies: 12 views: 716 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/153505-e-post-till-alla-med-mailadress" --- # E-post till alla med mailadress ## #1 — WebbisNet, 2006-11-08T09:26Z 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] ``` Permalänk: https://www.webforum.nu/p/153505 ## #2 — yohpops, 2006-11-08T09:44Z Du måste ändra sTo och varMail för varje varv i mail1-loopen. Med din kod kommer den adressen som hamnar överst i mailRS att få alla mail. Permalänk: https://www.webforum.nu/p/1893947 ## #3 — WebbisNet, 2006-11-08T09:52Z > **yohpops skrev:** > > Du måste ändra sTo och varMail för varje varv i mail1-loopen. > Med din kod kommer den adressen som hamnar överst i mailRS att få alla mail. vilket är bästa sättet at skriva på för att få med alla? Permalänk: https://www.webforum.nu/p/1893950 ## #4 — yohpops, 2006-11-08T10:05Z 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. Permalänk: https://www.webforum.nu/p/1893952 ## #5 — WebbisNet, 2006-11-08T12:33Z > **yohpops skrev:** > > 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 ``` Permalänk: https://www.webforum.nu/p/1893974 ## #6 — yohpops, 2006-11-08T12:53Z Hur ser tblUsers och tblUsers_imail ut? Finns inte fältet email i tblUsers? Permalänk: https://www.webforum.nu/p/1893977 ## #7 — WebbisNet, 2006-11-08T12:56Z > **yohpops skrev:** > > Hur ser tblUsers och tblUsers_imail ut? > Finns inte fältet email i tblUsers? tblUsers är användartabellen med alla medlemmar, email är mailadressen i tblUsers, tblUsers_imail är tabellen där alla brev finns Permalänk: https://www.webforum.nu/p/1893980 ## #8 — yohpops, 2006-11-08T13:10Z 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. Permalänk: https://www.webforum.nu/p/1893983 ## #9 — WebbisNet, 2006-11-08T13:14Z > **yohpops skrev:** > > 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 Permalänk: https://www.webforum.nu/p/1893986 ## #10 — yohpops, 2006-11-08T13:19Z Nej det måste du inte! Du hämtar ju inte nåt från tblUsers_imail i din kod. Det som läggs in i tblUsers_imail kommer ju från request! Permalänk: https://www.webforum.nu/p/1893988 ## #11 — WebbisNet, 2006-11-08T14:15Z > **yohpops skrev:** > > Nej det måste du inte! > Du hämtar ju inte nåt från tblUsers_imail i din kod. > Det som läggs in i tblUsers_imail kommer ju från request! så det ska räcka med detta då ``` <%set mail1=objConn.Execute("SELECT userID, email, username FROM tblUsers 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%> ``` Permalänk: https://www.webforum.nu/p/1893997 ## #12 — yohpops, 2006-11-08T14:21Z Japp. Och du kan flytta sFrom och sSubject utanför loopen. Permalänk: https://www.webforum.nu/p/1893999 ## #13 — WebbisNet, 2006-11-08T16:12Z verkar som om denna kod fungerade ``` <%set mail1=objConn.Execute("SELECT userID, email, username FROM tblUsers 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")) sFrom = "info@webbisen.com" 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 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%> ``` Permalänk: https://www.webforum.nu/p/1894010 --- Tråden på webben: https://www.webforum.nu/amne/asp/153505-e-post-till-alla-med-mailadress