˙˙HTMLOSPACKFILE:1.4DEFAULTDIRNAME:/ICONFILE:ICONNAME:HREFNAME:/apps/multimail;DIR;0;/apps/multimail/bin;DIR;0;/apps/multimail/bin/mailout.html;PRIVATE;4766;<< # setup params # multimail.size - number of emails to send # multimail.emails - array of emails # multimail.contacts - array of contacts # multimail.pubs - array of publications # multimail.idx - next email to send # multimail.sendflag - send/redisplay page flag # multimail.subject - subject line # multimail.text - text message /# multimail.msg="Record Loaded." IF ISINTEGER(multimail.idx)="FALSE" THEN multimail.idx=1 /IF IF multimail.sendflag="FALSE" THEN IF multimail.idx=1 THEN multimail.msg='Start Mailing when ready.' ELSE multimail.msg='Resume Mailing when ready.' /IF /IF # load record /# multimail.send_email=multimail.emails[1,multimail.idx] multimail.send_contact=multimail.contacts[1,multimail.idx] multimail.send_pub=multimail.pubs[1,multimail.idx] IF multimail.send_contact = "" THEN multimail.send_contact=multimail.default_contact /IF IF multimail.send_pub = "" THEN multimail.send_pub=multimail.default_contact /IF multimail.send_subject=multimail.subject multimail.send_subject=REPLACEALL(multimail.send_subject,"[[CONTACT]]",multimail.send_contact) multimail.send_subject=REPLACEALL(multimail.send_subject,"[[PUB]]",multimail.send_pub) multimail.send_text=multimail.text multimail.send_text=REPLACEALL(multimail.send_text,"[[CONTACT]]",multimail.send_contact) multimail.send_text=REPLACEALL(multimail.send_text,"[[PUB]]",multimail.send_pub) # end load record /# IF multimail.sendflag="TRUE" THEN # send email /# IF multimail.send_email ~~ "@" THEN # From Address ignored - needs to be fixed. /# MAIL multimail.send_text TO ADDRESS=multimail.send_email SUBJECT=multimail.send_subject /MAIL multimail.msg='"'+multimail.send_email+'" Sent.' ELSE multimail.msg='No @ sign. Aborted.' /IF multimail.idx=multimail.idx+1 # load record /# multimail.send_email=multimail.emails[1,multimail.idx] multimail.send_contact=multimail.contacts[1,multimail.idx] multimail.send_pub=multimail.pubs[1,multimail.idx] IF multimail.send_contact = "" THEN multimail.send_contact=multimail.default_contact /IF IF multimail.send_pub = "" THEN multimail.send_pub=multimail.default_contact /IF multimail.send_subject=multimail.subject multimail.send_subject=REPLACEALL(multimail.send_subject,"[[CONTACT]]",multimail.send_contact) multimail.send_subject=REPLACEALL(multimail.send_subject,"[[PUB]]",multimail.send_pub) multimail.send_text=multimail.text multimail.send_text=REPLACEALL(multimail.send_text,"[[CONTACT]]",multimail.send_contact) multimail.send_text=REPLACEALL(multimail.send_text,"[[PUB]]",multimail.send_pub) # end load record /# /IF IF multimail.idx > multimail.size THEN multimail.idx="ERROR" multimail.msg=multimail.msg+"
Mailing Complete." mulitmail.sendflag="FALSE" GOTO multimail.dir+"start.html" /IF >> << IF multimail.sendflag THEN DISPLAY '' /DISPLAY /IF >> <<multimail.titlename>> - Broadcast Control Panel
>>
<>
Email Broadcast Control Panel
<>

Ready to send << IF multimail.test="TRUE" THEN DISPLAY 'to '+ 'TEST address' /DISPLAY /IF >>
  • Message No: <<> of <>>
  • Email Address: <<>>
  • Contact: <<>>
  • Publication: <<>>
  • Subject: <<>>

[Start or Resume Sending] [Suspend] [Reset to Beginning] [Quit]
<> <> <> <> /apps/multimail/bin/settings.html;PRIVATE;8508;<< # load settings here /# multimail.spacer=REPEAT(" ",5) COPY FILE=multimail.dir+"settings/datatype.txt" TO multimail.datatype /COPY COPY FILE=multimail.dir+"settings/exit.txt" TO multimail.exit /COPY COPY FILE=multimail.dir+"settings/exit_title.txt" TO multimail.exit_title /COPY COPY FILE=multimail.dir+"settings/default_contact.txt" TO multimail.default_contact /COPY COPY FILE=multimail.dir+"settings/default_pub.txt" TO multimail.default_pub /COPY COPY FILE=multimail.dir+"settings/maxsize.txt" TO multimail.maxsize /COPY COPY FILE=multimail.dir+"settings/test.txt" TS="," TO multimail.vrtest /COPY COPY FILE=multimail.dir+"settings/col_email.txt" TO multimail.col_email /COPY COPY FILE=multimail.dir+"settings/col_contact.txt" TO multimail.col_contact /COPY COPY FILE=multimail.dir+"settings/col_pub.txt" TO multimail.col_pub /COPY COPY FILE=multimail.dir+"settings/txname.txt" TO multimail.txname /COPY COPY FILE=multimail.dir+"settings/tx_delim.txt" TO multimail.tx_delim /COPY COPY FILE=multimail.dir+"settings/vcol_email.txt" TO multimail.vcol_email /COPY COPY FILE=multimail.dir+"settings/vcol_contact.txt" TO multimail.vcol_contact /COPY COPY FILE=multimail.dir+"settings/vcol_pub.txt" TO multimail.vcol_pub /COPY COPY FILE=multimail.dir+"settings/vrname.txt" TO multimail.vrname /COPY COPY FILE=multimail.dir+"settings/field_email.txt" TO multimail.field_email /COPY COPY FILE=multimail.dir+"settings/field_contact.txt" TO multimail.field_contact /COPY COPY FILE=multimail.dir+"settings/field_pub.txt" TO multimail.field_pub /COPY COPY FILE=multimail.dir+"settings/dbname.txt" TO multimail.dbname /COPY >> <<multimail.titlename>> - User-defined Setting
>>
' /DISPLAY multimail.msg="ERROR" ELSE DISPLAY '' /DISPLAY /IF >>
<>
User-defined Settings
<< IF multimail.msg != "ERROR" THEN DISPLAY '
'+ ''+ multimail.msg+ '

'+ 'Edit settings and [Save] below.

'+ '
<DATABASE>
Mail From Text File
<>Load from file
<>Column delimiter is
<>Find "Email Address" in column
<>Find "Contact" in column
<>Find "Publication" in column

Mail From Buffer
<>Buffer variable name is
<>Find "Email Address" in column
<>Find "Contact" in column
<>Find "Publication" in column

Mail From HTML/OS Database
<>Load from database
<>Find "Email Address" in field
<>Find "Contact" in field
<>Find "Publication" in field

<EXIT BUTTON>
<>Name Exit Button to
<>Link to page

< <DEFAULTS>
<>If empty set Contact to
<>If empty set Publication to

<DATABASE SIZE LIMIT>
<>Limit databases to email entries.

<TEST DATABASE>
<> Entries below used when testing broadcast.
Email Address Contact Publication


<> /apps/multimail/settings;DIR;0;/apps/multimail/settings/letter.txt;PRIVATE;10;letter.txt/apps/multimail/settings/dbname.txt;PRIVATE;19;/apps/dbcons/sample/apps/multimail/settings/subject.txt;PRIVATE;36;Aestiva PR Release - for [[Contact]]/apps/multimail/settings/col_email.txt;PRIVATE;1;2/apps/multimail/settings/col_contact.txt;PRIVATE;1;3/apps/multimail/settings/col_title.txt;PRIVATE;1;4/apps/multimail/settings/col_pub.txt;PRIVATE;1;7/apps/multimail/settings/datatype.txt;PRIVATE;2;vr/apps/multimail/settings/txname.txt;PRIVATE;11;/export.txt/apps/multimail/settings/field_email.txt;PRIVATE;2;t1/apps/multimail/settings/field_contact.txt;PRIVATE;2;t2/apps/multimail/settings/field_pub.txt;PRIVATE;2;t3/apps/multimail/settings/tx_delim.txt;PRIVATE;1;,/apps/multimail/settings/vcol_email.txt;PRIVATE;1;2/apps/multimail/settings/vcol_contact.txt;PRIVATE;1;3/apps/multimail/settings/vcol_pub.txt;PRIVATE;1;4/apps/multimail/settings/vrname.txt;PRIVATE;13;htmlos.buffer/apps/multimail/settings/from.txt;PRIVATE;14;pr@aestiva.com/apps/multimail/settings/exit.txt;PRIVATE;19;/apps/pr/start.html/apps/multimail/settings/maxsize.txt;PRIVATE;4;5000/apps/multimail/settings/default_contact.txt;PRIVATE;6;Editor/apps/multimail/settings/default_pub.txt;PRIVATE;0;/apps/multimail/settings/test.txt;PRIVATE;124;"bluerocket@rocketmail.com","A Smith","A Media" "gina@aestiva.com","B Smith","B Media" "dms@aestiva.com","C Smith","C Media"/apps/multimail/settings/exit_title.txt;PRIVATE;11;PR Database/apps/multimail/settings/default_contact;PUBLIC;6;Editor/apps/multimail/settings/default_pub;PUBLIC;0;/apps/multimail/images;DIR;0;/apps/multimail/letters;DIR;0;/apps/multimail/letters/letter.txt;PRIVATE;109;==================== To: [[CONTACT]] [[PUB]] This is line one This is another line =====================/apps/multimail/start.html;PRIVATE;10538;<< # copy settings here /# multimail.dir=DIRNAME(PAGE) multimail.bgtable='BGCOLOR="#CCCCCC"' multimail.name='Aestiva multiMail' multimail.titlename='Aestiva [multi]MAIL' # user-defined settings /# COPY FILE=multimail.dir+"settings/datatype.txt" TO multimail.datatype /COPY COPY FILE=multimail.dir+"settings/col_email.txt" TO multimail.col_email /COPY COPY FILE=multimail.dir+"settings/col_contact.txt" TO multimail.col_contact /COPY COPY FILE=multimail.dir+"settings/col_pub.txt" TO multimail.col_pub /COPY COPY FILE=multimail.dir+"settings/txname.txt" TO multimail.txname /COPY COPY FILE=multimail.dir+"settings/tx_delim.txt" TO multimail.tx_delim /COPY COPY FILE=multimail.dir+"settings/vcol_email.txt" TO multimail.vcol_email /COPY COPY FILE=multimail.dir+"settings/vcol_contact.txt" TO multimail.vcol_contact /COPY COPY FILE=multimail.dir+"settings/vcol_pub.txt" TO multimail.vcol_pub /COPY COPY FILE=multimail.dir+"settings/vrname.txt" TO multimail.vrname /COPY COPY FILE=multimail.dir+"settings/field_email.txt" TO multimail.field_email /COPY COPY FILE=multimail.dir+"settings/field_contact.txt" TO multimail.field_contact /COPY COPY FILE=multimail.dir+"settings/field_pub.txt" TO multimail.field_pub /COPY COPY FILE=multimail.dir+"settings/dbname.txt" TO multimail.dbname /COPY COPY FILE=multimail.dir+"settings/exit_title.txt" TO multimail.exit_title /COPY COPY FILE=multimail.dir+"settings/exit.txt" TO multimail.exit /COPY COPY FILE=multimail.dir+"settings/maxsize.txt" TO multimail.maxsize /COPY # settings editable on this page /# COPY FILE=multimail.dir+"settings/subject.txt" TO multimail.subject /COPY COPY FILE=multimail.dir+"settings/from.txt" TO multimail.from /COPY COPY FILE=multimail.dir+"settings/letter.txt" TO multimail.letter /COPY COPY FILE=multimail.dir+"letters/"+multimail.letter TO multimail.text /COPY >> <<multimail.titlename>> Version 1.00
>>
>> << IF multimail.msg != "ERROR" THEN DISPLAY '' /DISPLAY multimail.msg="ERROR" ELSE DISPLAY '' /DISPLAY /IF >> >>>>>>>>
<>
'+ ''+ multimail.msg+ '

'+ 'Enter Selection Below

'+ '
Database: 
Email Subject Line: 
From Email Address: 

<<'Use the tags [[CONTACT]] and [[PUB]]'+ ' to mailmerge letter or subject '+ 'line with database.'>>


<< DISPLAY ''+ ''+ ''+ '' /DISPLAY IF ISFILE(multimail.exit) THEN DISPLAY '' /DISPLAY /IF DISPLAY '' /DISPLAY >>
< multimail.maxsize THEN multimail.size=multimail.maxsize multimail.cols=COLS(multimail.tmp) multimail.tmp=GETTABLE(multimail.tmp,1,multimails.cols,1,multimail.size) /IF # split multimail.tmp into arrays /# multimail.emails=GETCOL(multimail.tmp,multimail.col1) multimail.contacts=GETCOL(multimail.tmp,multimail.col2) multimail.pubs=GETCOL(multimail.tmp,multimail.col3) multimail.tmp='' # check if we have data /# IF multimail.size=1 AND (multimail.emails[1]="" OR multimail.emails[1]="ERROR") THEN multimail.msg="Cannot Start Mailing. Database is Empty." GOTO PAGE /IF GOTO multimail.dir+"bin/mailout.html" /IF IF button = multimail.exit_title AND ISFILE(multimail.exit)="TRUE" THEN GOTO multimail.exit /IF IF button ~~ "DESKTOP" THEN GOTO iconpage /IF IF button ~~ "SETTINGS" THEN GOTO multimail.dir+"bin/settings.html" /IF IF button ~~ "TEST" THEN # setup params # multimail.size - number of emails to send # multimail.emails - array of emails # multimail.contacts - array of contacts # multimail.pubs - array of publications # multimail.idx - next email to send # multimail.sendflag - send/redisplay page flag /# multimail.idx=1 multimail.sendflag="FALSE" multimail.test="TRUE" COPY FILE=multimail.dir+"settings/test.txt" TS="," TO multimail.tmp /COPY multimail.size=ROWS(multimail.tmp) multimail.emails=GETCOL(multimail.tmp,1) multimail.contacts=GETCOL(multimail.tmp,2) multimail.pubs=GETCOL(multimail.tmp,3) multimail.tmp='' GOTO multimail.dir+"bin/mailout.html" /IF GOTO PAGE >>