Computer Send Message
25.08.2005 22:48:55
mehmet
habe diesen makro hier gefunden und wollte es anpassen
bräuchte bitte euere tatkräftige hilfe:
Sub Computer_Send_Message()
'Computername: memsiorg-syzi1n.
'Zu finden unter: Systemsteuerung - System - Compurtname
Dim netMsgA1
Dim netMsgA2
Dim netMsgA3
Dim netMsgA4
netMsg1 = Shell("net send memsiorg-syzi1n. ""Hallo""", vbHide)
netMsg2 = Shell("net send ComputernameZelleA2 ""NachrichtZelleB2""", vbHide)
netMsg3 = Shell("net send ComputernameZelleA3 ""NachrichtZelleB2""", vbHide)
netMsg4 = Shell("net send ComputernameZelleA4 ""NachrichtZelleB2""", vbHide)
End Sub
in Zelle a2 sollte der computername stehe und b2 die nachricht
in Zelle a3 sollte der computername stehe und b3 die nachricht
in Zelle a4 sollte der computername stehe und b4 die nachricht
und wenn zelle b1,b2,b3 oder b4 leer, dann keine nachricht senden
dank und gruss
mehmet