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.itThis 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 "____________________________"
]
ReplyDeleteDet är underbart att du får idéer från denna del av skrivandet som