anchor.diff:          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 =
  
positive.code: ﻿open System
  open Microsoft.WindowsAzure
  open Microsoft.WindowsAzure.Storage
  
  
negative.code:     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 <-
  