Imports System.Net.Mail
Imports System.Diagnostics
 
Public Class Form1
 
    Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e _
      As System.Diagnostics.EntryWrittenEventArgs) Handles _
      EventLog1.EntryWritten
 
        If e.Entry.EventID = 7035 Then
 
            ListBox1.Items.Add(e.Entry.Source & " : " & e.Entry.Message) ' Der 
            ' Text der Ereignisanzeige soll unten in den Inhalt der E-mail
 
        End If
 
 
        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@web.de")
            Msg.To.Add("empfaenger@web.de")
            Msg.Subject = "Betreff"
            Msg.Body = "Inhalt" ' Hier soll der Text der Ereignisanzeige stehen
            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 Sub
 
End Class