Discussion :

[Quartus]

J'ai crée un trigger qui appelle une procédure oracle qui envoie un mail. Cela fonctionne très bien, cependant, je n'ai pas trouvé sur le web comment éditer le sujet du mail. Ci dessous ma procédure.

Merci pour votre aide !

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
 
CREATE OR REPLACE PROCEDURE sendmail (sender IN VARCHAR2,
recipient IN VARCHAR2,
message IN VARCHAR2)
IS
mailhost VARCHAR2(50) := '***';
mail_conn utl_smtp.connection;
 
BEGIN
mail_conn := utl_smtp.open_connection(mailhost, 25);
utl_smtp.helo(mail_conn, mailhost);
utl_smtp.mail(mail_conn, sender);
utl_smtp.rcpt(mail_conn, recipient);
utl_smtp.open_data(mail_conn);
utl_smtp.write_data(mail_conn, TO_CHAR(SYSDATE, 'DD-MON-YYYY HH24:MI:SS'));
utl_smtp.write_data(mail_conn,' : ');
utl_smtp.write_data(mail_conn, message);
utl_smtp.close_data(mail_conn);
utl_smtp.quit(mail_conn);
END;

[miloux32]

Ca devrait je l'espere repondre a ta question ...

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
CREATE OR REPLACE PROCEDURE Send_Mail (
p_sender VARCHAR2,
p_recipient VARCHAR2,
p_subject VARCHAR2,
p_message VARCHAR2
)
IS
c UTL_SMTP.connection;
v_mailserver VARCHAR2(30);

PROCEDURE Send_Header (NAME IN VARCHAR2, HEADER IN VARCHAR2)
AS
BEGIN
UTL_SMTP.write_data (c, NAME || ‘: ‘ || HEADER || UTL_TCP.crlf);
END;
BEGIN
v_mailserver := ’smtp.mondomaine.com’;
c := UTL_SMTP.open_connection (v_mailserver);
UTL_SMTP.helo (c, v_mailserver);
UTL_SMTP.mail (c, p_sender);
UTL_SMTP.rcpt (c, p_recipient);
UTL_SMTP.open_data (c);
Send_Header (’From’, ‘<’ || p_sender || ‘>’);
Send_Header (’To’, ‘<’ || p_recipient || ‘>’);
Send_Header (’Subject’, p_subject);
UTL_SMTP.write_data (c, UTL_TCP.crlf || p_message);
UTL_SMTP.close_data (c);
UTL_SMTP.quit (c);
EXCEPTION
WHEN UTL_SMTP.transient_error OR UTL_SMTP.permanent_error
THEN
BEGIN
UTL_SMTP.quit (c);
EXCEPTION
WHEN UTL_SMTP.transient_error OR UTL_SMTP.permanent_error
THEN
NULL;

END;

RAISE_APPLICATION_ERROR (-20000, ‘Failed to send mail due to the following error: ‘ || SQLERRM);
END;
/

[philcero]

Plus simplement, il suffisait de dire : Va dans la documentation Oracle® Database PL/SQL Packages and Types Reference -> UTL_SMTP -> Using UTL_SMTP -> Examples.



Il y a un exemple complet et propre fourni par Oracle...

[Quartus]

Ca devrait je l'espere repondre a ta question ...

Merci énormément, c'est exactement cela que je cherchais !