Discussion :

[sahbichriki]

Bonjour

Informations diverses :
Version : Oracle Database 10g Enterprise Edition Release 10.2.0.1.0 - Production
Os Poste client: Winxp
Os Poste serveur: Win2003 server
Schema : system


Le code ci-dessous fonctionne parfaitement sauf que lorsque je clique sur le fichier attaché (coté récepteur) j'obtiens une boite de dialogue pour selectionner un fichier excel,donc pas de fichier "excel.csv" a ouvrir ou à enregistrer bienque j'ai en attachement une trombone "excel.csv".

comment modifier le code pour :

1- Avoir le fichier excel.csv contenant des données (issu de c:\dir)
2- spécifier plusieurs fichiers attachés

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
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
 
DECLARE
   v_From       VARCHAR2(80) := 'sender@yahoo.fr';
   v_Recipient  VARCHAR2(80) := 'recipeint@hotmail.com';
   v_Subject    VARCHAR2(80) := 'test subject';
   v_Mail_Host  VARCHAR2(30) := 'smtp.societe.fr';
   v_Mail_Conn  utl_smtp.Connection;
   crlf         VARCHAR2(2)  := chr(13)||chr(10);
BEGIN
  v_Mail_Conn := utl_smtp.Open_Connection(v_Mail_Host, 25);
 
  utl_smtp.Helo(v_Mail_Conn, v_Mail_Host);
 
  utl_smtp.Mail(v_Mail_Conn, v_From);
 
  utl_smtp.Rcpt(v_Mail_Conn, v_Recipient);
 
  utl_smtp.Data(v_Mail_Conn,
    'Date: '   || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
    'From: '   || v_From || crlf ||
    'Subject: '|| v_Subject || crlf ||
    'To: '     || v_Recipient || crlf ||
 
    'MIME-Version: 1.0'|| crlf ||	-- Use MIME mail standard
    'Content-Type: multipart/mixed;'|| crlf ||
    ' boundary="-----SECBOUND"'|| crlf ||
    crlf ||
 
    '-------SECBOUND'|| crlf ||
    'Content-Type: text/plain;'|| crlf ||
    'Content-Transfer_Encoding: 7bit'|| crlf ||
    crlf ||
    'some message text'|| crlf ||	-- Message body
    'more message text'|| crlf ||
    crlf ||
 
    '-------SECBOUND'|| crlf ||
    'Content-Type: text/plain;'|| crlf ||
    ' name="excel.csv"'|| crlf ||
    'Content-Transfer_Encoding: 8bit'|| crlf ||
    'Content-Disposition: attachment;'|| crlf ||
    ' filename="excel.csv"'|| crlf ||
    crlf ||
    'CSV,file,attachement'|| crlf ||	-- Content of attachment
    crlf ||
 
    '-------SECBOUND--'			-- End MIME mail
  );
 
  utl_smtp.Quit(v_mail_conn);
EXCEPTION
  WHEN utl_smtp.Transient_Error OR utl_smtp.Permanent_Error then
    raise_application_error(-20000, 'Unable to send mail: '||sqlerrm);
END;
/

J'ai crée un dircetory :

Code :

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

create or replace directory dir as 'c:/dir';

J'ai crée fichier excel.csv dans c:\dir

Ou dois-je mettre le chemin "c:\dir\excel.xls" dans le code pour prendre en compte mon fichier excel.csv dans l'attachement?

J'ai fait des essais, mais ca ne marche pas

[argoet]

Regarde ce post : envoi-mail-fichier-joint

cela pourra peut etre t'aider
Le fichier doit etre accessible sur ton reseau via une adresse http

[sahbichriki]

Merci argoet pour ta réponse,

Au fait pour le moment je ne peut faire les tests (via le serveur smtp de mon entreprise) qu'a partir du boulot,
je suis un peut pris par autre chose, j'y reviendrai dés que j'aurais un peut de temps.

[Invité]

Merci argoet pour ta réponse,

Au fait pour le moment je ne peut faire les tests (via le serveur smtp de mon entreprise) qu'a partir du boulot,
je suis un peut pris par autre chose, j'y reviendrai dés que j'aurais un peut de temps.

un peu de
je peux, tu peux...

[sahbichriki]

Pour info :

J'étais momentanément sur autre chose, entre temps le serveur 2003 n'est pas accessible actuellement, donc je ne peut faire mes tests pour le moment, cela ne dépends pas de moi.
(c'est un serveur pour un groupe d'utilisateurs)

Par contre s'il y a un serveur smtp que je peut utiliser à partir de mon PC perso à partir de chez moi (hors réseau d'entreprise) je suis partant.