sub send_rfq_email {
# by Chris Hardie, chris@summersault.com

  require MIME::Lite;
  import MIME::Lite;

  my %args = (
      SUBJECT                           => undef,
      MESSAGE                           => undef,
      TO                                => undef,
      FROM                              => 'Summersault <info@summersault.com>',
      CC                                => undef,
      BCC                               => undef,
      REPLY_TO                          => undef,
      RETURN_PATH                       => undef,
      @_
  );

  my $msg = MIME::Lite->new(
                   From     =>$args{FROM},
                   To       =>$args{TO},
                   Subject  =>$args{SUBJECT},
                   CC       =>$args{CC},
                   Type     =>'multipart/mixed'
                 );

  $msg->attach(Type     =>'TEXT',
    Data     =>$args{MESSAGE}
  );

  if ($args{ATTACHMENTS}) {

    my $attachment_query = $args{ATTACHMENTS};

    # http://www.perlmonks.org/index.pl?node_id=18702&lastnode_id=864

    while (my ($attachment_id, $category_id, $filename,
      $mime_type, $description) = $attachment_query->fetchrow()) {

      $msg->attach(Type     => $mime_type,
        Path     =>"$ATTACHMENT_DIR/$attachment_id",
        Filename =>$filename
        );
    }
  }

  open(SENDMAIL,"|$Sumsault::Sumconfig::MAILPROG -t");
  $msg->print(\*SENDMAIL);
  close(SENDMAIL);

}