Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("mymail@gmail.com", "mailPassword")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
Dim path As String="D:\filesToMail\"
e_mail = New MailMessage()
e_mail.From = New MailAddress(mymail@gmail.com)
Dim dir As New DirectoryInfo(path)
Dim filesInDirectory As FileInfo() = di.GetFiles()
ForEach file in filesInDirectory
attach = New System.Net.Mail.Attachment(file.FullName)
e_mail.Attachments.Add(attach)
Next
e_mail.To.Add(txtTo)
e_mail.Subject = txtsubject.Text
e_mail.IsBodyHtml = False
e_mail.Body = txtBody
Smtp_Server.Send(e_mail)