(19/05/2022, 20:00)tarkanaykın yazdı: Shell("msg /Server:192.168.xxx.xxx 'Göndermek istediğiniz mesaj'", vbNormalFocus)
'MsgBox " tarihi yaklaşan kayıt veya kayıtlar var"
Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing
ThisWorkbook.Saved = True
Application.Quit
'Rs.Close
'Con.Close

End If

Shell("msg /Server:192.168.xxx.xxx 'Göndermek istediğiniz mesaj'", vbNormalFocus) kodunda
192.168.xxx.xxx kısmı mesaj göndermek istediğiniz bilgisayarın ip adresidir. Mesajı göndermek istediğiniz bilgisayarın ip adresini yazmanız gerekir 192.168.2.145 gibi
'Göndermek istediğiniz mesaj' bu kısımda göndermek istediğiniz mesajı yazacağınız alandır. msgbox kullanmanıza gerek yok. 'tarihi yaklaşan kayıt veya kayıtlar var' şeklinde mesajınızı yazmanız yeterli.