|
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
|
