Discussion :

[Térence01]

Bonjour,

J'ai un petit problème. Je souhaiterai envoyer un mail avec plusieurs pièces jointes. Les adresses de ces pièces jointes sont prises par un sélecteur de fichiers et rangées une à une dans un champ Tableau.

Maintenant je voudrai envoyer toutes ces pièces jointes d'un seul coup en les récupérant dans le champ Tableau.

J'ai essayé avec ce code :

Code :

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

1
2
Email.NbAttache = 1
Email.Attache[1] = TABLE_Pièces_Jointes.COL_Pièces_Jointes

Malheureusement je n'ai aucun fichier qui a pars avec le mail.

J'avais au départ utilisé le superchamp de sélecteur de fichiers mais on ne peut mettre qu'une seule pièce jointe par mail je crois.

Si quelqu'un à une idée à me proposer,
Je vous remercie d'avance,

Térence01

[Kaal]

Bonjour,

Si voulez envoyer toutes les pièces jointes, il faut parcourir tout le tableau :

Code :

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

1
2
3
4
5
6
7
8
 
nLigne_Num est un entier
Email.NbAttache = TABLE_Pièces_Jointes..occurrence
 
POUR TOUTE LIGNE DE TABLE_Pièces_Jointes
     nLigne++
     Email.Attache[nLigne] = TABLE_Pièces_Jointes.COL_Pièces_Jointes
FIN

A condition que "COL_Pièces_Jointes" contienne le chemin complet des fichiers joints.

[Térence01]

Super, merci pour la réponse.

Je test ça dès que je peux et je vous tiens au courant. (Ma VMware ne fonctionne plus ^^)

Normalement COL_Pieces_Jointes contient bien sur chaque ligne les adresses complètes puisque je les choisis dans un sélecteur de fichier et je les ajoute à ma table avec la fonction TableAjoute()

[Térence01]

Salut,

Alors j'ai bien essayé le message s'envoie bien mais je n'ai aucune pièce jointe qui n'est liée à mon message quand je le reçois.

Pourtant j'ai bien le nom complet de mes fichiers spécifiés dans mon tableau.

Une idée du bug peut-être ?

[Kaal]

Bonjour,

Vous avez tracé le code ?
Vous avez vérifié, pour chaque pièce jointe, si le fichier était bien à l'endroit donné. Ou la taille des fichiers est peut-être trop grande ? (bon dans ce dernier cas, logiquement, l'email ne part pas et en plus il y a un message d'erreur).
Vous avez testé avec une seule pièce jointe ?

Après je ne vois rien d'autre !

[Térence01]

Tracé le code ? Utiliser la fonction Trace() ? Si oui, Comment faire ?

Les fichiers sont bien à la bonne place puisque je récupère les adresses avec un sélecteur :

Code :

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

1
2
3
4
5
sSel est une chaîne
sSel = fSélecteur("C:\", "Sélectionnez un fichier.....", "Tous fichiers (*.*)"+TAB+"*.*", "*", fselOuvre+fselExiste)
SI sSel<>"" ALORS
	TableAjoute(TABLE_Pièces_Jointes,sSel)
FIN

Après la taille pour le moment j'essaie d'envoyer des photos donc ça ne doit poser aucun problème.

J'ai testé avec une pièce jointe et plusieurs pièces jointes et rien ne marche. Le message part mais pas les pièces jointes.

[Kaal]

Vous pouvez utiliser Trace() ou faire du pas à pas.
Avant le emailEnvoiMessage(), essayez :

Code :

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

1
2
3
4
 
POUR i = 1 A Email.NbAttache
    trace(Email.Attache[i])
FIN

Par contre les photos sont en général très volumineuses, testez avec des fichiers .txt de quelques octets, mais je doute que ce soit ça.

[Térence01]

La fonction Trace() me sort bien ce qui est écrit dans le champ Table, l'adresse du fichier comme celle-ci par exemple :

C:\Documents and Settings\Administrateur\Bureau\test.txt

et si j'essaie d'envoyer juste un fichier texte ça ne fonctionne pas non plus

EDIT : Je suis sur Windev 19 si ça peut vous aider.

[Térence01]

J'ai réussi !!!!!!!!!!!!!!!!

J'ai déclaré pour mon envoi d'email ceci :

Code :

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

MonMessage est un email

Je me suis dit qu'il fallait donc alors que j'insère mes pièces jointes dedans, j'ai fait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
nLigne_Num est un entier

Email.NbAttache = TABLE_Pièces_Jointes.COL_Pièces_Jointes
	
		POUR TOUTE LIGNE DE TABLE_Pièces_Jointes
			nLigne_Num++
			Email.Attache[nLigne_Num] = TABLE_Pièces_Jointes.COL_Pièces_Jointes
		
EmailChargeFichierAttaché(MonMessage,Email.Attache[nLigne_Num])
	FIN

J'ai juste rajouter ce qui est en gras pour insérer mes fichiers dans mon message et hop c'est terminé !!!