Send Alert to PC on a network

[MSingh]

Hi,

This might be a long shot:
It there a way to send a message (outside of MS Outlook) to pop-up on another pc on the network from MS Access 2007/2010?

Kind Regards,
Mohamed

[HansV]

Does How to Send Local Messages to Computers on LAN in Windows 7 and Vista help?

[Rudi]

Out of interest, where do you type the msg? I didn't pick up any instruction as to where to type this, or is this a server attribute?

[HansV]

Interactively, you'd type it in a Command Prompt window (Windows 7: Start > All Programs > Accessories > Command Prompt).
Using code, one could use Shell.

[Rudi]

TX

[BenCasey]

Hi,
Two questions please:
1. I have 2 PCs both running Windows 7. I can find msg.exe in one on them but not in the other (c:\windows\system32 folder). Any idea where it would be on the other PC?

2. I was trying to use an IP address instead of the person's PC-Name but not succeeding. Any idea if this can be done and if so, what is the format?

3. Is it possible to send the msg outside of the LAN - say to another remote IP address?

Thanks

[HansV]

1. Msg.exe is available in Windows 7 Professional, Enterprise and Ultimate, not in Starter, Home Basic and Home Premium.
2. As far as I know, that is not possible.
3. As far as I know, that is not possible.

[BenCasey]

Thank you for the quick response.

[Leif]

You can download a free messaging utility from Cezeo here: NetSend command, send network message in LAN:
"It's a small console utility that can help you send short text messages over the network ( via command line ), like Net send command in the Windows NT, Windows 2000, Windows XP, and Windows 2003, but our utility Netsend works in all Windows versions, including new operation systems from Microsoft - Windows Vista, Windows 7, and Windows 8 ( where is no net send command by default )."

Or for something more sophisticated, try: Inter office LAN messenger - instant messaging software for LAN, WAN, Intranet - but it isn't free.

[MSingh]

Hi,

Thanks Hans for the reply & everyone who has responded, sorry about my delayed response.

I tried the suggestion, no success, but I came across the following regarding the work-station-to-work-station code:

'======Begin: Stuart McCall's Microsoft Access Pages - Misc API===================================================

'Send a message to another workstation

Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hHandle As Long) As Long

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" _
(ByVal lpFileName As String, ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function WriteFile Lib "kernel32" _
(ByVal hFile As Long, ByVal lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long

Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_SHARE_READ = &H1
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = &H3



'Paste these Declarations into the top of a standard module (ie before any procedures).

Public Function NetSendMsg(FromName As String, MachineName As String, Message As String) As Boolean
Const NUL = vbNullChar
Dim buf As String
Dim bytesWritten As Long
Dim hFile As Long
Dim SlotName As String
'
buf = FromName & NUL & MachineName & NUL & Message & NUL & NUL
SlotName = "\\" & MachineName & "\mailslot\messngr"
'
hFile = CreateFile(SlotName, GENERIC_WRITE, FILE_SHARE_READ, 0&, _
OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0&)
If hFile Then
NetSendMsg = CBool(WriteFile(hFile, buf, Len(buf), bytesWritten, 0&))
CloseHandle hFile
End If
End Function


'Paste this Code into the same module.

'Usage:
'success = NetSendMsg("Stuart", "WS03", "Please call me ASAP")
'This sends a message from me to the workstation named WS03.
'======End: Stuart McCall's Microsoft Access Pages - Misc API===================================================
Running the above from the immediate window, I get a "True" but no pop-up message.


Below is an excellent application I was trying to implement:
http://www.utteraccess.com/forum/Instan ... 69381.html" onclick="window.open(this.href);return false;
This logs the messages & responses but does not feature the pop-up msg on the other work-station.

Perhaps, an alternative is a true messenger:
I'm not sure if this free LAN Messenger was posted here before:
http://lanmsngr.sourceforge.net/" onclick="window.open(this.href);return false;
This works very well.
I've requested the API, but there seems to be a backlog of requests for same.
It would be greatly appreciated if anyone on this forum has the API.

Kind Regards,
Mohamed

[HansV]

Not sure which API you mean?

[MSingh]

Hi Hans,

I was referring to the API for the free LAN Messenger.
Perhaps, there would be a way to log the message in Access but send the message via the LAN Messenger.

Kind Regards,
Mohamed