Excel - e-mail notifikacije

Excel - e-mail notifikacije

offline
  • Network administrator
  • Pridružio: 23 Apr 2021
  • Poruke: 3

Pozdrav svim članovima. Ziveli

Treba mi mala pomoć oko konfiguracije makro sadržaja. Kreirao sam tabelu i ubacio skriptu za auto-ping određenih servera i radnih stanica, kada se jednom pokrene radi u kontinuitetu, skenira svaki host po jednu sekundu i u kolonu D izbacuje status na osnovu pinga (Online, Offline). Međutim, potrebne su mi izmene skripte, značilo bi mi da dobijem e-mail notifikaciju kada jedan od servera ode u Offline status. Pronašao sam skriptu koja se nalazi ispod ali ne odrađuje mi ovaj zadatak, potrebno mi je da e-mail notifikacija stigne samo kada se u opsegu od D4:D18 pojavi Offline kao rezultat. Molim za pomoć. Hvala unapred.






Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Range("D4:D18"), Target) Is Nothing) Then
MsgBox "Done."
Dim objNewWorkbook As Excel.Workbook
Dim objNewWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object


On Error Resume Next
Set objOutlookApp = CreateObject("Outlook.Application")
Set objMail = objOutlookApp.CreateItem(olMailItem)

'Change the email details as per your needs
With objMail
.To = "test@gmail.com"
.Subject = "Test"
.Body = "Test"
'Attach this workbook
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
End If
End Sub



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Ko je trenutno na forumu
 

Ukupno su 677 korisnika na forumu :: 31 registrovanih, 5 sakrivenih i 641 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Sale, Aleksandar Tomić, amaterSRB, Andrija357, Areal84, Bogoslov, cezar 35, djboj, Doca, dogodine, Drug pukovnik, Gama, havoc995, Konda, Krusarac, Marko Marković, MB120mm, Milan A. Nikolic, misa1xx, Miskohd, nenad81, Overkill, pedja63, pedjolino76, randja26, repac, shaja1, Snorks, Sr.Stat., Vlada1389, vlvl