my $dbh       = C4::Context->dbh();

    my $message = Koha::Notice::Message->new(

    my $statement = << 'ENDSQL';

        {

INSERT INTO message_queue

            letter_id              => $params->{letter}->{id} || undef,

( letter_id, borrowernumber, subject, content, metadata, letter_code, message_transport_type, status, time_queued, to_address, from_address, reply_address, content_type, failure_code )

            borrowernumber         => $params->{borrowernumber},

VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, CAST(NOW() AS DATETIME), ?, ?, ?, ?, ? )

            subject                => $params->{letter}->{title},

ENDSQL

            content                => $params->{letter}->{content},

            metadata               => $params->{letter}->{metadata} || q{},

    my $sth    = $dbh->prepare($statement);

            letter_code            => $params->{letter}->{code} || q{},

    my $result = $sth->execute(

            message_transport_type => $params->{message_transport_type},

        $params->{letter}->{id} || undef,         # letter.id

            status                 => 'pending',

        $params->{'borrowernumber'},              # borrowernumber

            time_queued            => dt_from_string(),

        $params->{'letter'}->{'title'},           # subject

            to_address             => $params->{to_address},

        $params->{'letter'}->{'content'},         # content

            from_address           => $params->{from_address},

        $params->{'letter'}->{'metadata'} || '',  # metadata

            reply_address          => $params->{reply_address},

        $params->{'letter'}->{'code'}     || '',  # letter_code

            content_type           => $params->{letter}->{'content-type'},

        $params->{'message_transport_type'},      # message_transport_type

            failure_code           => $params->{failure_code} || q{},

        'pending',                                # status

        }

        $params->{'to_address'},                  # to_address

    )->store();

        $params->{'from_address'},                # from_address

    return $message->id;

        $params->{'reply_address'},               # reply_address

        $params->{'letter'}->{'content-type'},    # content_type

        $params->{'failure_code'}        || '',   # failure_code

    );

    return $dbh->last_insert_id(undef,undef,'message_queue', undef);