Re: FirstClass(R) and SNDEMAIL

Okay, here you go. In the following snippet of code, we believe that at
line the "X" should be a "Y". (X is the counter for all names, "to:" and
"cc:"; Y is the counter for just the "to:" names. Our problem was caused
by the fact that the first name in the array was a "cc:" name, so "X"
never got to 1 in the "to:" section.

The same issue also comes up in the "cc:" section, which comes next in the
program.

(PS: if anyone thinks there's a problem with this, please don't hesitate
to let us know. Also, I believe Dave Leland monitors this list -- Dave, if
you want to contact me personally, please feel free
(mnaughton@xxxxxxxxxxxx). This is in no way a slam on your utility, which
we've found extremely useful, and for which we're very grateful.)

0397.00 C*** Retrieve data structure of recipients - "To:"   
0398.00 C                   Eval      Y = *Zero              
0399.00 C                   Do        NbrRecip      X        
0400.00 C                   Move      AddressFull(X)RecipType
0401.00 C                   If        RecipType = 0          
0402.00 C                   Eval      Y = Y + 1              
0403.00 C                   If        Y > 1                  
0404.00 C                   Eval      MTo = %Trimr(MTo) + ';'
0405.00 C                   Endif                            
0406.00 C                   If        %Subst(AddressFull(X):259:256) >
*Blanks
0407.00 C                   If        Y = 1                               
   
0408.00 C                   Eval      MTo = 'To: ' +                      
   
0409.00 C                            
%Trimr(%Subst(AddressFull(X):259:256)) +
0410.00 C                             ' <' +                              
   
0411.00 C                             %Trimr(%Subst(AddressFull(X):3:256))
+  
0412.00 C                             '>'                                 
   
0413.00 C                   Else                                          
   
0414.00 C                   Eval      MTo = %Trimr(MTo) +                 
   
0415.00 C                            
%Trimr(%Subst(AddressFull(X):259:256)) +
0416.00 C                             ' <' +                              
   
0417.00 C                             %Trimr(%Subst(AddressFull(X):3:256))
+  
0418.00 C                             '>'                                 
   
0419.00 C                   Endif                                         
   
0420.00 C                   Else                                          
   
0421.00 C                   If        X = 1                               
                                             <<<< s/b "If        Y = 1"
0422.00 C                   Eval      MTo = 'To: ' +                      
   
0423.00 C                             %Trimr(MTo) +                       
   
0424.00 C                             %Trimr(%Subst(AddressFull(X):3:256))
   
0425.00 C                   Else                                          
   
0426.00 C                   Eval      MTo = %Trimr(MTo) +                 
0427.00 C                             %Trimr(%Subst(AddressFull(X):3:256))
0428.00 C                   Endif                                         
0429.00 C                   Endif                                         
0430.00 C                   Endif                                         
0431.00 C                   Enddo                                     

Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx> writes:
>Mike,
>
>I certainly would be interested and probably the
>author (David Leland) would want to know of your
>bug discovery too!
>
>Terry



Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA  01376
413-863-4357 x444
mnaughton@xxxxxxxxxxxx