Send Network Message

[Steven]

I am trying to send a network message to myself without success.

Sub SendNetorkMessage()
Dim machinename As String
machinename = "Acct010_XP"
Shell "NET SEND " & machinename & " 'Good Morning'"
End Sub

I do not get anything. That is my machine name I am sure. What is incorrect?

Thank you,

Steven

 

[Patrick Molloy]

you need to shell a command window with "cmd.exe" , then with that in focus
use SENDKEYS with the text you want to type into the command window