[VB.NET] Mass Mailing

[Friedchicken]

Nu ben ik een aantal uurtjes bezig met het maken van een goed werkend mail systeem. Het is de bedoeling om de ontvangers een nieuwsbrief te sturen in HTML format. Het html verstuur gedeelte lukt. Nu komen er hoogst waarschijnlijk een kleine 400 ontvangers in de DB.

Op dit moment verstuur ik op de volgende manier:

code:

 Dim ontvangers As String

        connectie.Open()
        Dim queryOntvangers As String = "SELECT KlantEmail as ontvangers from Klanten WHERE KlantNBOntvangen='1'"
        Dim cmdOntvangers As SqlCommand = New SqlCommand(queryOntvangers, connectie)
        Dim dtrOntvangers As SqlDataReader = cmdOntvangers.ExecuteReader()

        While dtrOntvangers.Read()
            ontvangers = dtrOntvangers.GetSqlString(0).Value

            Dim mail As MailMessage = New MailMessage

            'Gegevens die E-mail moet bevatten
            mail.To = ontvangers
            mail.From = "[e-mail]"
            mail.BodyFormat = MailFormat.Html
            SmtpMail.SmtpServer = "smtp.xs4all.nl"
            mail.Subject = "Multiple test"

            mail.Body = "<font face='Tahoma, Arial, Helvetica, sans-serif' size='2'>Komt dit netjes aan ?</font>"

            'Daadwerkelijke commando versturen e-mail
            SmtpMail.Send(mail)

            'update the email counter
            EmailCounter += 1
            

        End While

        dtrOntvangers.Close()
        connectie.Close()

Over 20 adressen doet hij nu een seconden of 5. Je raad het vast al dat op een gegeven moment er 400 mailtjes uit moeten dat het lang duurt en of zelfs stuk loopt.

Ik heb al een aantal manieren gevonden om mass mailing te doen. Sommige hiervan hebben mooie progress balken.

http://www.aspnetemail.com/samples/webmailer/ <-- deze verstuurd zo'n 1500 mails in zeer korte tijd.

De source van deze mag je bekijken en alles krijg je voor elkaar geprogged, totdat je op moment van versturen komt. Dan mag je een licentie bij de mannen kopen. Op zich respect voor ze, het ziet er goed uit. Maar nu zou ik graag willen weten of mijn zelf geschreven code beter kan op het versturen niveau..

[Giblet]

Ik vermoed dat het aan het feit ligt dat je het naar de mailserver van XS4All stuurt en de site van je voorbeeld waarschijnlijk localhost als mailserver gebruikt.

Test het dus eens met localhost

[Friedchicken]

De standaard content van de mail heb ik uit de while gehaald.

code:

 While dtrOntvangers.Read()
            ontvangers = dtrOntvangers.GetSqlString(0).Value
            mail.To = ontvangers
            EmailCounter += 1
            SmtpMail.Send(mail)
        End While

En idd, als ik b.v. 20 mails verstuur vanaf localhost (op webserver) dan gooit hij deze in minder dan 1 sec eruit...

Op naar het bouwen van de progressie balk...

[MTWZZ]

met giblet ^^
Eventueel zou je je prog nog wat kunnen optimaliseren door zoiets te doen:

Visual Basic:

 Dim ontvangers As String

        connectie.Open()
        Dim queryOntvangers As String = "SELECT KlantEmail as ontvangers from Klanten WHERE KlantNBOntvangen='1'"
        Dim cmdOntvangers As SqlCommand = New SqlCommand(queryOntvangers, connectie)
        Dim dtrOntvangers As SqlDataReader = cmdOntvangers.ExecuteReader()

        Dim mail As MailMessage = New MailMessage

        'Gegevens die E-mail moet bevatten
        mail.From = "[e-mail]"
        mail.BodyFormat = MailFormat.Html
        SmtpMail.SmtpServer = "smtp.xs4all.nl"
        mail.Subject = "Multiple test"

        mail.Body = "<font face='Tahoma, Arial, Helvetica, sans-serif' size='2'>Komt dit netjes aan ?</font>"

        While dtrOntvangers.Read()
            ontvangers = dtrOntvangers.GetSqlString(0).Value

            mail.To = ontvangers
           
            'Daadwerkelijke commando versturen e-mail
            SmtpMail.Send(mail)

            'update the email counter
            EmailCounter += 1
            

        End While

        dtrOntvangers.Close()
        connectie.Close()

Dit scheelt je iig het elke keer aanmaken van de MailMessage class zodat je daar wat performance winst boekt.
De meeste performance winst haal je natuurlijk uit wat giblet zegt over localhost.

grr sneller typz0ren

[ Voor 7% gewijzigd door MTWZZ op 13-12-2005 14:18 ]

[gorgi_19]

Je kan ook het mailen in een background thread laten gebeuren; heb je er ook weinig last van

[Friedchicken]

Ja in background laten draaien kan, maar ik wil iedere seconde zeg maar een value requesten.

En die value is dan die van Emailcounter, dus om uit te rekenen hoeveel procent gedaan is.

[pjvandesande]

Friedchicken schreef op dinsdag 13 december 2005 @ 15:02:
Ja in background laten draaien kan, maar ik wil iedere seconde zeg maar een value requesten.

En die value is dan die van Emailcounter, dus om uit te rekenen hoeveel procent gedaan is.

Dat kan gewoon, je kunt een MailSender class maken die jou verzendingen mailt in een apparte Thread en gewoon een public field of een propertie waard opvragen in een timer event ofzo op je main form.

[Friedchicken]

Het werken met Threads is voor mij iets nieuws, ergens een goede tut bij de hand ?

[pjvandesande]

C#:

public class Mailer
{
     private int _sendCount = 0;

     public void Send()
     {
          // TODO: code om te zenden
          _endCount++;
     }
}

Je roept nu gewoon de Send method aan in anderen Thread. Dit kun je doen met de Thread.Start method die een ThreadStart delegate accepteerd.

In C# kun je dit alsvolgt doen:

C#:

Mailer mailer = new Mailer();
Thread mailThread = new Thread( new ThreadStart(mailer.Send));
mailThread.Name = "MAILTHREAD";
mailThread.Priority = ThreadPriority.Lowest;
mailThread.Start();

[Friedchicken]

Handige .PDF

http://www.infosupport.nl..._Threading-VB-NET_dl1.pdf

[Remco]

Waarom verstuur je niet 1 email met iedereen in de BCC ?
Dan hoef je maar 1 emailtje te versturen.

Of zit ik er naast ?

[cowgirl]

Remc0 schreef op woensdag 14 december 2005 @ 15:01:
Waarom verstuur je niet 1 email met iedereen in de BCC ?
Dan hoef je maar 1 emailtje te versturen.

Of zit ik er naast ?

Omdat je dan grote kans hebt dat de mail door spamfilters tegengehouden wordt en je kan de mail niet personalizen.

[Robbemans]

@Remc0:

Als je gepersonaliseerde email verstuurd is dat niet zo handig


Bij ons kantoor versturen we ook e-mail naar opt-inners. Dit is gepersonaliseerd en gaat met ongeveer 15 ontvangers per seconde de deur uit. Hou bij dit soort acties rekening met de volgende zaken:

- Het moet opt-in e-mail zijn, met een duidelijk manier in de e-mail om je af te melden;
- Plaatjes en attachments > 50 kb is not done. Niet iedereen heeft een dikke ADSL2+ lijn.
- Doe het niet te vaak;
- Vermijd animated gif images.

[ Voor 75% gewijzigd door Robbemans op 14-12-2005 15:12 ]

[Friedchicken]

Op dit moment gaat er een html mail uit met 10 mails per seconde.

Iedere mail wordt appart verzonden. Dus geen mensen in CC of BCC, zo hoeven de ontvangers niet te zien wie nog meer de mail ontvangt en kan de mail gepersonaliseerd worden met hun eigen persoonsgegevens.

[Flapp]

Kan je dit niet gewoon heel simpel met php doen ?

[eghie]

Ik zou er een sleep ingooien, aangezien de nieuwsbrieven het netwerk nog wel eens half willen platgooien. Ongeveer een sleep van 1 seconde zou genoeg moeten zijn.

Visual Basic:

 Dim ontvangers As String

        connectie.Open()
        Dim queryOntvangers As String = "SELECT KlantEmail as ontvangers from Klanten WHERE KlantNBOntvangen='1'"
        Dim cmdOntvangers As SqlCommand = New SqlCommand(queryOntvangers, connectie)
        Dim dtrOntvangers As SqlDataReader = cmdOntvangers.ExecuteReader()

        Dim mail As MailMessage = New MailMessage

        'Gegevens die E-mail moet bevatten
        mail.From = "[e-mail]"
        mail.BodyFormat = MailFormat.Html
        SmtpMail.SmtpServer = "smtp.xs4all.nl"
        mail.Subject = "Multiple test"

        mail.Body = "<font face='Tahoma, Arial, Helvetica, sans-serif' size='2'>Komt dit netjes aan ?</font>"

        While dtrOntvangers.Read()
            ontvangers = dtrOntvangers.GetSqlString(0).Value

            mail.To = ontvangers
           
            'Daadwerkelijke commando versturen e-mail
            SmtpMail.Send(mail)

            'update the email counter
            EmailCounter += 1
            
            'Let the process sleep for about 1 second to not overload the system
            sleep(1000);
        End While

        dtrOntvangers.Close()
        connectie.Close()

[pjvandesande]

Dat betekend dat je met 10.000 mails alleen als 2 uur en 42 minuten tijd besteed aan je sleep, lijkt mij een beetje overdreven.

Het beste is dan om de sleep variable te maken, ik zou eerder om de 10 mails even wachten of als de service die dit verzend ook een form heeft daar een control ingooien waarmee je de sleep kunt regelen. Natuurlijk is pauzeren ook een handige functie