Imports System.Diagnostics
Imports System.Net.Mail
 
Public Class EventMonitor
 
    Protected Overrides Sub OnStart(ByVal args() As String)
 
    End Sub
 
    Protected Overrides Sub OnStop()
 
    End Sub
 
    Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e _
      As System.Diagnostics.EntryWrittenEventArgs) Handles _
      EventLog1.EntryWritten
        If e.Entry.EventID = 7035 Then
 
            Dim Msg As New MailMessage
            Dim myCredentials As New System.Net.NetworkCredential
            myCredentials.UserName = "email@web.de"
            myCredentials.Password = "kennwort"
 
            Msg.IsBodyHtml = False
 
            Dim mySmtpsvr As New SmtpClient()
            mySmtpsvr.Host = "smtp.web.de"
            mySmtpsvr.Port = 25
 
            mySmtpsvr.UseDefaultCredentials = False
            mySmtpsvr.Credentials = myCredentials
 
            Try
                Msg.From = New MailAddress("absender@web.de")
                Msg.To.Add("empfaenger@gmx.de")
                Msg.Subject = "EventMonitor"
                Msg.Body = e.Entry.Source & " : " & e.Entry.Message
                mySmtpsvr.Send(Msg)
                MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, _
                  Title:="Information")
            Catch ex As Exception
                MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
            End Try
 
        End If
    End Sub
End Class