--- title: "nyhetsbrev via E-post och asp" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/153610-nyhetsbrev-via-e-post-och-asp" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "WebbisNet" published: "2006-11-11T11:31:11.000Z" updated: "2006-11-15T18:00:45.000Z" replies: 23 views: 997 page: 1 pages: 2 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/153610-nyhetsbrev-via-e-post-och-asp" --- # nyhetsbrev via E-post och asp _Sida 1 av 2._ ## #1 — WebbisNet, 2006-11-11T11:31Z Om jag gör ett nyhetsbrev på en vanlig asp-sida, hur får jag då med hela sidan i ett E-postutskick med denna kod ``` sTo = varMail sSubject = "Vi saknar dig på Webbisen.com , '"& varDate &"' " sTextBody = ""& varDatum &" "& varTime &" "_ 'Här under ska asp-sidan för nyhetsbrevet finnas & vbcrlf &" "" "&vbcrlf _ Set objMail = Server.CreateObject("CDO.Message") objMail.From = sFrom objMail.To = sTo objMail.Subject= sSubject objMail.TextBody = sTextBody objMail.Send ``` Permalänk: https://www.webforum.nu/p/153610 ## #2 — lilja, 2006-11-12T19:36Z Kan du förtydliga vad du menar med "...hur får jag med hela sidan..."? Meddelandet som skickas ska in i variabeln sTextBody, men det är väl inte det du frågar? Om du vill skicka ett meddelande som innehåller HTML-kod måste du göra en inställning i mailets huvud så att mottagaren vet att det är ett HTML mail. Annars skickas det som "plain"-text likt text i notepad... Permalänk: https://www.webforum.nu/p/1895277 ## #3 — WebbisNet, 2006-11-13T11:45Z ja men HUR skriver man om det för html-sida och var lägger man skicka-koden när man har själva html-sidan klar? Permalänk: https://www.webforum.nu/p/1895459 ## #4 — lilja, 2006-11-13T15:19Z Jag tror har allt du behöver. Du kan använda både objMail.HTMLBody och objMail.CreateMHTMLBody. De visste jag inte om CDOSYS då jag aldrig använt de :P Läs mer på w3schools hemsida... Permalänk: https://www.webforum.nu/p/1895540 ## #5 — WebbisNet, 2006-11-13T18:21Z jag använder ``` Set objMail = Server.CreateObject("CDO.Message") objMail.From = "mail@webbisen.com" 'objMail.To = sTo objMail.To = "stefan@webbisen.com" objMail.Subject= "Nyhetsbrev från Webbisen.com" objMail.CreateMHTMLBody "http://www.webbisen.com/mail/Nyhetsbrev/writeNewsletter.asp" objMail.Send Set objMail = Nothing ``` men jag får inte med färger, reklam eller textformatering i mailet Permalänk: https://www.webforum.nu/p/1895626 ## #6 — lilja, 2006-11-13T18:55Z Har du testat flera olika email-clienter? Har du kollat hur källkoden ser ut i epostmeddelandena som användaren ser?? Står det Content-Type: text/html; någonstans före koden? Jag har ingen erfarenhet av CDOSYS. De flesta andra sätten innebär att man sätter Content-Type till text/html. Sen skapar man sitt HTML-meddelande. Jag tittade i ett HTML-meddelande jag har och de använder stilmallar inbyggt i mailet. Du har en relativ länk till din stilmall vilket jag tror innebär att användarens email-client letar stilmallar på sin dator. Testa använda absolut sökväg eller hellst inkludera stilmallen i mailet. Permalänk: https://www.webforum.nu/p/1895639 ## #7 — WebbisNet, 2006-11-13T20:03Z jag inkluderar stilmallen nu men teckensnitten hänger inte med, bara bakgrunden. På webbsidan ser det bra ut men inte i mailet Permalänk: https://www.webforum.nu/p/1895691 ## #8 — WebbisNet, 2006-11-14T13:54Z Hur får jag nu denna att gå ut till alla ``` <%if request.querystring("do") = "send" then set mail1=objConn.Execute("SELECT userID, email, username, userPass, inloggad FROM tblUsers where email is not null and email<>'' and email LIKE '%@%' and inloggad < DATE_SUB(CURDATE(),INTERVAL 30 DAY)") do until mail1.eof varMail = FriendlySQL(mail1 ("email")) sBcc = varMail Set objMail = Server.CreateObject("CDO.Message") objMail.From = "mail@webbisen.com" objMail.To = "stefan@webbisen.com" objMail.bcc = sBcc objMail.Subject= "Nyhetsbrev från Webbisen.com" objMail.CreateMHTMLBody "http://www.webbisen.com/mail/Nyhetsbrev/writeNewsletter.asp" 'objMail.Send response.write varMail response.end Set objMail = Nothing mail1.movenext: loop end if%> ``` Permalänk: https://www.webforum.nu/p/1895874 ## #9 — lilja, 2006-11-14T14:49Z Fixade du formatteringen? Verkar som att du bara kan skicka 20 åt gången, om någon inte ändrat en inställning i servern. Jag tror kan vara rätt användbar i ditt fall... För att skicka till flera använder du .Bcc eller .cc istället fär .to. bcc skickar en blind copy (användaren ser bara sin egen adress) och cc är en vanlig copia... Igen, jag har inte testat det men de borde fungera. Permalänk: https://www.webforum.nu/p/1895887 ## #10 — WebbisNet, 2006-11-14T14:53Z jag veta tt jag kan skicka fler åt gången och när jag skickade fick jag själv flera hundra mail, och jag har ju med bcc varMail = FriendlySQL(mail1 ("email")) sBcc = varMail objMail.bcc = sBcc Permalänk: https://www.webforum.nu/p/1895888 ## #11 — lilja, 2006-11-14T16:29Z Jaha, läste inte frågan riktigt :P Funkar inte det där då? Får du felmeddelande eller kommer inte mailen fram? Du skulle kunna flytta in for-loopen inom mailscriptet, eller vad man ska säga... ``` <%if request.querystring("do") = "send" then set mail1=objConn.Execute("SELECT userID, email, username, userPass, inloggad FROM tblUsers where email is not null and email<>'' and email LIKE '%@%' and inloggad < DATE_SUB(CURDATE(),INTERVAL 30 DAY)") Set objMail = Server.CreateObject("CDO.Message") objMail.From = "mail@webbisen.com" objMail.To = "stefan@webbisen.com" do until mail1.eof varMail = FriendlySQL(mail1 ("email")) sBcc = varMail objMail.bcc = sBcc mail1.movenext: loop objMail.Subject= "Nyhetsbrev från Webbisen.com" objMail.CreateMHTMLBody "http://www.webbisen.com/mail/Nyhetsbrev/writeNewsletter.asp" 'objMail.Send response.write varMail response.end Set objMail = Nothing end if%> ``` Permalänk: https://www.webforum.nu/p/1898780 ## #12 — WebbisNet, 2006-11-14T16:33Z > **lilja skrev:** > > Jaha, läste inte frågan riktigt :P Funkar inte det där då? Får du felmeddelande eller kommer inte mailen fram? > > Du skulle kunna flytta in for-loopen inom mailscriptet, eller vad man ska säga... > > > > ``` > <%if request.querystring("do") = "send" then > set mail1=objConn.Execute("SELECT userID, email, username, userPass, inloggad FROM tblUsers where email is not null and email<>'' and email LIKE '%@%' and inloggad < DATE_SUB(CURDATE(),INTERVAL 30 DAY)") > > > > Set objMail = Server.CreateObject("CDO.Message") > objMail.From = "mail@webbisen.com" > objMail.To = "stefan@webbisen.com" > > do until mail1.eof > varMail = FriendlySQL(mail1 ("email")) > sBcc = varMail > objMail.bcc = sBcc > mail1.movenext: loop > > objMail.Subject= "Nyhetsbrev från Webbisen.com" > objMail.CreateMHTMLBody "http://www.webbisen.com/mail/Nyhetsbrev/writeNewsletter.asp" > 'objMail.Send > response.write varMail > response.end > Set objMail = Nothing > > > end if%> > ``` Då får jag bara en adress utskriven när jag kör den koden, ska vara ca 700 adresser, funderar själv på var felet ligger men kan inte komma på det Permalänk: https://www.webforum.nu/p/1898783 ## #13 — WebbisNet, 2006-11-15T15:17Z Nån som har ett bra svar? Permalänk: https://www.webforum.nu/p/1898988 ## #14 — Peter S, 2006-11-15T15:46Z En titt på loopen bör avslöja att variablerna tilldelas nya värden i varje runda. Det du vill åstadkomma är ju att de konkateneras, antar jag: ``` do until mail1.eof objMail.bcc = objMail.bcc & FriendlySQL(mail1 ("email")) & ";" mail1.movenext loop response.write objMail.bcc ``` Permalänk: https://www.webforum.nu/p/1898995 ## #15 — WebbisNet, 2006-11-15T16:12Z först fick jag ut alla mottagare men inga mail skickades, med denna kod finns bara mina 2 adresser utskrivna ``` <%if request.querystring("do") = "send" then set mail1=objConn.Execute("SELECT userID, email, username, userPass, inloggad FROM tblUsers where email is not null and email<>'' and email LIKE '%@%' and inloggad < DATE_SUB(CURDATE(),INTERVAL 30 DAY)") Set objMail = Server.CreateObject("CDO.Message") do until mail1.eof objMail.bcc = objMail.bcc & FriendlySQL(mail1 ("email")) & ";" objMail.From = "mail@webbisen.com" objMail.To = "stefan@webbisen.com" objMail.Subject= "Nyhetsbrev från Webbisen.com" objMail.CreateMHTMLBody "http://www.webbisen.com/mail/Nyhetsbrev/writeNewsletter.asp" 'objMail.Send response.write objMail.bcc response.write objMail.To response.end Set objMail = Nothing mail1.movenext: loop end if%> ``` Permalänk: https://www.webforum.nu/p/1899001 ## #16 — Peter S, 2006-11-15T16:20Z Koden jag skrev var utifrån liljas exempel. Testa den tillsammans med mitt förslag. Permalänk: https://www.webforum.nu/p/1899005 ## #17 — WebbisNet, 2006-11-15T16:23Z men vad skrev jag för fel i koden? Permalänk: https://www.webforum.nu/p/1899006 ## #18 — Peter S, 2006-11-15T16:26Z Du har ju allting i loopen vilken du avbryter med en gång. Permalänk: https://www.webforum.nu/p/1899007 ## #19 — WebbisNet, 2006-11-15T16:28Z > **Peter S skrev:** > > Du har ju allting i loopen vilken du avbryter med en gång. men varför skickas inga mail med den här koden då? ``` <%if request.querystring("do") = "send" then set mail1=objConn.Execute("SELECT userID, email, username, userPass, inloggad FROM tblUsers where email is not null and email<>'' and email LIKE '%@%' and inloggad < DATE_SUB(CURDATE(),INTERVAL 30 DAY)") Set objMail = Server.CreateObject("CDO.Message") objMail.From = "mail@webbisen.com" objMail.To = "stefan@webbisen.com" do until mail1.eof objMail.bcc = objMail.bcc & FriendlySQL(mail1 ("email")) & ";" mail1.movenext loop objMail.Subject= "Nyhetsbrev från Webbisen.com" objMail.CreateMHTMLBody "http://www.webbisen.com/mail/Nyhetsbrev/writeNewsletter.asp" objMail.Send 'response.write objMail.bcc 'response.write objMail.To 'response.end Set objMail = Nothing end if%> ``` Permalänk: https://www.webforum.nu/p/1899008 ## #20 — Peter S, 2006-11-15T16:42Z Vet inte om följande trådar kan vara till hjälp: Permalänk: https://www.webforum.nu/p/1899015 --- Tråden på webben: https://www.webforum.nu/amne/asp/153610-nyhetsbrev-via-e-post-och-asp Nästa sida: https://www.webforum.nu/amne/asp/153610-nyhetsbrev-via-e-post-och-asp/page2.md