ASP Løsning til Masse afsendelse af Mial via Jmail

Sæt Server.ScriptTimeout = 3600 og kør evt en Response.Flush til browseren - jeg har i hvert fald ingen problemer med at den timer ud.

Jmail-objektet behøver du kun oprette en gang og derefter bruge Addrecipient, sende mailen og Clearrecipients. Jeg ville aldrig bruge bcc til at sende så mange mails ud - så er du næsten sikker på at blive afvist som spam.

Nedenstående funktion skal du tilpasse - men den vil danne en email til de brugere som findes i den tabel, du angiver i sql strengen. Funktionen tager højde for det problem, som er kendt m.h.t timeout.
Jeg har selv oplevet, at hvis execute kaldes inden i løkken, så dannes én email, hvor alle modtagere står i d.v.s alle modtagere kan se hinandens email!

Selve body delen kan du bygge om som du vil og lade den indeholde idModtager feltet.

Inden funktionen kaldes, skal databasen være åben og du skal ændre conn til det navn du bruger som connectionstring.

  Function Emailmerge
  Dim StrSQL, Rs
    Set Rs = Server.CreateObject("ADODB.Recordset")
    StrSQL = "SELECT  FROM WHERE "
    Rs.Open StrSQL, conn, 3, 3

    Do While not Rs.EOF
      Set JMail          = Server.CreateObject("JMail.SMTPMail")
      If InStr(Rs("Email"),"@") > 0 Then
        JMail.ServerAddress = "websmtp.ditdomæne"
        JMail.Sender        = "afsenderemailadresse
        JMail.Subject      = "dit subject"
   
        JMail.AddRecipient  "modtagers email" ' f.eks rs("email")
        JMail.Priority      = 3
        JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
   
      ' ********** Her starter selve email-en
        JMail.Body = "Kære " & Rs("navn") & VbCrLf & VbCrLf & Rs("mailbody")

      ' ********** Her slutter selve email-en
        Jmail.Execute
      End if
      Jmail.close
      Set JMail = Nothing   
      Rs.Movenext
    Loop 

    Rs.Close
    Set Rs = Nothing
  End Function

Belaster det ikke serveren unødigt meget at  JMail oprettese og slettes hele tiden ??

Vil det ikke være mere optimalt at gør det en gang for alle

og mht problemet med en email hovr alle kan se alle - løses det ikke ved en  Jmail.Clearrecipients ligefter Jmail.Execute ??


dim JMail
Server.ScriptTimeout = 3600

Function OpenJmail
  Set JMail = Server.CreateObject("JMail.SMTPMail")
end function

Function Emailmerge
'michaelfp's - funktion

end function

Function CloseJmail
  Jmail.close
  Set JMail = Nothing   
end function
??

Det tror jeg ikke - det er jo et og samme object der allokeres og deallokeres.
Det er selvfølgelig mange mails, du skal sende (det jeg har lavet sender mellem 300 og 500 mails af gangen)- men er det ikke et spørgsmål om at prøve?

Jeg har ikke prøvet jmail.clearrecipients - kan være et forsøg værd!
Det er ikke lykkedes mig at bruge server.scripttimeout som en løsning på det kendte problem med over 20 mails! Måske har du bedre held end mig.

Skal spørgsmålet lukkes - eller er der noget uafklaret?

Tak for inputs

Ligeledes har jeg også fundet inspiration her

http://eksperten.dk/spm/396250