Excel - e-mail notifikacije

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pozdrav svim članovima.

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