Could it be that the ShowURL() method balks because it gets an URL
that is too long? I know it used to work, but it's not the first time
I saw something working on one Windows machine, and not on another :)
Should be easy to test this by artificially shortening the URL - :
URL = Left(URL, 64)
ShowURL(URL)
Cheers,
Frank+++
Am 07.02.2007 um 05:18 schrieb Michael:
Hi List,
May I ask for some advice.
I wrote a little program which was installed on Windows ( 3.5), I
believe. What it does is compose a schedule, which is then sent to
the default mail program ("send mode") ( Was Outlook express in
this case). The user then sends this out to a group of us.
The program has worked well for a month or so. About a week ago,
the computer crashed, unrecoverable and the office rapidly replaced
it with a new one, running XP professional.
The program now consistently crashes when "send" mode is invoked.
Not quite sure which bit of code to show, but below is code in the
"Send" button. The "make functions" all return URL encoded parts
of the mail, ( I have included a few as an example)
Any help on an approach to sorting this out would be appreciated.
Thank you.
>>>>>>>>
dim Recipient, blindCCs, body, subj, notes, AllBody, Subject,
Greeting, Signature as string
Const schema = "mailto:";
recipient=makeRecipientURL()
blindCCs=makeBlindCCs()
subj=makeSubjURL()
Greeting=mMakeGreetingURL
Body=makeBodyURL()
Signature=mMakeSignatureURL
notes=makeNotesURL
AllBody = "&Body="+Greeting+Body+notes+Signature
dim URL as string
URL=URL+schema
URL=URL+ Recipient
URL=URL+blindCCs
URL=URL+subj
URL=URL+AllBody
ShowURL(URL)
<<<<<<<<
makeRecipientURL()
Return EncodeURLComponent(NthField(app.apSasList,",",1))
>>>>>>>>>
makeBlindCCs()
dim x, y As integer
dim s As String
y=CountFields(App.apSasList, ",")
for x = 1 to y-1
if x <> y-1 then
s=s+EncodeURLComponent(NthField(App.apSasList,",", x+1) + ";")
else
s=s+EncodeURLComponent(NthField(App.apSasList,",", x+1))
end if
next
Return "?BCC="+s
<<<<<<<
makeSubjURL()
dim d As new date
Return "&subject=" + EncodeURLComponent(app.apSubject + " " +
d.LongDate + " at " + d.ShortTime)
_______________________________________________
Unsubscribe:
<[EMAIL PROTECTED]>
REAL Software has decided to consolidate this mailing list with the
online Forums. On Monday, February 12, 2007, this mailing list
will no longer be active. We encourage you to continue your
REALbasic and REAL SQL Server discussions on the Forums. If you
are not presently a member of the forum, please sign up today at
<http://forums.realsoftware.com>.
Mit freundlichen Grüßen aus Frankfurt
GÜNTER SCHMIDT GMBH
i. A. Frank Bitterlich
--
Günter Schmidt GmbH
Frank Bitterlich eMail: [EMAIL PROTECTED]
Ben-Gurion-Ring 21 WWW: http://www.gsco.de/
D-60437 Frankfurt Tel.: 069 / 156809-29
GERMANY Fax: 069 / 156809-28
Geschäftsführer: Jürgen Hartwich
AG Frankfurt am Main, HRB 76504 - USt.-ID: DE235219624
_______________________________________________
Unsubscribe:
<[EMAIL PROTECTED]>
REAL Software has decided to consolidate this mailing list with the online Forums.
On Monday, February 12, 2007, this mailing list will no longer be active. We
encourage you to continue your REALbasic and REAL SQL Server discussions on the
Forums. If you are not presently a member of the forum, please sign up today at
<http://forums.realsoftware.com>.
