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>.
