Discussion :

[fontag]

Bonjour à tous,

dans mon application je créer des fichiers PDF que je souhaite enregistrés dans un répertoire que je créer en simultané.
Le problème est que lorsque je constitue un mail avec ce fichier PDF une erreur survient en me disant que la pièce jointe n'est pas trouvée

Voila mon code:

Code :

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

1
2
3
4
5
6
 
NomFichier est une chaîne = ComplèteRep("Marché n° " + LIGNE_MARCHE.IDMARCHE + "[" + MARCHE.référence_chantier + "]") + "Marché n°" + LIGNE_MARCHE.IDMARCHE + "[" + LIGNE_MARCHE.IDARTISAN + "]" + ".pdf"
		iDestination(iPDF,NomFichier)
		iImprimeEtat(ETAT_CC,LIGNE_MARCHE.IDMARCHE,LIGNE_MARCHE.IDARTISAN)
Email.NbDestinataire = 1
Email.Attache = NomFichier

[EDM-TAHITI]

Hello,
Déjà, commence par supprimer tous les caractères non conformes à la déclaration des répertoires et noms de fichiers, et miracle, cela marchera.
par exemple les '/' ou les '°' ou les '\' provoquent des erreurs de répertoires alors que l'erreur n'est pas le répertoire mais le chemin donnés en construction de chaine...

[fontag]

J'ai supprimé tous les caractères qui seraient susceptibles de générer une erreur mais toujours pas de résultat:

Code :

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

1
2
3
4
5
	fRepCrée(LIGNE_MARCHE.IDMARCHE + MARCHE.référence_chantier)
		//Impression au format PDF
		NomFichier est une chaîne = ComplèteRep(LIGNE_MARCHE.IDMARCHE + MARCHE.référence_chantier) + "Marche" + LIGNE_MARCHE.IDMARCHE + LIGNE_MARCHE.IDARTISAN + ".pdf"
		iDestination(iPDF,NomFichier)
		iImprimeEtat(ETAT_CC,LIGNE_MARCHE.IDMARCHE,LIGNE_MARCHE.IDARTISAN)

[mail.spam]

Bonjour,

Si tu regarde, avec l'explorateur windows, dans le répertoire que tu as créé, as tu le fichier PDF?

Si tu ne l'as pas fait un trace de NomFichier afin de voir si la variable est correcte.

Pense aussi à toujours controler tes fonctions :

Code :

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

1
2
3
4
5
SI PAS fRepCrée(LIGNE_MARCHE.IDMARCHE + MARCHE.référence_chantier) ALORS
   Erreur(Erreurinfo())
SINON
// ton traitement
FIN

Pour info les caractères ° [ et ] sont valide pour la création de répertoire ( en tout cas sous Xp). Si tu veux savoir si le nom de répertoire est correct essaie de le créer avec l'explorateur Windows.

[fontag]

Oui j'ai bien mes fichiers qui sont créés.
Lorsque je clique sur mon bouton pour envoyer le mail, une erreur survient en me disant que le fichier est introuvable.

Code :

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

1
2
3
4
5
6
7
	SI PAS fRepCrée(LIGNE_MARCHE.IDMARCHE + MARCHE.référence_chantier) ALORS
			Erreur(ErreurInfo())
		SINON
			NomFichier est une chaîne = ComplèteRep(LIGNE_MARCHE.IDMARCHE + MARCHE.référence_chantier) +LIGNE_MARCHE.IDMARCHE + LIGNE_MARCHE.IDARTISAN + ".pdf"
			iDestination(iPDF,NomFichier)
			iImprimeEtat(ETAT_CC,LIGNE_MARCHE.IDMARCHE,LIGNE_MARCHE.IDARTISAN)
		FIN

[Nicolas_Jeanneau]

Bonjour,

pourquoi ne pas utiliser la fonction EmailChargeFichierAttaché qui est prévue pour cela ?
Email.attache est juste le rang du fichier attaché dans la table des fichiers attachés ...

Voir la doc pour plus de détail

à bientôt,

Nicolas

[mail.spam]

Bonjour,

Nicolas a raison.
Ta syntaxe pour ajouter ta pièce jointe est fausse.
Il faut mettre

Code :

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

1
2
Email.NbAttache = 1
Email.Attache[1] = NomFichier