Wednesday, 20 March 2013

Mass mailer

The following script can be used for good or for bad intentions: it's a mass emailer.
The scope of the script is to send an email to any number of address avoiding antispam protection of your service provider. Usually any service provider put a limit to the number of email's addresses, this script read your adresses list and send an email at a time to every address.
First of all prepare your addresses list in a text file, like this:

maxint@tiscali.it
myfriend@hotmail.com
myotherfriend@gmail.com

then you have to write your email message with your preferred email software (mine is thunderbird) and save your email as an EML file (just "Save as file..." of your client).
Finally start the script:

Push the button Settings to configure your email settings, your settings are stored in a file, so next time you don't need to write them again.

Push the Email button and select your email file, the red led will become green.
Push the Email list button and select your address list file, the red led will become green.


Now select the interval of seconds between email sendings and push MASS MAILING! button.
If something goes wrong during sendings, the script creates a errors.log file containing the last email sent:
Last sent email is: maxint@tiscali.it
This way you can restart from the last email sent, shortening the email list file. Moreover you haven't to fill again fields, just push the Reload last button, and all old configuration will be restored.
This script commonly is used with more than 3000 addresses!
Here the source:
Rebol [title: "Mass mailer"
    version: 2.3.24
    author: "Massimiliano Vessi"
    date:   29/9/2009
    email: maxint@tiscali.it
    file: %massmailer.r
    Purpose: {"Mass emailng the world!"}
    ]
header-script: system/script/header
version: "Version: "
append version header-script/version
config: array 7
; the file %mass_mailer_conf.txt contains all configurations
; from 1-8 fields are settings
; 1 email adress from
; 2 smtp
; 3   user
; 4 password
; 5 email template file
; 6 email list
; 7 retard

;function to save all data in mass_mailer_conf.txt file
salvatutto: func [config] [
    write %mass_mailer_conf.txt ""
    save   %mass_mailer_conf.txt   config
    ]
   
;check massmailer conf file existance
either exists? %mass_mailer_conf.txt [config:   load   %mass_mailer_conf.txt ] [
    alert "You must set access data. Please fill in data in Settings panel."
    ritardo: 2
    ]
;Setting panel
configurazione_lay: layout [
    across
    title "Settings"
    return
    text "Your email:"
    email_fl: field  
    return
    text "SMTP server:"
    smtp_fl: field  
    return
    text "SMTP user:"
    smtpuser_fl: field
    return
    text "SMTP password:"
    smtppass_fl: field
    return
    button "Save" [
        poke config 1   to-email email_fl/text    
        poke config 2   to-word smtp_fl/text
        poke config 3 to-string smtpuser_fl/text
        poke config 4   to-string smtppass_fl/text
    salvatutto config
        unview]
    button "Exit" [unview]  
    ]
;Help panel
aiuto_lay: layout [
    title "HELP"
    text 190 {This is a mass email, it permits to send any number of emails without problems. It will send an email each 2 seconds (or the time you choose).
If you'll fill correctly settings panel, all will be alright. File loaded by Mass mailer must be in ASCII not in
unicode. There is also a errors.log file with the last email sent, it's useful in case of interruption.
Now this software works with any email. If you have problems, please contact me:   }

text blue (rejoin ["maxint" "@" "tiscali.it"])
    ]
;checking if the email list is   OK
controllo_emails: func [lista] [
    lista_nera: copy []
    avvertire: false
    foreach indirizzo lista [
        temp2: length? parse indirizzo "@."
        if temp2 < 3 [  
            avvertire: true
            append lista_nera   indirizzo
            ]
        ]
    if avvertire = true [alert reform ["The following addresses are NOT correct:" lista_nera ]]    
    ]
assemblaggio: func [] [
    ;SET-NET is a function value.
    ;ARGUMENTS:
    ;settings -- [email-addr default-server pop-server proxy-server proxy-port-id proxy-type esmtp-user esmtp-pass] (Type: block)
    set-net   reduce [config/1   config/2   none none none none   config/3 config/4]
    ;now we construct the header
    il_header: make object! [
        X-REBOL: "View 2.7.8.3.1 http://WWW.REBOL.COM"
        Subject:   email/Subject
        From:   to-email config/1
        Return-Path: to-email config/1
        To: to-email config/1
        Date: to-idate now   ;we must set an correct RFC 822 standard format date or our emails will be identified as spam
        MIME-Version:   "1.0"
        Content-Type: email/Content-Type
        ]
    ]
leggi_email: func [corpo_ind ] [
    a_lay/text: to-string corpo_ind
    show a_lay
    testo: read/string to-file corpo_ind
    email: import-email testo          
    led2/data: true
    show led2
    ;probe email
    ]
view layout [
    across
    title "Mass mailing"
    return
    btn-help [ view/new aiuto_lay]
    text   version
    return
    button "Settings" [
        email_fl/text: to-string config/1
        smtp_fl/text:   to-string config/2
        smtpuser_fl/text: to-string config/3
        smtppass_fl/text: to-string config/4
        show [email_fl   smtp_fl smtpuser_fl smtppass_fl ]
        view/new configurazione_lay
        ]
    button "Reload last" [
        b_lay/text: to-string config/6      
        ritardo/text: to-integer config/7
        db_mail2: read/lines to-file   config/6
        leggi_email config/5
        ;debug
        ;probe email        
        led3/data: true    
        show [ a_lay b_lay   led2   led3   ritardo]
        ]
    return
        led2: led
    button "Email" [
        corpo_ind: request-file
        either   (parse (to-string corpo_ind)   [thru ".eml" end]) [leggi_email corpo_ind ] [alert "It isn't a valid eml file!"]
        ]
    a_lay: field "no text file loaded, html files are the best!"
    return
    led3: led
    button "Email list" [
        temp:   to-file request-file
        db_mail: read temp
        db_mail:   parse db_mail none
        sort db_mail
        db_mail2: copy unique db_mail
        write/lines   temp db_mail2 ;scrive il file su hdd
        controllo_emails db_mail2
        b_lay/text: to-string temp
        show b_lay
        led3/data: true
        show led3
        ]  
    b_lay: field "no email list file loaded"
    return    
    text "Retard:"
    button 22x22 "+" [temp: to-integer ritardo/text
        temp: temp + 1
        ritardo/text: to-string temp
        show ritardo
        ]
    ritardo: field   40 "2"
    button 22x22 "-" [temp: to-integer ritardo/text
        temp: temp - 1
        if temp < 1 [temp: 1]
        ritardo/text: to-string temp
        show ritardo
        ]
    return
    button red "MASS MAILING!" [
        counter: 0
        b: length? db_mail2
        a: confirm reform ["You are going to send" b "emails. I already deleted double entries. Do you want to proced?"]
        if a = true [
            ;saving configurations
            poke config 5 to-file a_lay/text ; email file
            poke   config 6 to-file b_lay/text ; emails list
            poke   config 7 to-integer ritardo/text ; retard
            salvatutto config ;save configuration
            ;sending emails
            foreach record db_mail2 [
                assemblaggio ;we now assemble the email
                il_header/To:   record
                counter: counter + 1
                sped_lay/text: reform ["Sending email n." counter]
                show sped_lay
                send/header     ( to-email record )     email/Content   il_header
                wait to-integer ritardo/text
                write %errors.log   reform ["Last sent email is: " record]
                ]  
            alert reform ["Finished! You sent" counter "emails."]
            sped_lay/text: reform ["Finished! You sent" counter "emails." ]
            show sped_lay          
            ]
        ]
    return
    sped_lay: text red "____________________________"
    ]

2 comments: