Private Sub SendMail()
 
          Private Sub SendMail()
 
        Dim mail As New MailMessage("test@jungfrua-soft.ch", _
          "alex.feuz@jungfrau-soft.ch")
 
        mail.Subject = "Test"
        mail.Body = "This is a test"
 
        Dim ctl As New SmtpClient("mai.jungfrau-soft.ch", 25)
        ctl.Credentials = New NetworkCredential("test@jungfrua-soft.ch", _
          "12345abc")
 
        Try
            ctl.Send(mail)
            MsgBox("Success")
        Catch e As Mail.SmtpException
            MsgBox(e.Message)
        End Try
 
    End Sub