parameter l_action

select ('action_tmp'+l_action.num)
if !empty(email) and answer('Envoyer une confirmation  '+rtrim(email)+' ?')
	wait 'SMTP...' window nowait
	SMTP_FROM=rtrim(users.crm_mail)
	SMTP_FROMN=rtrim(users.crm_nom)
	local ret
	ret=sendmail_smtp(rtrim(email),'','',rtrim(objet),'<HTML><BODY>'+chr(13)+chr(10)+"Nous avons planifi l'intervention suivante chez vous : "+ttoc(moment_1)+" - "+ttoc(moment_2)+"<BR><HR>"+strtran(note,chr(13)+chr(10),'<BR>')+chr(13)+chr(10)+users.crm_signat+chr(13)+chr(10)+'</BODY></HTML>','',prio,conf1,conf2)
	wait clear
	if !empty(m.ret)
		=stop(m.ret)
	endif
endif