db_foreach get_queued_messages {} {
            set eh [util_list_to_ns_set $extra_headers]
	    if {$html_p} {  ns_set put $eh Content-Type text/html }
            if {[catch {ns_sendmail $to_addr $from_addr $subject $body $eh $bcc} errmsg]} {
                ns_log Error "ns_sendmail failed: $errmsg"
            } else {
                db_dml delete_queue_entry {}
            }
        }

I'm uncovered a bug in acs-mail-lite's rollout support, however, something I introduced (or at least didn't address when I added in rollout support). ns_sendmail doesn't handle the extra_headers the same, so it bombs out when trying to send MIME email when you have rollout support enabled.

How does this compare to using the acs_mail package?

acs_mail is documented here http://openacs.org/doc/acs-mail/openacs-mail.html. I've used it on one occasion and its powerful but quite complex to use.

    - Steve

The HTML sent in is as follows:

<a href="https://mydomain.com/intranet/project-manager/task-one?task_id=283046">Unable to remove deadline from task</a> (#283046)

What I get in my email (in Mail.app in Mac OS X, viewing source):

The link is returned as:

x-msg://6/3d%22https://mydomain.com/intranet/project-manager/task-one?task_id=3d283046%22

Any idea what's going on here?

    set to_addr myemail@email.com
    set from_addr myemail@email.com
    set subject "Test"
    set message "<a href=\"http://www.safe4all.org\">http://www.safe4all.org</a>"
    set mime_type "text/html"

    # first of all, set up the HTML and text versions of the message

    set message_html [ad_html_text_convert -from $mime_type -to "text/html" -- $body]

    # some mailers chop off the last few characters.
    append message_html "   "

    set message_text [ad_html_text_convert -from $mime_type -to "text/plain" -- $body]

    set message_data [build_mime_message $message_text $message_html]
    
    set extra_headers [ns_set new]
    ns_set put $extra_headers MIME-Version [ns_set get $message_data MIME-Version]
    ns_set put $extra_headers Content-ID   [ns_set get $message_data Content-ID]
    ns_set put $extra_headers Content-Type [ns_set get $message_data Content-Type]
    set message [ns_set get $message_data body]

    foreach to $to_addr {

        acs_mail_lite::send \
            -to_addr  "$to" \
            -from_addr "$from_addr" \
            -subject "$subject" \
            -body "$message" \
            -extraheaders $extra_headers
    }

MIME-Version: 1.0
Content-ID: <3427.1088195999.2@dev2.bread.com>
Content-Type: text/html;
              charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<a href=3D3d=22http://www.safe4all.org=22>http://www.safe4all.org</a>  =20

x-msg://46/3d'http://www.safe4all.org'

set body_id [acs_mail_body_new -header_subject $subject -content_item_id $multipart_id ]

Error:

Database operation "0or1row" failed (exception NSDB, "Query was not a statement returning rows.")

ERROR:  Function acs_mail_body__new("unknown", "unknown", "unknown", "unknown", "unknown", "unknown", "unknown", "unknown", "unknown", "unknown", "unknown", timestamptz, "unknown", "unknown", "unknown") does not exist
    Unable to identify a function that satisfies the given argument types
    You may need to add explicit typecasts

SQL:

select acs_mail_body__new (
  NULL,                -- body_id
  NULL,        -- body_reply_to
  NULL,            -- body_from
  NULL,            -- body_date
  NULL,    -- header_message_id
  NULL,        -- header_reply_to
  'Testemail mit acs-mail',      -- header_subject
  NULL,            -- header_from
  NULL,            -- header_to
  '2009',        -- content_item_id
  'acs_mail_body',        -- object_type
  now(),                -- creation_date
  NULL,        -- creation_user
  NULL,            -- creation_ip
  null                    -- context_id
);

Already breaks on oacs-5-1. postgres installation:

ERROR:  Function acs_mail_body__new("unknown", "unknown", "unknown", "unknown", "unknown", "unknown", "unknown", "unknown", "unknown", "unknown", "unknown", timestamptz, "unknown", "unknown", "unknown") does not exist
    Unable to identify a function that satisfies the given argument types
    You may need to add explicit typecasts

SQL:

select acs_mail_body__new (
  NULL,                -- body_id
  NULL,        -- body_reply_to
  NULL,            -- body_from
  NULL,            -- body_date
  NULL,    -- header_message_id
  NULL,        -- header_reply_to
  'test',      -- header_subject
  NULL,            -- header_from
  NULL,            -- header_to
  '2015',        -- content_item_id
  'acs_mail_body',        -- object_type
  now(),                -- creation_date
  NULL,        -- creation_user
  NULL,            -- creation_ip
  null                    -- context_id
);