Skip to main content

AccessTr.neT


Makro İle Oluşturduğum Uyarı Mesajını, Ağdaki Belli Bilgisayarlarda Gösterme

Makro İle Oluşturduğum Uyarı Mesajını, Ağdaki Belli Bilgisayarlarda Gösterme

Çözüldü #1
merhaba arkadaşlar, uyarı makrosunu windows start klasörüne attım, bilgisayar açılınca otomatik olarak açılıyor tarihi kontrol ediyor, geçmişse uyarı veriyor, buraya kadar her şey hazır, ama yöneticimiz bu uyarının ağdaki belli bilgisayarlarda da verilmesini istedi, bu mümkün mü? nasıl bir çözüm bulabilirim, yardımlarınız, önerileriniz için şimdiden teşekkürler
Cevapla
#2
Shell("msg /Server:192.168.xxx.xxx 'Göndermek istediğiniz mesaj'", vbNormalFocus)
ile gönderebilirsiniz.

Ancak tavsiyem şayet kurum içinde outlook kullanılıyor ise tek seferlik bir net send mesajının gözden kaçırılma ve/veya kaza ile kapatma ihtimalini elemine etmek için reminder özellikli bir mail göndermek olur.
Cevapla
#3
muhtemelen kullanılıyordur ben yeni atandım tam emin değilim ama outlok olayına da bi bakayım o da mantıklı geldi, ama ilk etapta şu verdiğiniz kodu yarın bi uygulayayım bakayım işimi görecek muhtemelen, neyse çok teşekkür ederim atoykan hocam önerileriniz, ilginiz için.
Cevapla
#4
Shell("msg /Server:192.168.xxx.xxx 'Göndermek istediğiniz mesaj'", vbNormalFocus)

bu kodu şartımdan sonra yazdım ama renk kırmızıya döndü, yanlış yere yapıştırmadığımdan eminim, eksik bir şey mi yaptım acaba, aşağıdaki gibi


...
Else
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
Cevapla
#5
(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.
Cevapla
#6
Tamam , kisimlarinin ne anlama geldiğini biliyorum, ayriyeten alttaki msgbox satırını silmedim tik atıp iptal ettim onu kullanmiyorum zaten de neden kırmızıya donup uyari verdi onu çözemedim, sozdizim hatasi verdi ve de "=" bekleniyor uyarısı verdi, birazdan isyerindeki ağda bi deneyeyim, dönüş yapacağım, çok teşekkür ediyorum.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da