NET SEND via Access 2

[PhoenixDon]

I have a program that is used for tracking customers as they appear at the front desk. When they log in I want to send a pop-up message to the person or people who are scheduled for the appointment. I was thinking about shelling to a DOS prompt and running NET SEND.

EX. NET SEND JOE.BLOW Your 10:00 AM appointment is here to see you.

Sending any email isn't practical.

Any thoughts?

Thanks ... Don

 

[PWise]

if the person to who you want to send the message to is running access create this littel app
messagetable
messageid: autonumber
name: name of person intened for
message: message youwant to send
recived: checkbox that message was recived,default no
when a customers logs in at front desk add massage to massage table
on orther end
create an app linked to this table
a form with a text box for the user to enter name
on timer event
a=dlookup("messageid","messagetable","name='" & me.textbox & "' and recived=false&quot
if nz(a,0)>0 then
msgbox(dlookup("message","messagetable","id=" a))
docmd.setwarnings false
docmd.runsql "update messagetable set recived=true where messageid=" & a & ";"
docmd.setwarnings true
endif
good luck

 

[jwkolker]

I have developed 2 really useful net send modules:

1 - Pop up
************************************
Public Function NetSend()

Dim MessageRecip, TitleRecip, DefaultRecip, MyValueRecip
MessageRecip = "Send a Network Message to:" ' Set prompt.
TitleRecip = "Net Send Step 1" ' Set title.
DefaultRecip = "Type in UserID Here..." ' Set default.
' Display message, title, and default value.
MyValueRecip = InputBox(MessageRecip, TitleRecip, DefaultRecip)


Dim Message, Title, Default, MyValue
Message = "Your Network Message:" ' Set prompt.
Title = "Net Send Step 2" ' Set title.
Default = "Type in Your Message Here..." ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)


Shell ("net send " & MyValueRecip & " " & MyValue & "&quot


End Function
*****************************************
2. Automated
******************************************Public Function NetSend()
Dim netmessage1
Dim netmessage2
Dim recipient1
Dim recipient2
Dim recipient3
Dim recipient4
Dim recipient5
Dim recipient6
Dim recipient7
' Set network usernames...
recipient1 = "username1"
recipient2 = "username2"
recipient3 = "username3"
recipient4 = "username4"
recipient5 = "username5"
recipient6 = "username6"
recipient7 = "username7"

'Set your message(s)
netmessage1 = "Your First Message"
netmessage2 = "Your Second Message"

Shell ("net send " & recipient1 & " " & netmessage1 & "&quot
Shell ("net send " & recipient1 & " " & netmessage2 & "&quot
Shell ("net send " & recipient2 & " " & netmessage1 & "&quot
Shell ("net send " & recipient2 & " " & netmessage2 & "&quot
Shell ("net send " & recipient3 & " " & netmessage1 & "&quot
Shell ("net send " & recipient3 & " " & netmessage2 & "&quot
Shell ("net send " & recipient4 & " " & netmessage1 & "&quot
Shell ("net send " & recipient4 & " " & netmessage2 & "&quot
Shell ("net send " & recipient5 & " " & netmessage1 & "&quot
Shell ("net send " & recipient5 & " " & netmessage2 & "&quot
Shell ("net send " & recipient6 & " " & netmessage1 & "&quot
Shell ("net send " & recipient6 & " " & netmessage2 & "&quot
Shell ("net send " & recipient7 & " " & netmessage1 & "&quot
Shell ("net send " & recipient7 & " " & netmessage2 & "&quot


End Function

John Kolker
Programmer
jwkolker@comcast.net

 

[PROXI]

This is a great tool. Good work man

Thanks,

Shadd Parker