Masseforsendelse via JMail

nu kender jeg ikke den præcise opbygning, men umiddelbart ville jeg bare forslå at køre en loop på et almindelig jmail script

do while...

'jmail

movenext
loop

Prøv at forstil dig en loop på 3000 adresse! Det er en meget dum ide og det tager meget lang tid, men tak for forslaget :)

Du bør jo generelt ikke bruge en webside til at afsende så
mange mails. Et program på din PC, med snablen nede i din
database, er langt at foretrække. Ingen HTTP-protokol, ingen
timeout, ....osv...

Ved godt at et program helt sikkert er at foretrække, men da kunden har bedt om at få det lavet på denne måde (jeg har forslået det med et program), så bliver jeg jo nød til at lave det via en webside.

Skørt - han vil sikkert få timeout, nogle mails, der ikke bliver
sendt, andre der bliver sendt to gange.

Du er på timeløn, håber jeg :)

Jeg har udsendt ca. 1400 mails ved at loope over hele jmail objekted som vist nedenfor. Man kan nok spare en hel del tid ved at holde objektet i luften og loope over execute delen. Men pga af en fejl i  Jmail, som smider hver 22' mail væk, skal man lukke forbindelsen efter mindst hver 20'ende mail - sådan noget som det her:

Henrik

-------------
For i = 1 to intCount
  If Not JMail.Execute Then
    Response.Write("ERROR MESSAGE: " & JMail.ErrorMessage & "<br>" & vbCrLf)
    Response.Write("ERROR SOURCE: " & JMail.ErrorSource & "<br>" & vbCrLf)
    Response.Write("LOG: <pre>" & JMail.Log & "</pre>" & vbCrLf)
  End If
  If CInt(i/20) = i/20 Then JMail.Close
Next

------- min nuværende kode ------
if (send.BOF Or send.EOF) then
                Response.write "<tr><td><center><h2>Ingen email-adresser er opfylder kriterie indtil videre!</h2></center></td></tr></table>"
            else
                Response.write"<tr><td><center>"
                Mailtype=1
                mailnr=1
                response.write "<h4>Meddelelse er sendt til : "  & "</h4><br>"
                Server.ScriptTimeout =300  ' Vi giver den 5 minutter - for 3000 mails nok 600 eller 900.
                do while not send.eof
                    Navn= send("Fulde_navn")
                    IDpas= send("brugernavn")
                    Email= Send("Emailad")
                    subject= Request("subject")
                       
                    BodyTextto = "Hej " & Navn & vbCrLf & vbCrLf & bodytext & vbCrLf & vbCrLf & "-----------------" & vbCrLf
                    BodyTextto = BodyTextto + "Denne mail er sendt fra xxx på www.yyy.dk" & vbCrLf
                    %>
                    <!--#include file="mailsend.asp" -->
                    <%
                    response.write "Mail nr: " & mailnr & " "& send("emailad") &"<br>"
                    send.movenext
                    IF mailnr mod 50=0 THEN
                        If response.isclientconnected()=false THEN
                            EXIT DO
                        END IF
                        response.write "</center></td></tr></table><table><tr><td><center>"
                        response.flush
                    END IF
                    mailnr = mailnr+1
                loop
                response.write "</center></td></tr></table>"
            end if

Den her sender til et uendeligt antal modtagere, med kun en modtager i modtagerfeltet af gangen.

<%
Set oRs = oConn.Execute("SELECT Email, Name FROM Customers" )
   
set msgTemplate = Server.CreateObject( "JMail.Message" )
msgTemplate.Logging = true
msgTemplate.silent = true
msgTemplate.FromName = SenderName
msgTemplate.From = SenderEmail
msgTemplate.Subject = Subject
msgTemplate.HTMLBody = Message

Do While Not oRs.EOF
    msgTemplate.AddRecipientBCC ("" & oRs("Email") & "")
    oRs.movenext
loop

if not msgTemplate.Send( "mail.mailbox.dk" ) then
    Response.write "<pre>" & msgTemplate.log & "</pre>"
else
    Response.write "Message sent succesfully! <br>"
    Response.write overAtt
end if
%>


/Cesil

Hhvis din udbyder har købt jmail findes der en samrt funktion til det.  Kan ikke lige huske hva den hedder, men den står på jmails hjemmeside

>>tue

Luk lige sagen

Henrik

Ingen af overstående løsningen er brugelige systemet! Vi har udviklet et program til at gøre det. Men tak fordi i kom med jeres forslag :)