Jim-
Not only the "#", but the "&" also presents a problem. This one showed up
when my company name "Bailey & Associates" appeared in the E-Mail--
Whoooops!
Lee Bailey
Bailey & Associates
E-Mail: [EMAIL PROTECTED]
Phone: 954-659-1780
Fax: 954-659-1781
----- Original Message -----
From: "Jim Limburg" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, November 19, 2001 2:51 PM
Subject: Re: Launching Emails
> Well Lee, You have hit a good one..
>
> Here's my advice so far... I took your code and
> modified it and done some more testing... Looks as
> if there is a bug here, but I haven't nailed it yet..
>
> Here is the code I am using to test with. I create a
> file called email.tst and traced it at the R:> ...
>
> SET QUOTES = '
> SET VAR eet TEXT = '[EMAIL PROTECTED]'
> SET VAR ees TEXT = 'THIS IS THE SUBJECT LINE'
> SET VAR eec TEXT = 'THIS IS THE CARBON COPY TO'
> SET VAR eeb TEXT = 'THIS IS THE BLIND CARBON TO LINE'
> SET VAR eepart1 TEXT = ('mailto:'+.eet+'?subject='+.ees+'&cc='+.eec++
> '&bcc='+.eeb+'&body=')
> SET VAR vm_prtonelength INTEGER = (SLEN(.eepart1))
> SET VAR vm_maxbodylen INTEGER = (4090 - .vm_prtonelength)
> SET VAR vm_currbodylen INTEGER = NULL
> SET VAR vm_addedlen INTEGER = NULL
> SET VAR vm_crlf = '%0%D'
> SET VAR vm_counter INTEGER = 1
> SET VAR eed NOTE = NULL
> SET ERROR VARIABLE errvar
> SET VAR vm_no_error INTEGER = 0
> WHILE vm_no_error = 0 THEN
> SET VAR vm_currbodylen = (SLEN(.eed))
> SET VAR vm_info2add TEXT = 'THIS IS THE No '
> SET VAR vm_lenaddinfo INTEGER = (SLEN(.vm_info2add))
> SET VAR vm_addedlen = (.vm_currbodylen + .vm_lenaddinfo)
> IF vm_addedlen <= .vm_maxbodylen THEN
> SET VAR eed NOTE = ((.eed) + .vm_info2add)
> SET VAR vm_no_error = .errvar
> ELSE
> SET VAR vm_no_error = 1
> ENDIF
> IF vm_no_error <> 0 OR vm_currbodylen >= 4090 THEN
> SET VAR A TEXT = (CTXT(SLEN(.eed)) + +
> 'AT COUNT OF ' + (CTXT (.vm_counter)))
> WRITE .A AT 10,10
> BREAK
> ENDIF
> SET VAR vm_currbodylen = (SLEN(.eed))
> SET VAR vm_info2add TEXT = (CTXT(.vm_counter))
> SET VAR vm_lenaddinfo INTEGER = (SLEN(.vm_info2add))
> SET VAR vm_addedlen = (.vm_currbodylen + .vm_lenaddinfo)
> IF vm_addedlen <= .vm_maxbodylen THEN
> SET VAR eed NOTE = ((.eed) + .vm_info2add)
> SET VAR vm_no_error = .errvar
> ELSE
> SET VAR vm_no_error = 1
> ENDIF
> IF vm_no_error <> 0 OR vm_currbodylen >= 4090 THEN
> SET VAR A TEXT = (CTXT(SLEN(.eed)) + +
> 'AT COUNT OF ' + (CTXT (.vm_counter)))
> WRITE .A AT 10,10
> BREAK
> ENDIF
> SET VAR vm_currbodylen = (SLEN(.eed))
> SET VAR vm_info2add TEXT = ' SENTENCE IN THE PARAGRAPH THAT WILL '
> SET VAR vm_lenaddinfo INTEGER = (SLEN(.vm_info2add))
> SET VAR vm_addedlen = (.vm_currbodylen + .vm_lenaddinfo)
> IF vm_addedlen <= .vm_maxbodylen THEN
> SET VAR eed NOTE = ((.eed) + .vm_info2add)
> SET VAR vm_no_error = .errvar
> ELSE
> SET VAR vm_no_error = 1
> ENDIF
> IF vm_no_error <> 0 OR vm_currbodylen >= 4090 THEN
> SET VAR A TEXT = (CTXT(SLEN(.eed)) + +
> 'AT COUNT OF ' + (CTXT (.vm_counter)))
> WRITE .A AT 10,10
> BREAK
> ENDIF
> SET VAR vm_currbodylen = (SLEN(.eed))
> SET VAR vm_info2add TEXT = (' APPEAR IN THE BODY OF THE EMAIL ' +
> .vm_crlf)
> SET VAR vm_lenaddinfo INTEGER = (SLEN(.vm_info2add))
> SET VAR vm_addedlen = (.vm_currbodylen + .vm_lenaddinfo)
> IF vm_addedlen <= .vm_maxbodylen THEN
> SET VAR eed NOTE = ((.eed) + .vm_info2add)
> SET VAR vm_no_error = .errvar
> ELSE
> SET VAR vm_no_error = 1
> ENDIF
> IF vm_no_error <> 0 OR vm_currbodylen >= 4090 THEN
> SET VAR A TEXT = (CTXT(SLEN(.eed)) + +
> 'AT COUNT OF ' + (CTXT (.vm_counter)))
> WRITE .A AT 10,10
> BREAK
> ENDIF
> SET VAR vm_counter = (.vm_counter + 1)
> IF vm_counter > 500 THEN
> SET VAR A TEXT = (CTXT(SLEN(.eed)) + +
> 'AT COUNT OF ' + (CTXT (.vm_counter)))
> WRITE .A AT 10,10
> BREAK
> ENDIF
> ENDWHILE
> SET VAR vemail NOTE = (.eepart1 +.eed)
> LAUNCH .vemail
> RETURN
>
> In the tracing I done with this I found that it will
> dump out at the right time, and if I'm doing it right
> it has a size of 4088 characters in which the note
> field should handle..
>
> The other thing that you are going to just love is
> that I found out the other day that ran upon what
> looked like I could not put (US) pound signs.. (#)
> in the email body.. Not 100% sure about this one,
> just about 80-90 though... Every time I did the
> text would end right at where the pound sign was..
>
> Maybe you can take this snippet and do a bit more
> testing.. I have to get onto another thing right now.
>
> Hope this helps
> Jim Limburg
>
>
>
> > Lee Bailey wrote:
> >
> > Hello All-
> >
> > I've still got a problem that I am hoping someone will be able to help
> > with.
> >
> > The below code, although lengthy and absurd, is very simple and shows
> > the issue. The entire code string simply generates an email message
> > in Microsoft Outlook. EET, EES, EEC, and EEB generate the "to:",
> > "Subject line", "Carbon copy", and "blind carbon copy" respectively
> > for the email. This part works fine.
> >
> > EED just assembles a number of sentences to form the body of the
> > email.
> >
> > If you cut and paste the code at the R> prompt, you should be able to
> > obtain the same results that I have found.
> >
> > If VEMAIL is left as a text field, the email will generate normally,
> > but the body of the text will be abbreviated, as one would expect from
> > a finite length for a text field.
> >
> > If VEMAIL is changed to a note field in order to get all of the
> > assembled sentences, the message "RBG65 has caused an error in
> > Kernal32.dll" appears-- and we are cooked.
> >
> > "A" is nothing more than counting the text characters in the body
> > string. The count is actually 2979 characters-- well within the scope
> > of the typical note field maximum of 5000 characters.
> >
> >
> > SET QUOTES = '
> > SET VAR EET NOTE = '[EMAIL PROTECTED]'
> >
> > SET VAR EES NOTE = 'THIS IS THE SUBJECT LINE'
> > SET VAR EEC NOTE = 'THIS IS THE CARBON COPY TO'
> > SET VAR EEB NOTE = 'THIS IS THE BLIND CARBON TO LINE'
> > SET VAR EED NOTE = 'THIS IS THE #1 SENTENCE IN THE PARAGRAPH THAT WILL
> > +
> > APPEAR IN THE BODY OF THE EMAIL'
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #2 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #3 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #4 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #5 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #6 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #7 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #8 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #9 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #10 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #11 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #12 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #13 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #14 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #15 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #16 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #17 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #18 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #19 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #20 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #21 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #22 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #23 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #24 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #25 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #26 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #27 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #28 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #29 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #30 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #31 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #32 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #33 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #34 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #35 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> > SET VAR EED NOTE = (.EED + 'THIS IS THE #36 SENTENCE IN THE PARAGRAPH
> > THAT +
> > WILL APPEAR IN THE BODY OF THE EMAIL')
> >
> > *(the below gives the length of the body)
> > SET VAR A INTEGER = (SLEN(.EED))
> > WRITE .A AT 10,10
> >
> > SET VAR VEMAIL TEXT = +
> > ('mailto:'+.EET+'?subject='+.EES+'&cc='+.EEC+'&bcc='+.EEB+'&body='+.EED)
> > LAUNCH .VEMAIL
> >
> >
> > Give it a try. I appreciate any help.
> >
> >
> > Lee Bailey
> >
> > Bailey & Associates
> > E-Mail: [EMAIL PROTECTED]
> > Phone: 954-659-1780
> > Fax: 954-659-1781
