аЯрЁБс > ўџ ўџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџR o o t E n t r y џџџџџџџџ
Р F №ѓC_IП ! _ _ p r o p e r t i e s _ v e r s i o n 1 . 0 0 џџџџџџџџџџџџ Q А _ _ n a m e i d _ v e r s i o n 1 . 0 ( џџџџџџџџ# №одП№7џП _ _ s u b s t g 1 . 0 _ 0 E 0 4 0 0 1 E *
џџџџ P §џџџџџџџџџџџ џџџџ џџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџ- џџџџџџџџ"
ўџџџџџџџўџџџ # ! $ % & ' ўџџџ * + , ( ) џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџR o o t E n t r y џџџџџџџџ
Р F uйоП _ _ p r o p e r t i e s _ v e r s i o n 1 . 0 0 џџџџџџџџџџџџ Q А _ _ n a m e i d _ v e r s i o n 1 . 0 ( џџџџџџџџ# №одП№7џП _ _ s u b s t g 1 . 0 _ 0 E 0 4 0 0 1 E *
џџџџ P џџџџџџџџ §џџџ "
ўџџџ) џџџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџ# ! $ % & ' ўџџџџџџџ* + , џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ_ _ s u b s t g 1 . 0 _ 0 E 0 3 0 0 1 E * џџџџџџџџџџџџ O _ _ s u b s t g 1 . 0 _ 0 E 0 2 0 0 1 E * џџџџ N _ _ s u b s t g 1 . 0 _ 0 0 1 A 0 0 1 E * џџџџ M _ _ s u b s t g 1 . 0 _ 0 0 3 7 0 0 1 E * џџџџ џџџџ L _ _ s u b s t g 1 . 0 _ 0 0 3 D 0 0 1 E * џџџџџџџџџџџџ _ _ s u b s t g 1 . 0 _ 0 E 1 D 0 0 1 E * џџџџџџџџџџџџ _ _ s u b s t g 1 . 0 _ 0 0 0 2 0 1 0 2 * џџџџџџџџџџџџ ` @ _ _ s u b s t g 1 . 0 _ 0 0 0 3 0 1 0 2 * џџџџ _ а _ _ s u b s t g 1 . 0 _ 8 0 0 1 0 1 0 2 * џџџџџџџџџџџџ Ъ _ _ s u b s t g 1 . 0 _ 8 0 0 2 0 0 1 E * џџџџ _ _ s u b s t g 1 . 0 _ 8 0 0 3 0 0 1 E * џџџџџџџџџџџџ ) _ _ s u b s t g 1 . 0 _ 8 0 0 4 0 0 1 E * џџџџ + ўџџџўџџџўџџџўџџџўџџџ
! " # $ ўџџџўџџџ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E ~ G H I J ўџџџўџџџўџџџўџџџўџџџўџџџўџџџR S T U V W ўџџџўџџџўџџџўџџџўџџџўџџџ^ ўџџџv ўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџw x y z { | ўџџџўџџџ ўџџџ_ _ s u b s t g 1 . 0 _ 0 0 7 0 0 0 1 E * џџџџ K _ _ s u b s t g 1 . 0 _ 0 0 7 D 0 0 1 E * џџџџџџџџџџџџ F @ _ _ s u b s t g 1 . 0 _ 1 0 0 0 0 0 1 E * џџџџџџџџ & w _ _ s u b s t g 1 . 0 _ 3 0 0 B 0 1 0 2 *
џџџџ % Process Email Produced By Microsoft MimeOLE V4.72.3110.3 Microsoft Outlook 8.5, Build 4.71.2173.0 9.0
# Set the Input/Output file
# the filename here is set to C:\emailto.txt
set filename "/emailto.txt"
# Check for a match for subscribe or unsubscribe int the subject
set lower_subject [string tolower [et message subject]]
# This procedure will read the lines of the file into an array
proc read_data_file {filename arrayVar} {
upvar $arrayVar the_array
# Open the file for reading
# If the file does not exist, then create it
if {[catch {set open_file [open $filename r+]} result]} {
#create the file
set open_file [open $filename w+]
} else {
#get the information from the file
while {[gets $open_file line] >= 1} {
set split_line [split $line \t]
set email [lindex $split_line 0]
set name [lindex $split_line 1]
set the_array($email) $name
}
}
# Close the file
close $open_file
}
# This procedure will write the information to the file
proc write_data_file {filename arrayVar} {
upvar $arrayVar the_array
# Open the specified file for reading
set open_file [open $filename w]
# put the information into the file
foreach email [array names the_array] {
puts $open_file $email\t$the_array($email)
}
# Close the file
close $open_file
}
catch {unset array}
# If they want to subscribe, add them to list and send a confirmation email
if [string match "*unsubscribe*" $lower_subject] {
read_data_file $filename array
catch {unset array([et message email])}
write_data_file $filename array
et redirect "Unsubscribe"
et moveto Replied
# If they want to unsubscribe, remove them from
# the list and send a confimation email
} elseif [string match "*subscribe*" $lower_subject] {
read_data_file $filename array
set array([et message email]) [et message sender_name]
write_data_file $filename array
et redirect "Subscribe"
et moveto Replied
# If neither subscribe or unsubscribe are in the subject, STOP
} else {
et stop
}
%OюЖдш ртF Instructions on saving this template:
1. Select File/Copy to Folder.
2. Highlight your Reply folder
3. Click OK.
It will be saved as a usable reply template.
# Set the Input/Output file
# the filename here is set to C:\emailto.txt
set filename "/emailto.txt"
# Check for a match for subscribe or unsubscribe int the subject
set lower_subject [string tolower [et message subject]]
# This procedure will read the lines of the file into an array
proc read_data_file {filename arrayVar} {
upvar $arrayVar the_array
# Open the file for reading
# If the file does not exist, then create it
if {[catch {set open_file [open $filename r+]} result]} {
#create the file
set open_file [open $filename w+]
} else {
#get the information from the file
while {[gets $open_file line] >= 1} {
set split_line [split $line \t]
set email [lindex $split_line 0]
set name [lindex $split_line 1]
set the_array($email) $name
}
}
# Close the file
close $open_file
}
# This procedure will write the information to the file
proc write_data_file {filename arrayVar} {
upvar $arrayVar the_array
# Open the specified file for reading
set open_file [open $filename w]
# put the information into the file
foreach email [array names the_array] {
puts $open_file $email\t$the_array($email)
}
# Close the file
close $open_file
}
catch {unset array}
# If they want to subscribe, add them to list and send a confirmation email
if [string match "*unsubscribe*" $lower_subject] {
read_data_file $filename array
catch {unset array([et message email])}
write_data_file $filename array
et redirect "Unsubscribe"
et moveto Replied
# If they want to unsubscribe, remove them from
# the list and send a confimation email
} elseif [string match "*subscribe*" $lower_subject] {
read_data_file $filename array
set array([et message email]) [et message sender_name]
write_data_file $filename array
et redirect "Subscribe"
Subject: Process Email
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-Priority: 3 (Normal)
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook 8.5, Build 4.71.2173.0
X-Unsent: 1
Importance: Normal
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Process Email Process Email IPM.Note
B
@
A
$
4
! 5
" 9
# :
$ 0
%
& 6
' 7
( 8
) C
* D
+ E
, I
- p
.
/
0
1 x
2
3
4
5
6 7 8 \ 9 P
et moveto Replied
# If neither subscribe or unsubscribe are in the subject, STOP
} else {
et stop
}
lse {
@ 0 №одП@ 0 №одП ї рOа є #C Вw
7 p } A @ uйоП x 0 в о? Џo 'j Ъ в ) + = E Фк _ _ s u b s t g 1 . 0 _ 0 0 3 D 0 0 1 E * џџџџџџџџџџџџ _ _ s u b s t g 1 . 0 _ 0 E 1 D 0 0 1 E * џџџџџџџџџџџџ _ _ s u b s t g 1 . 0 _ 0 0 0 2 0 1 0 2 * џџџџџџџџџџџџ ` @ _ _ s u b s t g 1 . 0 _ 0 0 0 3 0 1 0 2 * џџџџ _ а ўџџџўџџџўџџџўџџџўџџџ
! " # $ ўџџџўџџџ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E ~ G H I J ўџџџўџџџўџџџўџџџўџџџўџџџўџџџR S T U V W ўџџџўџџџўџџџўџџџўџџџўџџџ^ ўџџџv ўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџўџџџw x y z { | ўџџџўџџџ _ _ s u b s t g 1 . 0 _ 0 0 7 0 0 0 1 E * џџџџ K _ _ s u b s t g 1 . 0 _ 0 0 7 D 0 0 1 E * џџџџџџџџџџџџ F @ _ _ s u b s t g 1 . 0 _ 1 0 0 0 0 0 1 E * џџџџџџџџ & у _ _ s u b s t g 1 . 0 _ 3 0 0 B 0 1 0 2 *
џџџџ % Process Email Produced By Microsoft MimeOLE V4.72.3110.3 Microsoft Outlook 8.5, Build 4.71.2173.0 9.0
# Set the Input/Output file
# the filename here is set to C:\emailto.txt
set filename "/emailto.txt"
# Check for a match for subscribe or unsubscribe int the subject
set lower_su
ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџa confimation email
} elseif [string match "*subscribe*" $lower_subject] {
read_data_file $filename array
set array([et message email]) [et message sender_name]
write_data_file $filename array
et redirect "Subscribe"
et moveto Replied
# If neither subscribe or unsubscribe are in the subject, STOP
} else {
et stop
}
Instructions on saving this template:
1. Select File/Copy to Folder.
2. Highlight your Replies folder
3. Click OK.
_file $filename array
set array([et message email]) [et message sender_name]
write_data_file $filename array
et redirect "Subscribe"
et moveto Replied
# If neither subscribe or unsubscribe are in the subject, STOP
} else {
et stop
}
%OюЖдш ртF +---------------------------------------------+
| Instructions on saving this template: |
| |
| 1. Select File/Copy to Folder. |
| 2. Highlight your Reply folder |
| 3. Click OK. |
| |
| It will be saved as a usable template. |
| Now you can delete these instructions, |
| and click on 'Save' again. |
+---------------------------------------------+
# Set the Input/Output file
# the filename here is set to C:\emailto.txt
set filename "/emailto.txt"
# Check for a match for subscribe or unsubscribe int the subject
set lower_subject [string tolower [et message subject]]
# This procedure will read the lines of the file into an array
proc read_data_file {filename arrayVar} {
upvar $arrayVar the_array
# Open the file for reading
# If the file does not exist, then create it
if {[catch {set open_file [open $filename r+]} result]} {
#create the file
set open_file [open $filename w+]
} else {
#get the information from the file
while {[gets $open_file line] >= 1} {
set split_line [split $line \t]
set email [lindex $split_line 0]
set name [lindex $split_line 1]
set the_array($email) $name
}
}
# Close the file
close $open_file
}
# This procedure will write the information to the file
proc write_data_file {filename arrayVar} {
upvar $arrayVar the_array
# Open the specified file for reading
set open_file [open $filename w]
# put the information into the file
foreach email [array names the_array] {
puts $open_file $email\t$the_array($email)
}
# Close the file
close $open_file
}
catch {unset array}
# If they want to subscribe, add them to list and send a confirmation email
if [string match "*unsubscribe*" $lower_subject] {
read_data_file $filename array
catch {unset array([et message email])}
write_data_file $filename arrSubject: Process Email
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: 7bit
X-_ _ s u b s t g 1 . 0 _ 1 0 1 2 0 1 0 2 * + џџџџ Y _ _ s u b s t g 1 . 0 _ 1 0 1 D 0 1 0 2 * џџџџ X _ _ s u b s t g 1 . 0 _ 1 0 0 3 0 1 0 2 * $ џџџџџџџџ } _ _ s u b s t g 1 . 0 _ 1 0 0 A 0 1 0 2 * џџџџџџџџџџџџ u _ _ s u b s t g 1 . 0 _ 0 0 0 4 0 1 0 2 * џџџџ) џџџџ ] p _ _ s u b s t g 1 . 0 _ 1 0 0 1 0 1 0 2 * џџџџ \ _ _ s u b s t g 1 . 0 _ 1 0 0 4 0 1 0 2 * " џџџџ [ _ _ s u b s t g 1 . 0 _ 1 0 1 E 0 1 0 2 * џџџџџџџџџџџџ Z _ _ s u b s t g 1 . 0 _ 1 0 1 1 0 1 0 2 * џџџџџџџџџџџџ t _ _ s u b s t g 1 . 0 _ 1 0 0 E 0 1 0 2 * * ' џџџџ s _ _ s u b s t g 1 . 0 _ 1 0 1 3 0 1 0 2 * џџџџџџџџџџџџ r _ _ s u b s t g 1 . 0 _ 1 0 1 A 0 1 0 2 * - џџџџ q _ _ s u b s t g 1 . 0 _ 1 0 1 B 0 1 0 2 * џџџџ% џџџџ p _ _ s u b s t g 1 . 0 _ 1 0 0 F 0 1 0 2 * џџџџџџџџџџџџ o _ _ s u b s t g 1 . 0 _ 1 0 0 5 0 1 0 2 * џџџџџџџџџџџџ n _ _ s u b s t g 1 . 0 _ 1 0 0 6 0 1 0 2 * џџџџ m _ _ s u b s t g 1 . 0 _ 1 0 0 2 0 1 0 2 * џџџџџџџџџџџџ l _ _ s u b s t g 1 . 0 _ 1 0 1 C 0 1 0 2 * џџџџџџџџџџџџ k _ _ s u b s t g 1 . 0 _ 1 0 0 9 0 1 0 2 * ( џџџџ j _ _ s u b s t g 1 . 0 _ 1 0 1 0 0 1 0 2 * ! џџџџ i _ _ s u b s t g 1 . 0 _ 1 0 0 8 0 1 0 2 * , џџџџџџџџ h _ _ s u b s t g 1 . 0 _ 1 0 0 0 0 1 0 2 * џџџџџџџџџџџџ g _ _ s u b s t g 1 . 0 _ 1 0 0 D 0 1 0 2 * / џџџџџџџџ f _ _ s u b s t g 1 . 0 _ 1 0 0 B 0 1 0 2 * & џџџџ e _ _ s u b s t g 1 . 0 _ 1 0 0 7 0 1 0 2 * џџџџџџџџџџџџ d _ _ s u b s t g 1 . 0 _ 1 0 1 4 0 1 0 2 * . џџџџ c _ _ s u b s t g 1 . 0 _ 1 0 1 5 0 1 0 2 * џџџџџџџџџџџџ b _ _ s u b s t g 1 . 0 _ 1 0 0 C 0 1 0 2 * џџџџџџџџџџџџ a
B
@
A
$
4
! 5
" 9
# :
$ 0
%
& 6
' 7
( 8
) C
* D
+ E
, I
- p
.
/
0
1 x
2
3
4
5
6 7 8 \ 9 P
ay
et redirect "Unsubscribe"
et moveto Replied
# If they want to unsubscribe, remove them from
# the list and send ЏbР
4
! ю^№
@
1 T
5
" [Ъ Q
p
. R
* I n t e r n e t C h a r s e t B o d y X - M a i l e r X - M i m e O L E K e y w o r d s R
T
0 D P
Q
Р Fv:NzЗаЅ РOжV
Р F Р Fx
2
0 ;Mк. 9
/
& 7 9
# $
:
$ 8 B
6
7
(
0
%
E
,
6
' I
-
`
A
3
D
+
4
C
*
5
8
)
`
@ 0 №одП@ 0 №одП ї рOа є #C Вw
7 p } A @ №ѓC_IП ф 0 в о? Џo 'j Ъ в ) + = E к