Dim Betreff As String = "Hallo" & " " & Now
        Dim Mail As New MailMessage
        Dim SMTP As New SmtpClient("smtp.gmail.com")
        Dim Msg As New MailMessage
 
        Mail.Subject = Betreff
        Mail.From = New MailAddress("Adresse")
        SMTP.Credentials = New System.Net.NetworkCredential("Adresse", "PW") _
          '<-- Password Here
 
        Mail.To.Add("Adresse") 'Senden zu
 
        Mail.Body = "" 'Message Here
        Msg.Attachments.Add(New System.Net.Mail.Attachment("C:\test\1.txt"))
 
        SMTP.EnableSsl = True
        SMTP.Port = "587"
        SMTP.Send(Mail)