Allt om Lotus Notes & Domino

Daily email event report from DDM
DDM (Domino Domain Monitor) is a great tool for keeping your Domino server in good shape. but if you forget to open ddm.nsf you will easily miss important errors.
Use this script in a scheduled agent to recieve an email with the most recent problems reported to DDM.
Customize the scipt with your server name, recipients and number of event days back you want the email to contain.

' Loop all open and recent ddm events and email them
' Put this script in a scheduled agent and run it daily

Dim session As New NotesSession,db As NotesDatabase
Dim view As NotesView,maxdays As Integer, style As NotesRichTextStyle
Dim maildoc As NotesDocument, rt As NotesRichTextItem, c As Integer
Dim entry As NotesViewEntry, nav As NotesViewNavigator
Dim server As String, emails As Variant

emails = Evaluate(|"":""|)
maxdays = 1
server = "domino1"

Set db = session.GetDatabase(server,"ddm.nsf")
Set view = db.getView("vwEventsByDate1")
Set nav = view.CreateViewNav
Set style = session.CreateRichTextStyle
style.FontSize = 8
style.NotesFont = FONT_HELV

Set maildoc = db.Createdocument()
maildoc.Form = "Memo"
maildoc.Subject = "Recent DDM events"
Set rt = maildoc.Createrichtextitem("Body")
c = 0
Call rt.AppendStyle(style)
Call rt.Appendtext("Recent DDM Events")
Call rt.Addnewline(2)

Set nav = view.CreateViewNav

Set entry = nav.GetFirst
Do Until entry Is Nothing
If entry.IsDocument Then
Call rt.Appendtext(entry.Columnvalues(7))
Call rt.Addnewline(1)
If c => maxdays Then Exit Do
Call rt.Addnewline(2)
Call rt.Appendtext(entry.Columnvalues(1))
Call rt.Addnewline(2)
c = c + 1
End If
Set entry = nav.GetNext(entry)

Call rt.Addnewline(3)
Call rt.Appendtext("Open DDM -> ")
Call rt.Appenddoclink(db,"Link to DDM")
Call rt.Addnewline(5)
Call maildoc.send(False,emails)

Image below show an example of what the email might look like

Relevanta Poster på Notessidan:

Fler Poster om:

Fler bloggar om:


Publicerad 2014-05-28 | Kommentarer: 0 | Läsningar:


No documents found

Sök på Notessidan
Thomas Adrian
ThomasCertifierad utvecklare och administratör inom Notes & Domino

Kontakta mig

Senaste Sökningarna på Notessidan
Sön - sharepoint (R:1)
Sön - räkna and antal and besökare (R:0)
Sön - browser (R:17)
Sön - stoppar and mail (R:1)
Sön - korrupt (R:3)
Sön - böcker (R:0)
Sön - kalendern (R:12)
Sön - feature (R:15)
Sön - print and mime (R:2)
Sön - länka (R:0)
Sön - databasen (R:94)
Sön - access (R:47)
Sön - outlook (R:15)
Sön - webanvändare (R:0)
Sön - google and maps (R:6)
Sön - juffe (R:2)
Sön - uidoc.print (R:1)
Sön - java and lotusscript (R:26)
Sön - besök (R:0)

Databasstatistik Blogg
Uppdateras var 15:e Minut

Antal Poster:562
Antal Kommentarer: 1552
Alla sidvisningar idag:
Unika Besökare idag:
Databasstorlek: 112,25Mb
Fixup: 2020-10-01 00:30:25
FT:2020-10-01 11:51:23
DB Procent använd: 97,4
Antal Agenter: 42
Antal Formulär: 65
Antal Vyer: 60
Antal Dokument: 8350
Antal Image Resources: 108
Antal Subformulär: 18
Antal Scriptbibliotek: 11
Totalt Antal Designelement: 576
Antal Attachments: 158
Antal Konflikter: 0
Server version 1: 452
Server version 2: Release 11.0.1|March 21, 2020
Server Plattform: Windows/64
Ändrad: 2020-10-01 13:19:53
Server Tidszon: Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=133$ZN=W. Europe
Kommentarsspam Idag: 7
Kommentarsspam Totalt: 24793

Top Sites at

Fight Spam! Click Here!

Listed on BlogShares

Increase website traffic

Top Internet Blogs

Site Checker