Discussion :

[Smiya]

Bonjour,

J'utilise la version 6i d'Oracle forms Builder avec une base de données 10g. Je souhaite à travers un formulaire, envoyer un mail avec possibilité de joindre une pièce. Seulement, avec la procédure que j'utilise, le fichier(PDF) ne se rattache pas, mais en plus le mail est envoyé avec le contenu du message en pièce jointe au format txt. Est ce que quelqu'un peut m'aider à résoudre mon problème.

Merci beaucoup!procedure envoi mail avec piece jointe.sql

[McM]

1/ Le contenu du mail est en fichier texte : Normal, tu indiques un name et un filename

Code :

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

1
2
3
'Content-Type: text/plain; name="message.txt"; charset=US-ASCII' || CRLF ||
          'Content-Disposition: inline; filename="message.txt"' || CRLF ||
          'Content-Transfer-Encoding: 7bit' || CRLF ||

Exemple de code qui fonctionne chez moi (j'ai du code supplémentaire pour ce @!# d'exchange qui plantait):

Code :

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

1
2
3
UTL_SMTP.write_raw_data(v_mail_conn,  UTL_RAW.cast_to_raw(v_mime ||'Content-type: text/plain'|| crlf
    										|| crlf -- Rajouté pour Exchange
    										|| p_message || crlf));

2/ Attachement de fichiers
Tu es en mode lecture Ascii donc il ne faut pas de binaire dans les fichiers.
UTL_FILE.FOPEN(V_DIRECTORY_NAME, V_FILE_NAME, 'r' );

Tu es en Content-Transfer-Encoding: 7bit donc limité aux caractères ascii 1-127 (https://fr.wikipedia.org/wiki/Multip...ail_Extensions)
C'est surement ça qui plante.
Je te conseille de passer par du encodebase64
exemple

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
-- Lecture du fichier
	LOOP
 
            BEGIN
              UTL_FILE.GET_RAW(v_fic, v_raw, 2016);
            EXCEPTION
            WHEN NO_DATA_FOUND THEN EXIT; -- Fin du fichier
            WHEN OTHERS		-- En cas d'erreur on ferme le fichier
            THEN
              v_err := 'ERR Lecture fichier '|| p_directory ||' / '|| p_lst_fic(i);
              UTL_FILE.FCLOSE(v_fic);
              RAISE Fin_Erreur;
            END;
 
        		UTL_SMTP.write_data(v_mail_conn, UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(v_raw)) || crlf);
 
         END LOOP;
 
        -- On ferme le fichier
      	UTL_FILE.FCLOSE(v_fic);