ࡱ> Root Entry F`FS__properties_version1.00D__nameid_version1.0(!m A__substg1.0_0E04001E* C"* #!$%&'+,Root Entry F{H@__properties_version1.00D__nameid_version1.0(!m A__substg1.0_0E04001E* C" )*#!$%&' -+,(__substg1.0_0E03001E*B__substg1.0_0E02001E.0* A__substg1.0_001A001E*@ __substg1.0_0037001E*?__substg1.0_0E1D001E*__substg1.0_00020102*Q0__substg1.0_00030102*P__substg1.0_00040102*(O@  !"#$%&'()*+,-./01234567R9:;<=EFGHIJkSTslmnopqtuvwx__substg1.0_0070001E* >__substg1.0_007D001E*8G__substg1.0_1000001E*__substg1.0_300B0102* Bulk Email from fileProduced By Microsoft MimeOLE V4.72.3110.3Microsoft Outlook 8.5, Build 4.71.2173.09.0s_ /-+---------------------------------------------+ | Instructions on saving this extension: | | ) } } s folder # and select OK. # It will be saved as a usable extension. # This extension reads from the file line by line # and processes the mail message after it reads # one line from the specified file. proc etx_bulk_email {msg prefix param} { global filename # holds the specified location of the input file global email_file # variable that is used to open "filename" global file_index # index variable pointing to the email address global categories # list that holds the | | 1. Select File/Copy to Folder. | | 2. Highlight your Extensions folder | | 3. Click OK. | | | | It will be saved as a usable extension. | | Now you can delete these instructions, | | and click on 'Save' again. | +---------------------------------------------+ # This extension reads from the file line by line # and processes the mail message after it reads # one line from the specified file. proc etx_bulk_email {msg prefix param} { global filename # holds the specified location of the input file global email_file # variable that is used to open "filename" global file_index # index variable pointing to the email address global categories # list that holds the categories of the input file global last_line_read # variable used to parse through the input file line by line global values # array to hold the return values # First, check to see if this is the first repeat of the message # and that this line hasn't already been read. if {[et message repeat_index] == 1 && ![info exists last_line_read]} { # If a file wasn't specified by the user, then # ask for it via the input box. if {![info exists filename]} { set filename [et choose file] } # If the procedure encounters an error while opening the specified file, then # ask the user to try again while {[catch {set email_file [open $filename r]} result]} { et alert "That filename is invalid. Please try again." set filename [et message input.file] } # Get the first line of data that should contain the categories of the file. # If can't find any data, there is a problem. if {[gets $email_file line] >= 1} { set array(0) [string tolower $line] set categories [split $array(0) \t] set file_index [lsearch $categories "email"] } else { et alert "The specified file does not contain any data!" } # If the procedure did not find a category for email, then # ask the user to check the file and try again. if {$file_index < 0} { et alert "This program does not detect that you have a category for email addresses." et alert "Please check the file specified and try again." et stop } # Now we need to create the new template elements for the categories of the file. set cat_count 1 foreach item $categories { et add category$cat_count $item incr cat_count } # Tell the procedure that it has read the first line and # that is does not need to read it again. set last_line_read 0 } # If the last line read is less that the repeat_index, then # we need to get the next input line from the file and process it. if {$last_line_read < [et message repeat_index]} { if {[gets $email_file line] >= 1} { set array(1) $line set split_line [split $array(1) \t] incr last_line_read } else { close $email_file et stop } # HereX-POP3-Rcpt: gent@gate Return-Path: Received: from gate (gate [10.0.1.254]) by nsoftware.com (8.8.7/8.8.7) with ESMTP id PAA01325 for ; Mon, 30 Aug 1999 15:10:16 -0400 Received: from 216.22.208.170 by gate (fetchmail-4.3.2 POP3 run by gent) for (single-drop); Mon Aug 30 15Bulk Email from fileBulk Email from file0x12345 6 7,8P RT  PQ FF F we need to set the return values for the procedure. set idx 0 foreach cat $categories { set values($cat) [lindex $split_line $idx] incr idx } } # Now set the recipienx1/;M.8.__substg1.0_0E1D001E*__substg1.0_00020102*Q0__substg1.0_00030102*P__substg1.0_00040102*(O@  !"#$%&'()*+,-./01234567R9:;<=EFGHIJkSTlmnopq__substg1.0_8001001E*__substg1.0_8002001E* )__substg1.0_8003001E*+__substg1.0_003D001E*__substg1.0_0070001E* >__substg1.0_007D001E*8G__substg1.0_1000001E*$ __substg1.0_300B0102* Bulk Email from fileProduced By Microsoft MimeOLE V4.72.3110.3Microsoft Outlook 8.5, Build 4.71.2173.09.0s_ /-#Instructions on saving this extension: # 1. Select File/Copy to Folder. # 2. Highlight your Extensions folder # 3. Click OK. #It will be saved as a usable extension. # This extension reads from the file line by line # and processes the mail message after it reads # one line from the specified file. proc etx_bulk_email {msg prefix param} { global filename # holds the specified location of the input file global email_file # variable that is used to open "filename" global file_index # index variable pointing to the email address global categories # list that holds the categories of the input file global last_line_read # variable used to parse through the input file line by line global values # array to hold the return values # First, check to see if this is the first repeat of the message # and that this line hasn't already been read. if {[et message repeat_index] == 1 && ![info exists last_line_read]} { # If a file wasn't specified by the user, then # ask for it via the input box. if {![info exists filename]} { set filename [et choose file] } # If the procedure encounters an error while opening the specified file, then # ask the user to try again while {[catch {set email_file [open $filename r]} result]} { et alert "That filename is invalid. Please try again." set filename [et message input.file] } # Get the first line of data that should contain the categories of the file. # If can't find any data, there is a problem. if {[gets $email_file line] >= 1} { set array(0) [string tolower $line] set categories [split $array(0) \t] set file_index [lsearch $categories "email"] } else { et alert "The specified file does not contain any data!" } # If the procedure did not find a category for email, then # ask the user to check the file and try again. if {$file_index < 0} { et alert "This program does not detect that you have a category for email addresses." et alert "Please check the file specified and try again." et stop } # Now we need to create the new template elements for the categories of the file. set cat_count 1 foreach item $categories { et add category$cat_count $item incr cat_count } # Tell the procedure that it has read the first line and # that is does not need to read it again. set last_line_read 0 } # If the last line read is less that the repeat_index, then # we need to get the next input line from the file and process it. if {$last_line_read < [et message repeat_index]} { if {[gets $email_file line] >= 1} { set array(1) $line set split_line [split $array(1) \t] incr last_line_read } else { close $email_file et stop } # Here we need to set the return values for the procedure. set idx 0 foreach cat $categories { set values($cat) [lindex $split_line $idx] incr idx } } # Now set the recipient of the email to the email address form the line. et set recipient "" et set recipient $values(email) # If the param passed in was next, then the usRT  PQ FF Fer is calling # for the message to repeat. if {$param == "next"} { et message repeat.1000000 } else { return $values([string tolower $param]) } } ring tolower $param]) } }x1/;M.8.IPM.Note@0m@0m#1isuaw 7p}H@Q %  0?'j)+=E Ěb  6&I, ^ B5T5!RX-MailerX-MimeOLEKeywords__substg1.0_10030102*#(r__substg1.0_10040102* j__substg1.0_100A0102*i__substg1.0_10110102h`w*"ൻwwwwXwh __substg1.0_10010102*N__substg1.0_101E0102*M__substg1.0_10100102**L__substg1.0_101B0102*%K __substg1.0_100E0102*)zwgp__substg1.0_10130102OlePres*-tf __substg1.0_101A0102Hai*ent)w;?we__substg1.0_100F0102*Hhӻwd__substg1.0_10050102*c__substg1.0_10060102*b__substg1.0_10120102*a__substg1.0_10020102*`__substg1.0_101C0102*___substg1.0_101D0102*$^__substg1.0_10090102*']__substg1.0_10080102*+\__substg1.0_10000102*[__substg1.0_100D0102*.Z__substg1.0_100B0102*&Y__substg1.0_10070102*X__substg1.0_10140102*W__substg1.0_10150102*,V__substg1.0_100C0102*U0x12345 6 7,8Pt of the email to the email address form the line. et set recipient "" et set recipient $values(email) # If the param passed in was next, then the user is calling # for the message to repeat. if {$param == "next"} { et message repeat.1000000 } else { return $values([string tolower $param]IPM.Note@0m@0m#1isuaw 7p}H@nH %9"$:#4 7'0$@0 7  6 E+ ` A2D*3 C)48(Qp-`     B @A$4 5!9":#0$%6&7'8(C)D*E+I,p-./ 0?'j)+=E b  6&I, ^ B5T5!RX-MailerX-MimeOLEKeywords