FW: [AccessD] Broadcast A Message

> -----Original Message-----
> From: Foote, Chris 
> Sent: Wednesday, September 08, 2004 11:24 AM
> To: 'Access Developers discussion and problem solving'
> Subject: RE: [AccessD] Broadcast A Message
> 
> 
> Hi Andy!
> 
> Below is a code snippet that I use to use the NT4 NetSend 
> function to send a variable message (strNSMess) to a specific 
> user (crfoote).
> 
> I'm sure you can tweak it to suit!
> 
> Oh. atCNames(1) & atCNames(0) are other functions that I use 
> to retrieve the User Name and Machine Name that the app is running on.
> 
> Best regards!
> Chris Foote
> 
> ---------(Code start)-----------
> '------------------------------------------------------------
> ' Function NetSend
> ' Uses NT4 NetSend to send a message to
> ' crfoote showning current user name and machine
> ' Created by Chris Foote from scratch (with
> ' just a little help from "Help"!)
> '------------------------------------------------------------
> Public Sub fncNetSend()
> On Error GoTo fncNetSend_Err
> 
>     Dim strNSMess As String
>     Dim strNSCommand As String
>         
>     strNSMess = "Message sent from "
>     
>     strNSCommand = "net send crfoote " & "" & strNSMess & " " 
> & atCNames(1) & " at " & atCNames(0)
>     
>     Call Shell(strNSCommand, 0)
> 
>   
> fncNetSend_Exit:
>     Exit Sub
> 
> fncNetSend_Err:
>     MsgBox Error$
>     Resume fncNetSend_Exit
> 
> End Sub
> 
> -----------(Code end)-------------
> > -----Original Message-----
> > From: Andy Lacey [mailto:andy at minstersystems.co.uk]
> > Sent: Tuesday, September 07, 2004 6:39 PM
> > To: 'Access Developers discussion and problem solving'
> > Subject: [AccessD] Broadcast A Message
> > 
> > 
> > Hi folks
> > 
> > Anyone got any info/code to broadcast a message to selected 
> > machines/users.
> > We've an NT4 server and a Novell server so could use either 
> > technology.
> > 
> > -- Andy Lacey
> > http://www.minstersystems.co.uk 
>