Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e _
      As System.Diagnostics.EntryWrittenEventArgs) Handles _
      EventLog1.EntryWritten
        With e.Entry
            ' Falls EventID = 7035
            If e.Entry.EventID = 7035 Then
                ' Event per Email senden
                Me.SendMail("sender@host.tld", "empfaenger@host.tld", _
                  .EntryType.ToString & " mit EventID " & .EventID, .Message)
 
                ' Event in den Listbox eintragen
                ListBox1.Items.Add(e.Entry.Source & " : " & e.Entry.Message)
            End If
 
            '' Alle Fehler und Warnungen benachrichtigen
            'If .EntryType = EventLogEntryType.Error Or .EntryType = 
            ' EventLogEntryType.Warning Then
            '    Me.SendMail("sender@host.tld", "empfaenger@host.tld", 
            ' .EntryType.ToString, .Message)
            'End If
        End With
    End Sub

    Private Sub SendMail(ByVal Absender As String, ByVal Empfaenger As String, _
      ByVal Betreff As String, ByVal Inhalt As String)
        Dim Msg As New MailMessage
        Dim myCredentials As New System.Net.NetworkCredential
        myCredentials.UserName = "username@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)
            Msg.To.Add(Empfaenger)
            Msg.Subject = Betreff
            Msg.Body = Inhalt
            mySmtpsvr.Send(Msg)
            MsgBox("E-Mail wurde an " & Empfaenger & " gesendet.", _
              MsgBoxStyle.Information, "Email")
        Catch ex As Exception
            MsgBox(Err.Number & ex.Message & ex.StackTrace.ToString)
        End Try
    End Sub