--- title: "Automatiskt mail vid inlägg i forum" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12122-automatiskt-mail-vid-inlägg-i-forum" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "erka" published: "2001-10-15T04:46:00.000Z" updated: "2005-01-06T19:22:34.000Z" replies: 15 views: 395 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/12122-automatiskt-mail-vid-inlägg-i-forum" --- # Automatiskt mail vid inlägg i forum ## #1 — erka, 2001-10-15T04:46Z Jag sitter å har byggt ett forum där man kan välja att bevaka antingen ett helt forum eller en särskild topic i forumet. Detta sker genom att om man klickar på "bevaka forum (eller topic)" så läggs ens mailadress in i en tabell i forumets databas. Varje gång man gör en ny postning så ska denna tabell kollas igenom och ett mail ska skickas de som antingen bevakare tråden eller hela forumet. Då är det ju tänkt att själva mail loopen ska ligga i tex. InsertTopic.asp eller InsertReplie.asp, använder mig nu av Jmail 4 och har märkt att den är rätt långsam (sökte här på webforum), det kan röra sig om som max 300 mailadresser som det ska skickas till vid varje inlägg (vid extrema fall). Om jag lägger den i de båda insert filerna kommer ju det att ta lång tid varje gång man gör en ny postning för den måste skicka ut ett mail till alla som premenumrerar på just forumet/topicen i fråga. Kan man göra det på något annat sätt, har kolla på komponenter såsom AspOcxMail och AspQMail, är de bättre att använda samt ska jag bygga upp mail funktionen på någót annat sätt ? tacksam för synpunkter och tipps! Permalänk: https://www.webforum.nu/p/12122 ## #2 — PatrikB, 2001-10-15T06:01Z Har du testat att köra [Simple mailmerge](http://tech.dimac.net/isapiscript.dll?action=read&id=32559&exId=32575) eller något av de andra laternativen för att skicka stora mängder med mail. cya, PatrikB Permalänk: https://www.webforum.nu/p/292181 ## #3 — erka, 2001-10-15T06:42Z ``` which is used to create personalized emails from a template. ``` Nja det verkar ju mest användas till att kunna bygga "dynamiska" mallar, jag är mer ute efter snabbaste sättet att plocka ut ett antal 1-400 adresser ur en db och skicka ett mail till dessa. Tex om man kan göra ett litet script som anropas i insert filen och sedan efter att det är igångsatt skickas man tillbax till forumet medans scriptet som skickar till alla i db:n arbetar i bakgrunden på servern Permalänk: https://www.webforum.nu/p/292182 ## #4 — PatrikB, 2001-10-15T08:48Z Kolla in de andra klasserna som finns med, tex MailMerge ... fast då måste du ha tillgång till din PickUp-mapp om du sätter LazySend till true så går det ju lite snabbare oxå .... fast e ju inte att rekomendera. PSST.. enda sättet att få snabba mailutskick är genom listserv funktion cya, PatrikB \[Redigerat av PatrikB den 15 okt 2001\] Permalänk: https://www.webforum.nu/p/292183 ## #5 — erka, 2001-10-16T06:01Z Denna borde väll inte fungera, men det för det uppenbarligen, låt oss säga den ska gå igenom 60 mail adresser och skicka till den, blir det acceptabelt eller för tok för segt. Har tänkt att man kunde skriva en liten vb applikation och köra igång med en trigger så det körs i bakgrunden och inte på själva sidan. Men som sagt, det har jag inte tid med nu så jag undrar hur ser detta egentligen ut ``` strSQL = "SELECT ForumId, WatchForumUserId FROM WatchForums WHERE ForumId = "& strForumId &"" Set Rs = Connect.Execute(strSQL) If Rs.EOF Then Rs.Close Set RS = Nothing Else Rs.Close Set RS = Nothing ArrRs = Connect.Execute(strSQL).getrows() Set JMail = Server.CreateObject("JMail.SMTPMail") Set msg = Server.CreateOBject( "JMail.Message" ) Jmail.LazySend = True JMail.ContentType = "text/html" JMail.ServerAddress = "mail.extranet.se" JMail.Sender = "forum@extranet.se" JMail.Subject = "New topic in the forum "& strForumName JMail.Priority = 3 JMail.body = "A new topic has been posted in the forum "& strForumName & "

" &"" & strSubject & "" For i = 0 to ubound(ArrRs,2) JMail.AddRecipient ""& ArrRs(1,i) &"" Next Erase ArrRs JMail.Execute End If ``` Permalänk: https://www.webforum.nu/p/292184 ## #6 — @nders, 2001-10-16T06:10Z Nu är jag medveten om att jag inte svarar på själva frågan, men jag har en undran och ett förslag: Fråga: Varför gå över ån efter vatten? Varför konkatenerar du varje mailadress med två tomma strängar??? Du kan ta bort det fetstilta: ``` JMail.AddRecipient [b]""&[/b] ArrRs(1,i) [b]&""[/b] ``` Förslag: Använd JMails metod för att skicka med bcc-mottagare istället. Jag blir galen då jag får mail med massor med mottagare, och framför allt att alla andra får min mailadress på ett sådant sätt. Mvh, Permalänk: https://www.webforum.nu/p/292185 ## #7 — erka, 2001-10-16T06:17Z Jo de kan jag ju ta bort, snabbt och slarvigt skriven :( bcc ska jag kika mera på, men det är internt så mailadresserna får komma ut :) tack för sunpunkterna, ska kolla upp bcc.. Permalänk: https://www.webforum.nu/p/292186 ## #8 — PatrikB, 2001-10-16T06:18Z Ser helt ok ut förutom att du bör lägga till alla som ska ha mail som BCC ``` JMail.AddRecipientBCC ""& ArrRs(1,i) &"" ``` Annars kan de andra se vilka det är som får mail och det kanske inte alltid är så bra. cya, PatrikB Permalänk: https://www.webforum.nu/p/292187 ## #9 — erka, 2001-10-16T06:23Z tack patrikb, ska fixa iordning bcc så får vi se om det går lite snabbare, jag har en till fråga. Vad gör Jmail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") Permalänk: https://www.webforum.nu/p/292188 ## #10 — erka, 2001-10-16T08:29Z Även med denna kod får jag med vilka som fått mailet, hur döljer jag det, det är inte superviktigt, men eftersom ni sa att jag skulle använda bcc så testade jag det, men någe vill sig ändå inte riktigt. ``` strSQL = "SELECT WatchForumUserId FROM watchForums WHERE forumID = "& strForumId &" UNION SELECT WatchTopicUserID from WatchTopics where TopicID ="& strTopicId&"" Set Rs = Connect.Execute(strSQL) If Rs.EOF Then Rs.Close Set RS = Nothing Else Rs.Close Set RS = Nothing ArrRs = Connect.Execute(strSQL).getrows() 'KODEN KOMMER HÄR! FÖR ATT LOPPA IGENOM OCH SKICKA MAIL Set JMail = Server.CreateObject("JMail.SMTPMail") set msg = Server.CreateOBject( "JMail.Message" ) Jmail.LazySend = True JMail.ContentType = "text/html" JMail.ServerAddress = "mail.extranet.se" JMail.Sender = "forum@extranet.se" JMail.Subject = "New replie to the topic " & trim(strTopicName) &" in the forum "& trim(strForumName) JMail.Priority = 3 JMail.body = "A replie to the topic "& strTopicName & " in the forum "& strForumName &"

Go directly to the topic "& strTopicName &"
"& strTopicName &"" JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") For i = 0 to ubound(ArrRs,2) JMail.AddRecipientBCC ArrRs(0,i) Next Erase ArrRs JMail.Execute End If ``` Permalänk: https://www.webforum.nu/p/292189 ## #11 — Lukaspojken, 2001-10-16T12:53Z erka! Fick du ditt script att fungera eller? Jag ska själv bygga en sådan funktion snart. Några tips? Permalänk: https://www.webforum.nu/p/292190 ## #12 — PatrikB, 2001-10-16T14:02Z Du kanske måste ha med Jmail.AddRecipient "dinmail@dindomain.nu" Lägg den innan for loopen cya, PatrikB Permalänk: https://www.webforum.nu/p/292191 ## #13 — pirro, 2001-10-16T14:12Z Du kan använda CDONTS, vet dock inte koden Permalänk: https://www.webforum.nu/p/292192 ## #14 — PatrikB, 2001-10-16T14:34Z CDONTS eller inte, eller ngn annan mailkomponent ger samma resultat, långsamma mailutskick cya, PatrikB Permalänk: https://www.webforum.nu/p/292193 ## #15 — MickeA.com, 2005-01-06T15:28Z Jag använder Jmail's "Speedmailer" till det här, funkar hur bra som helst och det är inte så mycket kod att hålla reda på. Permalänk: https://www.webforum.nu/p/1522531 ## #16 — Jesper T, 2005-01-06T19:22Z Ok, nu är det dryga tre(3) år mellan inläggen här... :e ;) Permalänk: https://www.webforum.nu/p/1522737 --- Tråden på webben: https://www.webforum.nu/amne/asp/12122-automatiskt-mail-vid-inlägg-i-forum