Dim att As Attachment = New Attachment(mem, sPDF, "application/pdf")
' Create a new message and attach the PDF report to it.
Dim mail As MailMessage = New MailMessage()
mail.Attachments.Add(att)
' Specify sender and recipient options for the e-mail message.
mail.From = New MailAddress("xxxxxx@xxxxxx.cccc")
mail.To.Add("xxxxxx@xxxxxx.cccc")
' Specify other e-mail options.
mail.Subject = "Parte Diario "
mail.Body = "Buenos días, se envía reporte de producción." & vbCrLf & "Saludos" & vbCrLf & vbCrLf & vbCrLf & "*** Este mensaje se genera de manera automática, favor de no responder ***"
' Send the e-mail message via the specified SMTP server.
Dim smtp As SmtpClient = New SmtpClient("webmail.diavazdep.com")
smtp.Credentials = New System.Net.NetworkCredential("DiavazDep\\doleum.dwf", "D14v4zd3p")
smtp.Send(mail)