Envoi de message avec utl_smtp

Version imprimable

Bonjour. Je suis entrain d'écrire une procédure me permettant d'envoyer de message dont le contenu est issu d'une requête. Quelqu'un peut m'aider à réaliser cette tâche par l'utilisation du package UTL_SMTP?
Quand je compile, le message d'erreur est: "Avertissement: procédure créée avec des erreurs de compilation". Ci-dessous le code.
Merci d'avance

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CREATE OR REPLACE PROCEDURE Envoie_message 
 (destinataire IN VARCHAR2, 
  sujet IN VARCHAR2, 
  message IN VARCHAR2) 
 IS 
   mailhost VARCHAR2(30):='adresse ip du serveur'; 
   mail_conn utl_smtp.connection;
   crlf VARCHAR2(30):=CHR(13)||CHR(10); 
   mesg VARCHAR2(1000); 
 BEGIN 
    mail_conn:=utl_smtp.open_connection(mailhost,100); 
    mesg:='Date: '||TO_CHAR(SYSDATE, 'Mon yy hh24 dd: mi: ss')||crlf|| 
           'De: <'||'relevecptbcc@bcc-bank.com'||'> '||crlf|| 
           'Objet:'||sujet||crlf|| 
           'To: '||destinataire||crlf||''||message;
    utl_smtp.helo (mail_conn, mailhost); 
    utl_smtp.mail (mail_conn, 'relevecptbcc@bcc-bank.com'); 
    utl_smtp.rcpt (mail_conn, destinataire); 
    utl_smtp.data (mail_conn, mesg); 
    utl_smtp.quit (mail_conn); 
 END;
 /

20/05/2014, 17h15
skuatamad

Citation:

Envoyé par taradoum

Quand je compile, le message d'erreur est: "Avertissement: procédure créée avec des erreurs de compilation".

Faîtes un show err pour voir l'erreur.
Et regardez la doc UTL_SMTP
21/05/2014, 09h11
mnitu

Cherchez utl_stmp sur AskTom ou "Email From Oracle PL/SQL (UTL_SMTP)" pour divers exemples d'utilisation.

Bonsoir,

J'ai fait une procédure à l'époque en repart d'un exemple que je ne retrouve plus , ma base de travail était une 9i de mémoire mais laquelle je sais plus , peut être que cela peut vous aider , je l'ai pas tester depuis que je suis en 11G, mais cela fonctionnait bien

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
PROCEDURE html_email(p_to IN VARCHAR2,
		     p_from IN VARCHAR2,
                     p_subject IN VARCHAR2,
                     p_text IN VARCHAR2 DEFAULT NULL,
                     p_html IN VARCHAR2 DEFAULT NULL,
                     p_smtp_hostname IN VARCHAR2,
                     p_smtp_portnum IN VARCHAR2) 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) DEFAULT NULL;
                     l_dest VARCHAR2(32767);
                     l_dest_tmp VARCHAR2(32767);
 
BEGIN
 
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, ',') != 0 LOOP
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);
END LOOP;
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);
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);
END LOOP;
utl_smtp.close_data(l_connection);
utl_smtp.quit(l_connection);
dbms_lob.freetemporary(l_body_html);
EXCEPTION
WHEN OTHERS THEN
ROLLBACK;
END;

10/06/2014, 09h16
taradoum

Merci

Citation:

Envoyé par mnitu

Cherchez utl_stmp sur AskTom ou "Email From Oracle PL/SQL (UTL_SMTP)" pour divers exemples d'utilisation.

Merci pour votre aide précieux. La procédure a marché après avoir apporter quelques correction. Maintenant, en exécutant cette dernière, oracle me renvoit l'erreur 421 smtp non disponible
Merci d'avvance

sùtp non disponible

La procédure pour l'envoie de mail est créée avec succès. Son exécution me revoit des erreurs(code si dessous)
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 26 27 CREATE OR REPLACE PROCEDURE Envoie_mail (destinataire IN VARCHAR2, emissaire IN VARCHAR2, sujet IN VARCHAR2, corps_messag IN VARCHAR2, serveur_smtp IN VARCHAR2, port_smtp IN NUMBER DEFAULT 100) AS l_mail_conn UTL_SMTP.connection; BEGIN l_mail_conn := UTL_SMTP.open_connection(serveur_smtp, port_smtp); UTL_SMTP.helo(l_mail_conn, serveur_smtp); UTL_SMTP.mail(l_mail_conn, emissaire); UTL_SMTP.rcpt(l_mail_conn, destinataire); UTL_SMTP.open_data(l_mail_conn); UTL_SMTP.write_data(l_mail_conn, 'Date: '||TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS') || UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'To: '||destinataire||UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'From: '||emissaire||UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Subject: '||sujet||UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, 'Reply-To: '||emissaire||UTL_TCP.crlf||UTL_TCP.crlf); UTL_SMTP.write_data(l_mail_conn, corps_messag||UTL_TCP.crlf||UTL_TCP.crlf); UTL_SMTP.close_data(l_mail_conn); UTL_SMTP.quit(l_mail_conn); END;
J'appel la fonction en passant l'adresse du serveur smtp logé sur notre serveur exchange c'est à dire : EXECUTE Envoie_mail('taradoum@gmail.com', 'relevecptbcc@bcc-bank.com', 'Banque commerciale du Chari', 'This is a test message.', 'adress ip', 100);

Le code erreur est la suivante:

ERREUR Ó la ligne 1 :
ORA-29279: erreur permanente SMTP : 550 5.7.1 Unable to relay for
taradoum@gmail.com
ORA-06512: Ó "SYS.UTL_SMTP", ligne 21
ORA-06512: Ó "SYS.UTL_SMTP", ligne 99
ORA-06512: Ó "SYS.UTL_SMTP", ligne 241
ORA-06512: Ó "SYS.ENVOIE_MAIL", ligne 13
ORA-06512: Ó ligne 1