Then for the "No Flicker version" you would do this:
SET VAR nShowCmd Integer = 0 { SW_HIDE }
SET VAR lpDirectory TEXT = NULL
SET VAR lpParameters TEXT = NULL
SET VAR lpFile TEXT = 'netsend.bat'
SET VAR lpOperation TEXT = 'open'
SET VAR HWND Integer = 0 { since it runs hidden, pass HWND as null }
SET VAR vRetVal Integer = NULL
IF (chkfunc('ShellExecuteA')) = 0 THEN
STDCALL function 'ShellExecuteA' ALIAS 'ShellExecute' +
(Integer, ptr TEXT (256), ptr TEXT (128), +
ptr TEXT (128), ptr TEXT (32), Integer) : Integer
ENDIF
DELETE netsend.bat
SET VAR vmess TEXT = ('Hello World!' & (ctxt(.#NOW)))
SET VAR vnetsend = ('NET SEND *' & .vmess)
OUTPUT netsend.bat
WRITE .vnetsend
OUTPUT SCREEN
SET VAR vi = (dlcall('shell32', 'ShellExecuteA', +
nShowCmd, lpDirectory, lpParameters, lpFile, lpOperation, HWND))
RETURN
----- Original Message -----
From: "Claudine Robbins" <[EMAIL PROTECTED]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Saturday, October 25, 2008 5:56 PM
Subject: [RBASE-L] - RE: NET SEND Message to users from within R:BASE V8
> OK, I got it. Here is my baby steps routine for now:
>
>
>
> DELETE netsend.bat
>
> SET VAR vmess TEXT = ('Hello World!' & (ctxt(.#NOW)))
>
> SET VAR vnetsend = ('NET SEND *' & .vmess)
>
> OUTPUT netsend.bat
>
> WRITE .vnetsend
>
> OUTPUT SCREEN
>
> LAUNCH netsend.bat
>
> RETURN
>
>
>
>
>
> _____
>
> From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Claudine
> Robbins
> Sent: Saturday, October 25, 2008 12:00 PM
> To: RBASE-L Mailing List
> Subject: [RBASE-L] - RE: NET SEND Message to users from within R:BASE V8
>
>
>
> Emmitt,
>
>
>
> I'm not sure I understand. Do you mean that I can:
>
>
>
> SET VAR MESSAGE = 'This is my message'
>
>
>
> And then issue NET SEND %MESSAGE%?
>
>
>
> Claudine
>
>
>
> _____
>
> From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Emmitt Dove
> Sent: Saturday, October 25, 2008 11:44 AM
> To: RBASE-L Mailing List
> Subject: [RBASE-L] - RE: NET SEND Message to users from within R:BASE V8
>
>
>
> Claudine,
>
>
>
> Use R:BASE to write a .CMD file, say NETMSG.CMD, and substitute for the
> variables. Then:
>
>
>
> LAUNCH netmsg.cmd
>
>
>
> Emmitt Dove
>
> Manager, DairyPak Business Systems
>
> Evergreen Packaging, Inc.
>
> [EMAIL PROTECTED]
>
> (203) 214-5683 m
>
> (203) 643-8022 o
>
> (203) 643-8086 f
>
> [EMAIL PROTECTED]
>
>
>
> From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Claudine
> Robbins
> Sent: Saturday, October 25, 2008 11:05 AM
> To: RBASE-L Mailing List
> Subject: [RBASE-L] - NET SEND Message to users from within R:BASE V8
>
>
>
> Frank Taylor got me good and started on this path and I have setup my three
> users to receive NET SEND messages and have tested them -real easy.
>
>
>
> My question now is how do I customize the message by using R:BASE variables
> in the NET SEND command?
>
>
>
> NET SEND %RECIPIENT% From %FULLNAME%, %MESSAGE%
>
>
>
> Any ideas?
>
>
>
> Thank you!
>
>
>
> Claudine
>
>
