Public Sub SendTestMailExchange()
 
      Try
 
         Dim lSrv As New SmtpClient("Server Adresse")
 
         lSrv.UseDefaultCredentials = False
 
         lSrv.EnableSsl = False
 
         lSrv.DeliveryMethod = SmtpDeliveryMethod.Network
 
         lSrv.Credentials = New NetworkCredential("", "")
 
 
 
 
         Dim lMail As New MailMessage("Mein ExchangeMail", "Mein Externer" & _
           "Email", "TEST", "TEST")
 
 
         lSrv.Send(lMail)
 
      Catch ex As Exception
 
         MessageBox.Show(ex.ToString)
 
      End Try
 
 
   End Sub