to$="joe_bloggs@gmail.com" subject$="Test for emailing from BB4W" body$="This is a long message, comfortably above the size limit. To achieve that I'm going to type a load of rubbish, about how exciting everything is at work. " body$+=" This may not be strictly accurate, but it does take up space and use more than 256 characters, I should think - or at least it will once I've" body$+=" finished typing some more! For example, this is Friday evening, it's after 5pm, and I'm still here because I can't tear myself away from the place. " body$+="Well, OK, it's because I know the traffic will be awful, and I might as well stay here playing with BB4W trying this out, rather than " body$+="sitting in a traffic jam getting depressed at the news." PRINT body$ PRINT LEN(body$) SYS "ShellExecute", 0, 0, "mailto:"+to$+ \ \ "?subject="+subject$+ \ \ "&body="+body$, 0, 0, 0
DIM buffer% 256 SYS "GetClassName",@hwnd%,buffer%,256 TO t% IF t%=0 THEN PRINT"Failed" ELSE PRINT$$buffer%
INSTALL @lib$+"WINLIB2" dlg% = FN_newdialog("Hello world",100,100,400,200,8,256) PROC_showdialog(dlg%) DIM buffer% 256 SYS "GetClassName",!dlg%,buffer%,256 TO t% IF t%=0 THEN PRINT"Failed" ELSE PRINT$$buffer% PROC_closedialog(dlg%)