Imports System.Net.Mail
...
 
Dim von As MailAddress = New MailAddress("Ich@Domain.de")
Dim zu As MailAddress = New MailAddress("Ich@Domain.de")
 
Dim mm As MailMessage = New MailMessage()
mm.From = von
mm.To.Add(zu)
mm.Subject = "Das ist ein Test"
mm.Body = "Das ist die Nachricht"
 
Dim server As SmtpClient = New SmtpClient("imap.strato.de")
server.UseDefaultCredentials = False
server.Timeout = 60000
server.Port = 993
server.EnableSsl = True
server.Credentials = New System.Net.NetworkCredential("Ich@Domain.de", "PW")
 
Try
   server.Send(mm)
   MessageBox.Show("gesendet")
 
Catch ex As Exception
   MessageBox.Show(ex.ToString)
End Try