Dim mail As New MailMessage()
        mail.To = "name@yahoo.de" 'Adresse des Empfängers
        mail.From = "Max Mustermann"
        mail.Subject = "Test" 'Betreff
        mail.Body = "Hallo" 'Nachricht
        mail.Fields.Add( _
          "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", _
          "1") 'basic authentication
        mail.Fields.Add( _
        "http://schemas.microsoft.com/cdo/configuration/sendusername", _
        "mustermann") 'set your username here
        mail.Fields.Add( _
        "http://schemas.microsoft.com/cdo/configuration/sendpassword", _
        "geheim") 'set your password here
        SmtpMail.SmtpServer = "smtp.mail.yahoo.de" 'your real server goes here
        SmtpMail.Send(mail)