[Oracle9i][PL/SQL] Resultat par Mail

[kilian]

Bonjour,

J'essaye de mettre en place un script qui m'envoie les resultats d'une requete par mail :

J'execute ce script :

Code :

1
2
3
4
5
6
 
/
SELECT nom FROM utilisateur
/
exit
/

de cette facon

Code :

sqlplus user/pwd@ip @"C:\requete.sql"

De plus j'ai un autre script qui me permet l'envoie des mails le voici :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
DECLARE
   v_connection UTL_SMTP.CONNECTION;
  BEGIN
  v_connection := UTL_SMTP.OPEN_CONNECTION('Serveur',25);
  UTL_SMTP.HELO(v_connection,'Serveur');
  UTL_SMTP.MAIL(v_connection,'Monadresse@domaine.fr');
  UTL_SMTP.RCPT(v_connection,'Sonadresse@domaine.fr');
  UTL_SMTP.DATA(v_connection,'Corps du message');
  UTL_SMTP.QUIT(v_connection);
  END;
/
exit
/

de cette facon

Code :

sqlplus user/pwd@ip @"C:\mail.sql"

Cependant ce que je souhaiterais faire, c'est executé la requete et envoyé le resultat par mail.
Mais comment faire ? Est ce que vous avez déjà mis en place un tel script ?
Merci pour votre aide
Cordialement

[kilian]

Bonjour
J'ai trouvé ici :
http://www.developpez.net/forums/sho...d.php?t=153350

Un solution pour envoyer des pieces jointes mais je ne sais de nouveau pas comment intégrer ce code par exemple

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'Mime-Version: 1.0' || crlf ||
          'Date: ' || TO_CHAR( SYSDATE, 'dd Mon yy hh24:mi:ss' ) || crlf ||
          'From: ' || L_SENDER_NAME || crlf ||
          'Subject: ' || v_sujet || crlf ||
          'To: ' || L_MSG_TO || crlf ||
          'Content-Type: multipart/mixed; boundary="-----SECBOUND"'|| crlf ||
          'This is a multi-part message in MIME format.'|| crlf ||
          '-------SECBOUND'||crlf ||      
          'Content-Type: text/plain;charset=ISO-8859-1;'|| crlf ||  
          'Content-Transfer-Encoding: 7bit'|| crlf|| crlf || 
           entete || crlf || crlf ||
          '-------SECBOUND'|| crlf ||
          'Content-Type: application/octet-stream;'|| crlf ||
          ' name="Message.html"'||crlf ||
          'Content-Transfer_Encoding: 7bit'|| crlf ||
          'Content-Disposition: attachment;'||crlf ||
          ' filename="Message.html"'|| crlf || crlf||
           MESSAGE || crlf ||
          '-------SECBOUND--';

dans le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
DECLARE
   v_connection UTL_SMTP.CONNECTION;
  BEGIN
  v_connection := UTL_SMTP.OPEN_CONNECTION('Serveur',25);
  UTL_SMTP.HELO(v_connection,'Serveur');
  UTL_SMTP.MAIL(v_connection,'Monadresse@domaine.fr');
  UTL_SMTP.RCPT(v_connection,'Sonadresse@domaine.fr');
  UTL_SMTP.DATA(v_connection,'Corps du message');
  UTL_SMTP.QUIT(v_connection);
  END;
/
exit
/

J'ai essayé différente methode sans succès. Avez vous une idée à ce niveau
Merci beaucoup
Cordialement
Kilian