Dave,
After much forensic study (which wouldn't have taken anything like as long if I had already understood callbacks!) I have found the problem.
Of course , after finding it I then saw your post which would have saved me some time for sure! 😊
In mail-tracking-callback-procs.tcl.......
ad_proc -public -callback acs_mail_lite::send -impl mail_tracking {
{-package_id:required}
{-from_party_id:required}
{-to_party_id:required}
{-body:required}
{-message_id:required}
{-subject:required}
}
should be:
ad_proc -public -callback acs_mail_lite::send -impl mail_tracking {
{-package_id:required}
{-from_addr:required}
{-to_party_id:required}
{-body:required}
{-message_id:required}
{-subject:required}
}
consequently the call to :
set log_id [mail_tracking::new -package_id $package_id \
-sender_id $from_party_id \
-recipient_ids $to_party_id \
-body $body \
-message_id $message_id \
-subject $subject]
}
should be:
set log_id [mail_tracking::new -package_id $package_id \
-sender_id $from_addr \
-recipient_ids $to_party_id \
-body $body \
-message_id $message_id \
-subject $subject]
}
The silver lining is that I could now write a callback function, and I have also seen all the lovely little mime related calls in the mail API which will help me no end when I re-write my internal mail package to support attachments.
😊
Thanks Dave. Who is the package maintainer for mail-tracking?
R.
