title: Sending Mail with Attachment
body: <p>I am trying to send an attachment with my email however it will not seem to work. I can send email when I do not try and use the attachment section</p>
  
  <p>I am using these imports</p>
  
  <pre><code>Imports System.IO
  Imports System
  Imports System.Web.Mail
  
  Dim mail As New MailMessage()
  mail.To = strTo
  mail.From = strFrom 
  mail.Subject = strSubject
  mail.BodyFormat = MailFormat.Html
  mail.Body = sBody
  'mail.Attachment.Add (strAttachment)
  'mail.AddAttachment(strAttachment)
  
  
  'mail.Attachments.Add(New MailAttachment(strAttachment))
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "xxxxxxxxxxxx") 'set your username here
   mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "xxxxxxxxxxx") 'set your password here
   SmtpMail.SmtpServer = "xxxxxxxxxxxx" 'your real server goes here
   SmtpMail.Send(mail)
  </code></pre>