1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| DECLARE
len integer;
lastchar varchar2(1);
LC$Infos Varchar2(2000);
BEGIN
if :attacher is not null then
len := length(:attacher);
lastchar := substr(:attacher,len,1);
if lastchar in('@','#','$','%','^','&','*','(',')','+','[',']','{','}',
'(',')',':',';','"','''','?','<','>','|') then
Message('Attachment list is terminated by an illegal character');
go_item('attacher');
raise form_trigger_failure;
end if;
end if;
-- NB: "CONTACTS.MAIL" est un composant javabean dont la classe de
-- mise en oeuvre est oracle.forms.fd.SendMail
LC$Infos := :serveur || '|'
|| :de || '|'
|| :AUTRE_E_MAIL || '|'
|| :objet || '|'
|| :ecriver || '|'
|| :attacher ;
Message(LC$Infos);
Set_Custom_Property( 'CONTACTS.MAIL', 1, 'SET_MAIL_INFOS', LC$Infos ) ;
Message('Message Sent');
END; |