NetSend (SHELL)

NetSend ( SHELL )

Envoyer des messages de type NetSend sur un réseau local (WinNT/2000/XP)

Sub fNetSend()
    'S'assurer que le service "Affichage des Messages" soit démarré
    'Commande WinXP : "Net Start Messenger"
    Dim strMsg As String
    Dim strTo As String

    strMsg = InputBox("Veuillez saisir le message à envoyer : ", "Message", "café ?")

    strTo = Environ$("computername")
    Shell "net send " & strTo & " " & strMsg, vbMinimizedFocus

End Sub