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 761 korisnika na forumu :: 23 registrovanih, 4 sakrivenih i 734 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: Apok, Ben Roj, coaaco, delrey, draganca, gasha, goxin, HrcAk47, Leonov, MB120mm, MiroslavD, Posmatrac77OKB, Rogonos, ser.hill, Srky Boy, Stamena, Stanlio, stegonosa, tmanda323, udbas, vladetije, x9, |_MeD_|