envoi email via PL/SQL

Bonjour à tous.
Je voudrais envoyer un email via PL/SQL pour cela j'ai créé la procedure suivante:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
create or replace
    PROCEDURE send_mail (p_sender       IN VARCHAR2,
                         p_recipient IN VARCHAR2,
                         p_message   IN VARCHAR2)
    as
       l_mailhost VARCHAR2(255) := 'exchange.ma';
       l_mail_conn utl_smtp.connection;
    BEGIN
       l_mail_conn := utl_smtp.open_connection(l_mailhost, 25);
      utl_smtp.helo(l_mail_conn, l_mailhost);
      utl_smtp.mail(l_mail_conn, p_sender);
      utl_smtp.rcpt(l_mail_conn, p_recipient);
      utl_smtp.open_data(l_mail_conn );
      utl_smtp.write_data(l_mail_conn, p_message);
      utl_smtp.close_data(l_mail_conn );
      utl_smtp.quit(l_mail_conn);
   end;
   /
Procedure created.

puis j'execute la procedure:

Code:

1
2
3
4
5
 
begin
       send_mail( 'elharet@exchange.ma','peter@exchange.ma','Hello PETER' );
end;
/

Mais il me génère l'erreur suivante:

Code:

1
2
3
4
5
6
7
ERREUR Ó la ligne 1 :
ORA-29278: erreur passagÞre SMTP : 421 Service not available
ORA-06512: Ó "SYS.UTL_SMTP", ligne 17
ORA-06512: Ó "SYS.UTL_SMTP", ligne 96
ORA-06512: Ó "SYS.UTL_SMTP", ligne 138
ORA-06512: Ó "SYS.SEND_MAIL", ligne 8
ORA-06512: Ó ligne 2

J'ai trouvé la solution; il suffisait de specifier l'adresse IP du serveur DNS dans ma connexion au réseau.

bonjour
pour ce fait, le serveur SMTP, il faut qu'il existe.
vous pouvez tester votre procedure en installant le serveur; comment faire? C'est facile.
ajoutez le composant de windows SMTP;a la fin vous trouviez ce serveur dans IIS, et vous faites la config.
bonne chance