envoi mail html avec utl_smtp

**n00noors** · 24/05/2006, 14h15

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**n00noors** · 24/05/2006, 14h56

je crois que la solution est d'envoyer ma page html en pièce jointe
quel est le code PL/SQL permettant de mettre une pièce jointe

**SheikYerbouti** · 24/05/2006, 15h31

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
36
37
38
39
40
41
42
43
44
45
CREATEORREPLACEPROCEDURE Html_Email(p_to INVARCHAR2,
p_from INVARCHAR2,
p_subject INVARCHAR2,
p_text INVARCHAR2DEFAULTNULL,
p_html INVARCHAR2DEFAULTNULL,
p_smtp_hostname INVARCHAR2,
p_smtp_portnum INVARCHAR2)IS
l_boundary VARCHAR2(255)DEFAULT'a1b2c3d4e3f2g1';
l_connection utl_smtp.connection;
l_body_html CLOB:= EMPTY_CLOB;
l_offset NUMBER;
l_ammount NUMBER;
l_temp VARCHAR2(32767)DEFAULTNULL;
l_dest VARCHAR2(32767);
l_dest_tmp VARCHAR2(32767);
BEGIN
-------------------------------
-- Procedure d'envoi de mail --
-------------------------------
l_dest := p_to;
l_connection := utl_smtp.open_connection(p_smtp_hostname, p_smtp_portnum);
utl_smtp.helo(l_connection, p_smtp_hostname);
utl_smtp.mail(l_connection, p_from);
WHILE INSTR(l_dest,',')!=0LOOP
l_dest_tmp := SUBSTR(l_dest,1, INSTR(l_dest,',')-1);
l_dest := SUBSTR(l_dest, INSTR(l_dest,',')+1);
utl_smtp.rcpt(l_connection, l_dest_tmp);
ENDLOOP;
utl_smtp.rcpt(l_connection, l_dest);
l_temp := l_temp || 'MIME-Version: 1.0' || CHR(13) || CHR(10);
l_temp := l_temp || 'To: ' || p_to || CHR(13) || CHR(10);
l_temp := l_temp || 'From: ' || p_from || CHR(13) || CHR(10);
l_temp := l_temp || 'Subject: ' || p_subject || CHR(13) || CHR(10);
l_temp := l_temp || 'Reply-To: ' || p_from || CHR(13) || CHR(10);
l_temp := l_temp || 'Content-Type: multipart/alternative; boundary=' ||
CHR(34) || l_boundary || CHR(34) || CHR(13) || CHR(10);
dbms_lob.createtemporary(l_body_html,FALSE,10);
dbms_lob.WRITE(l_body_html, LENGTH(l_temp),1, l_temp);
l_offset := dbms_lob.getlength(l_body_html)+1;
l_temp :='--' || l_boundary || CHR(13) || CHR(10);
l_temp := l_temp || 'content-type: text/plain; charset=windows-1252' ||
CHR(13) || CHR(10) || CHR(13) || CHR(10);

A suivre...

**SheikYerbouti** · 24/05/2006, 15h32

... suite et fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
dbms_lob.WRITE(l_body_html, LENGTH(l_temp), l_offset, l_temp);
l_offset := dbms_lob.getlength(l_body_html)+1;
dbms_lob.WRITE(l_body_html, LENGTH(p_text), l_offset, p_text);
l_temp := CHR(13) || CHR(10) || CHR(13) || CHR(10) || '--' ||
l_boundary || CHR(13) || CHR(10);
l_temp := l_temp || 'content-type: text/html; charset=windows-1252' ||
CHR(13) || CHR(10) || CHR(13) || CHR(10);
l_offset := dbms_lob.getlength(l_body_html)+1;
dbms_lob.WRITE(l_body_html, LENGTH(l_temp), l_offset, l_temp);
l_offset := dbms_lob.getlength(l_body_html)+1;
dbms_lob.WRITE(l_body_html, LENGTH(p_html), l_offset, p_html);
l_temp := CHR(13) || CHR(10) || '--' || l_boundary || '--' || CHR(13);
l_offset := dbms_lob.getlength(l_body_html)+1;
dbms_lob.WRITE(l_body_html, LENGTH(l_temp), l_offset, l_temp);
l_offset :=1;
l_ammount :=1900;
utl_smtp.open_data(l_connection);
WHILE l_offset < dbms_lob.getlength(l_body_html)LOOP
utl_smtp.write_data(l_connection, dbms_lob.SUBSTR(l_body_html, l_ammount, l_offset));
l_offset := l_offset + l_ammount;
l_ammount := LEAST(1900, dbms_lob.getlength(l_body_html)- l_ammount);
ENDLOOP;
utl_smtp.close_data(l_connection);
utl_smtp.quit(l_connection);
dbms_lob.freetemporary(l_body_html);
EXCEPTION
WHENOTHERSTHEN
ROLLBACK;
END;
/

**n00noors** · 24/05/2006, 15h36

merci bcp je teste

**SheikYerbouti** · 24/05/2006, 15h41

Apparament, le copier/coller a supprimé pas mal d'espaces !

Vous pouvez retirer le code correct à cet url:
http://sheikyerbouti.developpez.com/tmp/HTML_EMAIL.PRC

**hasnaareg** · 30/04/2007, 15h26

comment je pourrais appeler un trigger "create or replace procedure" depuis oracle forms

envoi mail html avec utl_smtp

SQL Oracle

Vue hybride

Discussions similaires

Partager

Partager