Dim eMail As New MailMessage
        ' Eigenschaften der E-Mail festlegen
        With eMail
            ' Absender  
            .From = "Andreas Absender <aa@aa.de>"
            ' Empfänger  
            .To = "Erich Empfaenger <xxx@xxx.de>"
            ' Titel der e-Mail  
            .Subject = "Dies ist ein test"
            ' Format des Texts (Text / HTML)  
            .BodyFormat = MailFormat.Text
            ' Codierung des Texts  
            .BodyEncoding = System.Text.Encoding.Default
            ' Text  
            .Body = "hoffentlich funkts"
            'Dateianhang 
            .Attachments.Add(New MailAttachment("c:\test.txt", _
            MailEncoding.Base64))
            ' Prioritätskennzeichnung der Mail  
            .Priority = MailPriority.Low
        End With
                SmtpMail.SmtpServer = "smtp.web.de"  
               SmtpMail.Send(eMail) ' MailMessage abschicken