Imports System
Imports System.Net.Mail
Imports System.Text
 
    Public Sub Senden(ByVal from As String, ByVal _to As String, ByVal text As _
      String, ByVal subject As String)
        Dim myMail As MailMessage = New MailMessage(New MailAddress(from.Trim( _
        )), New MailAddress(to_.Trim()))
        myMail.BodyEncoding = Encoding.Default
        myMail.Subject = subject
        myMail.Body = text
        myMail.IsBodyHtml = True
        myMail.To.Add(_to)
 
        Try
            Dim mySMTP As New SmtpClient()
            mySMTP.Host = "192.168.x.x" 'Hier die IP des Exchanges / Mailservers
            mySMTP.Send(myMail)
        Catch ex As Exception
 
        End Try
    End Sub