Archive version of: massmailer.r ... version: 22 ... crazyaxe 9-Feb-2011

Amendment note: Thank to Roberto Vespa, I corrected a bug. || Publicly available? Yes

Rebol [title: "Mass mailer"
    version: 2.3.23
    author: "Massimiliano Vessi"
    date:  29/9/2009
    email: maxint@tiscali.it
     file: %massmailer.r
    Purpose: {"Mass emailng the world!"}
    ;following data are for www.rebol.org library
    ;you can find a lot of rebol script there
    library: [ 
        level: 'beginner 
        platform: 'all 
        type: [tutorial tool] 
        domain: [vid gui email ] 
        tested-under: [windows linux] 
        support: none 
        license: [gpl] 
        see-also: none 
        ] 
    ]

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 "____________________________"
	]