anchor.diff:      let private toMailAddress address =
           MailAddress(address.SmtpAddress, address.DisplayName)
   
  +    let private toAttachment attachment =
  +        use contentStream = new MemoryStream(attachment.Content)
  +        new Attachment(contentStream, attachment.Name, attachment.MimeType)
  +
       let send config message =
           use client = new SmtpClient(config.Host, config.Port)
           client.Credentials <-
  
positive.code:     let q = storageAccount.CreateCloudQueueClient().GetQueueReference(name)
      q.CreateIfNotExists() |> ignore
      q
  
  let send =
      let host = CloudConfigurationManager.GetSetting "email-host"
  
negative.code:         smtpMsg.IsBodyHtml <- false
          smtpMsg.Subject <- message.Subject
          smtpMsg.Body <- message.Body
          message.Attachments |> List.map toAttachment
                              |> List.iter smtpMsg.Attachments.Add
  
          client.Send smtpMsg
  
  let queue =
  