import System.IO
import HaskellNet.SMTP
import Text.Mime
import qualified Data.ByteString.Char8 as BS

smtpServer = "mysmtpserver"
sendFrom = "test@test.org"
sendTo = ["wrwills@gmail.com"]

main = do
  con <- connectSMTP smtpServer
  let msg = ([("From", "HaskellNet <" ++ sendFrom ++ ">"),("Subject","Test")], BS.pack "\r\nhello from haskellnet")
  sendMail sendFrom sendTo (BS.pack $ show $ showMessage "utf-8" msg) con
  closeSMTP con