envoi mail html avec utl_smtp
bonjour,
ma question est simple: je voudrais savoir comment envoyer un mail/fax au format html avec le package utl_smtp
voici mon code :
Code:
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
|
declare
serveursmtp varchar2(100) := 'smtp.vialtis.com';
cnx utl_smtp.connection;
exp varchar2(100) := 'relance-ic@vialtis.com';
text varchar2(100) := '::0146639881' || CHR(13) || CHR(10) || '<html><body bgcolor="red">ceci est un test denvoi vers un fax</body<</html>';
sujet varchar2(100) := 'test fax';
dest varchar2(100) := 'fax@vialtis.com';
begin
cnx := utl_smtp.open_connection(serveursmtp);
utl_smtp.helo(cnx,serveursmtp);
utl_smtp.mail(cnx,exp);
utl_smtp.rcpt(cnx,dest);
utl_smtp.open_data(cnx);
utl_smtp.write_data(cnx,'FROM' || ': ' || exp || utl_tcp.crlf);
utl_smtp.write_data(cnx,'TO' || ': ' || dest || utl_tcp.crlf);
utl_smtp.write_data(cnx,'SUBJECT' || ': ' || sujet || utl_tcp.crlf);
--utl_smtp.write_data(cnx,'Content-Type: text/html;' || utl_tcp.crlf);
utl_smtp.write_data(cnx, utl_tcp.crlf||text);
utl_smtp.close_data(cnx);
utl_smtp.quit(cnx);
end; |
comme vous pouvez le voir j'ai essayé en spécifiant le content type
--utl_smtp.write_data(cnx,'Content-Type: text/html;' || utl_tcp.crlf);
merci d'avance
