Usando Access

MSG do Windows - Antigo Net Send

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Usuário Raphael:

Boa tarde.

Como enviar uma mensagem para um usuário usando o MSG (antigo NET SEND) do Windows, usando VBA?

Gostaria de ver um exemplo.

Abraço.

Suporte:

Raphael, podemos usar o comando Shell, mas a questão é se você está conseguindo utilizar o MSG na sua rede?  Se sim, ofereça um exemplo de linha de comando.

Usuário Raphael:

Usando o CMD  funciona com o comando:

MSG /SERVER:NOMEPC NOMEUSUARIO AQUIFICAAMENSAGEM

Gostaria de saber como usar esse mesmo comando no VBA.

Suporte:

Raphael, testei aqui num botão do Access e funcionou bem. No evento ao clicar:

Shell "msg /server:w106pai sampaio /v Oi Mundo"

Usei no Windows 10

Usuário Raphael:

Coloquei no evento "ao clicar" de um botão e deu o seguinte erro: "O arquivo não foi localizado"

Será que tem que ativar alguma referência?

Suporte:

Raphael, a linha que você testou, lá pelo CMD, está idêntica com a linha no Shell? Se no CMD funciona, pelo Shell deveria funcionar, sem problemas.

Acrescente o CMD na linha Shell.

Shell "cmd /c msg /server:w106pai sampaio /v Oi Mundo"

Confirme se pelo CMD está funcionando.

Usuário Raphael:

Creio que seja alguma coisa relacionada com o Windows 64 bits

Se eu executar o CMD da pasta system32, funciona o comando MSG

Se eu executar o CMD da pasta syswow64, não funciona o comando MSG

Será que pode ser isso?

Suporte:

Raphael, então acrescente o caminho completo do MSG

Shell "c:\Windows\system32\msg.exe /server:w106pai sampaio /v Oi Mundo"

Usuário Raphael:

Avelino,

Funcionou!!! Obrigado!!!

Abraço

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |