Forum OpenACS Q&A: Re: help with acs-mail

Collapse
5: Re: help with acs-mail (response to 1)
Posted by Brian Fenton on
Hi Rafael, acs_mail_body_new works for me. Here's some code where I create a mail with an attachment and send it to 2 different email addresses. In my case csv_string is a string I build which contains CSV data. I'm using OpenACS 5.0.0 beta 1. Hope this helps, Brian
db_transaction {



#email the file to this user and also to accounts - see /doc/acs-mail/openacs-mail.html for usage
set from_addr [db_string some_sql "select email from parties where party_id = :modifying_user"]

# create the multipart message ('multipart/mixed')
set multipart_id [acs_mail_multipart_new -multipart_kind "mixed"]

# create an acs_mail_body (with content_item_id = multipart_id )
set body_id [acs_mail_body_new -header_subject $generated_name -content_item_id $multipart_id ]

# create a new text/plain item
set content_item_id [db_exec_plsql create_text_item {
	begin
	:1 := content_item.new (
		 name      => :generated_name, 
		 title => :generated_name,
		 mime_type => 'text/plain',
		 text => :csv_string);
	end;}]		

set sequence_num [acs_mail_multipart_add_content -multipart_id $multipart_id -content_item_id $content_item_id]

db_dml update_multiparts "
		update acs_mail_multipart_parts 
		set mime_disposition='attachment; filename=\"$generated_name\"' 
		where sequence_number=:sequence_num 
		and multipart_id=:multipart_id"

# queue it
set mail_link_id [db_exec_plsql queue_the_mail {
	begin
	:1 := acs_mail_queue_message.new (
		null,             -- p_mail_link_id
		:body_id,         -- p_body_id
		null,             -- p_context_id
		sysdate,          -- p_creation_date
		:modifying_user,  -- p_creation_user
		:ip_addr,         -- p_creation_ip
		'acs_mail_link'   -- p_object_type
		);
	end;
	}
	]			

# send a copy each to accounts and the logged in user
set sql_string "
	insert into acs_mail_queue_outgoing
	 ( message_id, envelope_from, envelope_to )
	values
	 ( :mail_link_id, :from_addr, :to_addr )"

#copy for accounts
set to_addr [parameter::get -parameter accounts_email_address]
if {![empty_string_p $to_addr]} {
	db_dml outgoing_queue $sql_string
} else {
	ns_log Error " accounts_email_address parameter is blank"
}

#send another copy to the logged in user
set to_addr $from_addr
db_dml outgoing_queue $sql_string


} on_error {
	ad_return_error "[_ work.unable_to_update]" "[_ work.we_got_following_error] 
$errmsg
" ad_script_abort }