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: 
      Mail.send config
  
  [<EntryPoint>]
  let main argv = 
      match queue |> AzureQ.dequeue with
      | Some(msg) ->
          match msg.AsString |> Mail.parse with
          | Mail.EmailData mail ->
              send mail
              queue.DeleteMessage msg
          | _ -> raise <| InvalidOperationException("Unknown message type.")
      | _ -> ()
  
      0 // return an integer exit code
  
negative.code: ﻿open System
  open System.IO
  open Microsoft.WindowsAzure
  open Microsoft.WindowsAzure.Storage
  
  