SmtpClient("mai.jungfrau-soft.ch" ' mai.
MailMessage("test@jungfrua-soft.ch" ' jungfrua
NetworkCredential("test@jungfrua-soft.ch" ' jungfrua

Imports System.Net
Imports System.Net.Mail
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        SendMail()
    End Sub
 
    Private Sub SendMail()
 
        Dim mail As New MailMessage("test@jungfrau-soft.ch", _
          "alex.feuz@jungfrau-soft.ch")
 
        mail.Subject = "Test"
        mail.Body = "This is a test"
 
        Dim ctl As New SmtpClient("mail.jungfrau-soft.ch", 25)
        ctl.Credentials = New NetworkCredential("test@jungfrau-soft.ch", _
          "12345abc")
 
        Try
            ctl.Send(mail)
            MsgBox("Success")
        Catch e As SmtpException
            MsgBox(e.Message)
        End Try
 
    End Sub
 
End Class