Send mail ved nyt indlæg

Hvordan er din tråd gemt? - en database, tekstfil, xml...

Access-database

Når en bruger sender et indlæg, gemmes dette jo i DB'en. Ved samme lejlighed kan du sende en mail med flere modtagere. Adresserne henter du jo fra DB'en. Hvordan lagrer du adresserne? I et array eller én i hver record?

Et eksempel med ASPmail:

*************************************************'

        Dim Mailer
        Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
        Mailer.FromName  = "Mig"
        Mailer.FromAddress= "do_not@reply.dk"
        Mailer.RemoteHost = "mail.xxx.com"

        strSQL = "Select * From DinTabel"
        Set rs = Conn.Execute(strSQL)

        Do While Not rs.EOF
            Mailer.AddRecipient "" & rs("Navn") & "", "" & rs("Email") & ""
            rs.MoveNext
        Loop
       
        Mailer.Subject    = "Nyt indlæg i tråden, hvor du deltager"
        Mailer.BodyText  = "Der er netop kommet et nyt indlæg. Gå ind på www.mitdomaene.dk for at se dette."

        if Mailer.SendMail then
              '...
        else
              '...
        end if

        Set Mailer = Nothing
        Set rs = Nothing

Så hvis en person har skrevet 3 gange i indlægget, får han vel 3 mails?

/cotus

Ja, men det kan du hurtigt lave om på:

        Dim Mailer
        Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
        Mailer.FromName  = "Mig"
        Mailer.FromAddress= "do_not@reply.dk"
        Mailer.RemoteHost = "mail.xxx.com"

        strSQL = "Select * From DinTabel Group By Navn"
        Set rs = Conn.Execute(strSQL)

        Do While Not rs.EOF
            Mailer.AddRecipient "" & rs("Navn") & "", "" & rs("Email") & ""
            rs.MoveNext
        Loop
       
        Mailer.Subject    = "Nyt indlæg i tråden, hvor du deltager"
        Mailer.BodyText  = "Der er netop kommet et nyt indlæg. Gå ind på www.mitdomaene.dk for at se dette."

        if Mailer.SendMail then
              '...
        else
              '...
        end if

        Set Mailer = Nothing
        Set rs = Nothing



"Navn" og "Email" erstattes med dine kolonners navne, hvis de altså hedder noget andet.