Buenas necesito ayuda con este code....
El problema que tengo es que se envia el mensaje pero lo recivo yo en el pc local y no el destinatario a pesar de estar conectado a el (soy yo mismo en 127.0.0.1).
Gracias por la ayuda...
[Private Sub Command5_Click()
Dim send, mensaje
mensaje = "msg * " ' para añadirlo al codigo
texto = Text3.Text ' recoge el texto que se va a enviar
WS.SendData Shell(mensaje & texto) ' se envia el mensaje con el texto
End Sub
----------------------------------------------------------------------
Private Sub Text3_Change()
End Sub