|
Mike, Yes, I think you're right, lines 421, 456, 491 should be Y, not X. I'm going to modify my production source to fix this. Thanks for the catch..... Eric DeLong Sally Beauty Company MIS-Project Manager (BSG) 940-898-7863 or ext. 1863 -----Original Message----- From: Michael Naughton [mailto:mnaughton@xxxxxxxxxxxx] Sent: Tuesday, October 21, 2003 12:46 PM To: Midrange Systems Technical Discussion Subject: 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 _______________________________________________ This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/midrange-l or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
