--- title: "Jmail och 10 at gangen eller nat sant..." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/72182-jmail-och-10-at-gangen-eller-nat-sant" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "crisse6" published: "2003-03-26T03:08:17.000Z" updated: "2003-03-30T21:48:51.000Z" replies: 16 views: 506 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/72182-jmail-och-10-at-gangen-eller-nat-sant" --- # Jmail och 10 at gangen eller nat sant... ## #1 — crisse6, 2003-03-26T03:08Z Tjooooooooo! Hanvisar till denna traden: Har last igenom den osa, men den ar ganska rorig, far inte fram riktigt om det blev ratt nagongang i den traden. Vill alltsa hamta alla email adresser fran db'n och sedan skicka ut 10 eller nat at gangen... och sedan fa reda pa hur manga det skickades till. Nagon sjal dar som har koll? Permalänk: https://www.webforum.nu/p/72182 ## #2 — crisse6, 2003-03-26T16:31Z okej.... hmmm..... ingen som vet eller? Permalänk: https://www.webforum.nu/p/991358 ## #3 — solbulle, 2003-03-26T17:07Z Tycker det verkar som om det fungerade. Varför inte helt enkelt testa? Klipp & klistra! Permalänk: https://www.webforum.nu/p/991404 ## #4 — crisse6, 2003-03-26T19:52Z okej.... far la kolla det da.... hehe Permalänk: https://www.webforum.nu/p/991558 ## #5 — Nickemannen, 2003-03-26T22:19Z Hmm, använd javascript. Sidan skickar 10 sedan så får sídan fram id:t som den skall starta på igen via querystring oså skickar den 10 ifrån det id:t osv Permalänk: https://www.webforum.nu/p/991691 ## #6 — crisse6, 2003-03-26T22:24Z nja du nickemannen! det dar med javascript vet jag inte..... eller? na, men ska kora pa ASP nu, tack anda ;) Permalänk: https://www.webforum.nu/p/991694 ## #7 — crisse6, 2003-03-28T02:00Z Har fatt det att fungera nu osa, men bara en fraga, fick namligen inte ordning pa det..... vill ha en lank som gor sa att man kan avregistrera sig, men jag far ej till det med adressen for att det ska bli ratt... iaf, sa har ser hela koden ut: ``` intTimes = request.QueryString("times") If intTimes = "" Then intTimes = 0 sql="SELECT email FROM t_mailinglist " set rs=objConn.execute(sql) varEmail = rs.Getrows() set rs = Nothing Set objConn = Nothing '## -- hur många mail ska skickas i stöten -- intSentLetters = 50 * intTimes intTimes = intTimes + 1 If Not intSentLetters > UBound(varEmail,2) Then subject = "Nyhetsbrev!" message = request.form("message") unsubscribe = "-----------------------------------------"&vbcrlf&"http://www.xxxx.nu/unsubscribe.asp?address=" Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "xxx.xxxx.xx" JMail.Sender = "cristoffer@xxxx.xx" JMail.Subject = subject jmail.Body = message & vbcrlf & vbcrlf & unsubscribe JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") '## -- loopa igenom alla mailadresser som hämtats från db och sparats i arrayen -- For N = intSentLetters TO UBound(varEmail,2) intCounter = intCounter + 1 JMail.AddRecipientBCC varEmail(0,N) If intCounter = 49 Then Exit For Next JMail.Execute strURL = "sendMailinglist.asp?times=" & intTimes Response.Redirect strURL Else Response.Write "Alla mail har skickats." End If ``` Permalänk: https://www.webforum.nu/p/992517 ## #8 — crisse6, 2003-03-28T21:41Z ingen respons? :D Permalänk: https://www.webforum.nu/p/993232 ## #9 — @nders, 2003-03-29T05:12Z Jag förstår inte vad du menar att problemet är. Permalänk: https://www.webforum.nu/p/993356 ## #10 — solbulle, 2003-03-29T09:59Z Problemet är att herrn vill skicka med en länk i sina mail, med en querystring som är olika för alla medlemmar, fast han använder sig av BCC. Permalänk: https://www.webforum.nu/p/993399 ## #11 — crisse6, 2003-03-30T04:07Z precis. Permalänk: https://www.webforum.nu/p/993796 ## #12 — crisse6, 2003-03-30T18:01Z sa har ser koden ut nu, inga felmess, men det blir forsta mailadressen som ligger i db'n i unsubscribe lanken pa alla mail :( ``` [red] <% intTimes = request.QueryString("times") If intTimes = "" Then intTimes = 0 sql="SELECT email FROM t_mailinglist " set rs=objConn.execute(sql) varEmail = rs.Getrows() set rs = Nothing Set objConn = Nothing '## -- hur många mail ska skickas i stöten -- intSentLetters = 50 * intTimes intTimes = intTimes + 1 If Not intSentLetters > UBound(varEmail,2) Then '## -- loopa igenom alla mailadresser som hämtats från db och sparats i arrayen -- For N = intSentLetters TO UBound(varEmail,2) intCounter = intCounter + 1 subject = "Nyhetsbrev från !" message = request.form("message") unsubscribe = "-----------------------------------------"&vbcrlf&"http://www.xxx.nu/unsubscribe.asp?address="&varEmail(0,N) Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "smtp.xxx.nu" JMail.Sender = "cristoffer@xxx.nu" JMail.Subject = subject jmail.Body = message & vbcrlf & vbcrlf & unsubscribe JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 'JMail.AddRecipientBCC varEmail(0,N) JMail.AddRecipient varEmail(0,N) JMail.Execute If intCounter = 49 Then Exit For Next strURL = "sendMailinglist.asp?times=" & intTimes Response.Redirect strURL Else Response.Write "Alla mail har skickats." End If %> ``` Permalänk: https://www.webforum.nu/p/994134 ## #13 — @nders, 2003-03-30T18:53Z Ja, det är så det fungerar. Antingen skickar du separata mail, eller så gör du inte det. Det är bara att välja. Permalänk: https://www.webforum.nu/p/994159 ## #14 — crisse6, 2003-03-30T19:51Z men hanger ej med? hur ska koden se ut for det da? ar lite "lost" har....? Permalänk: https://www.webforum.nu/p/994202 ## #15 — @nders, 2003-03-30T20:01Z Ska du ha en länk som skiljer sig i varje mail, då får du skicka ett separat mail till varje mottagare. BCC betyder blind carbon copy, alltså alla mottagare får en kopia av ett och samma mail. Annars kan du ju alltid ha en generell unsubscribe-sida där man får fylla i sin emailadress. mvh Permalänk: https://www.webforum.nu/p/994208 ## #16 — crisse6, 2003-03-30T20:27Z jo.... men blir inte det en javla nerdragning i prestanda? Permalänk: https://www.webforum.nu/p/994223 ## #17 — solbulle, 2003-03-30T21:48Z Som vi tidigare sagt crisse, så antingen skickar du olika mail eller så skickar du lika mail, det är ju liksom bara att välja. Det allra enklast är ju som @nders skriver o som vi diskuterade förut att ha en länk till en sida där man är tvungen att plita ner sin adress. Detta annars tycker jag borde kunna fungera och skicka olika mail. Dock otestat. ``` <% Server.ScriptTimeout = 1600 %> Du lyckades!! <% intTimes = request.QueryString("times") If intTimes = "" Then intTimes = 0 sql="SELECT email FROM t_mailinglist " set rs=objConn.execute(sql) varEmail = rs.Getrows() set rs = Nothing Set objConn = Nothing '## -- hur många mail ska skickas i stöten -- intSentLetters = 50 * intTimes intTimes = intTimes + 1 If Not intSentLetters > UBound(varEmail,2) Then '## -- loopa igenom alla mailadresser som hämtats från db och sparats i arrayen -- For N = intSentLetters TO UBound(varEmail,2) stremail = varEmail(0,N) intCounter = intCounter + 1 subject = "Nyhetsbrev från skriptat.nu!" message = request.form("message") unsubscribe = "-----------------------------------------"&vbcrlf&"http://www.skriptat.nu/unsubscribe.asp?address="&stremail Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "smtp.skriptat.nu" JMail.Sender = "cristoffer@skriptat.nu" JMail.Subject = subject jmail.Body = message & vbcrlf & vbcrlf & unsubscribe JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.AddRecipient stremail JMail.Execute If intCounter = 49 Then Exit For Next strURL = "sendMailinglist.asp?times=" & intTimes Response.Redirect strURL Else Response.Write "Alla mail har skickats." End If %> ``` /r en liten tankevurpa. Permalänk: https://www.webforum.nu/p/994249 --- Tråden på webben: https://www.webforum.nu/amne/asp/72182-jmail-och-10-at-gangen-eller-nat-sant