Discussion :

[khlzk]

bonjour
svp

au départ je crée le pdf dans fRépertoireTemp().
l'envoi par mail se passe bien mais le destinataire reçoit un pdf vide page noire
avez vous une idée ?
merci

Code :

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

1
2
3
4
5
6
7
8
// Attachement d'une pièce jointe à un email
monAttache est un EmailAttache
monAttache..Nom = fExtraitChemin(FchX, fFichier + fExtension)
monAttache..Contenu = fChargeTexte(monAttache..Nom) 
monAttache..ContentType = "application/MonAppl"
monAttache..ContentDescription = "Un document MonAppl"
// Ajout de la pièce jointe
Ajoute(MonMessage..Attache, monAttache)

[jurassic pork]

hello,
dans l'exemple PCSOFT de EmailAttache on a :

Code :

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

1
2
3
4
5
6
7
// Sélection du fichier à joindre
sFichier = fSélecteur("", "", "Sélectionnez le document PDF à joindre.....", ...
		"Documents PDF (*.PDF)" + TAB + "*.pdf", "*.pdf")
 
// Construction de la variable EmailAttache
monAttache..Nom = fExtraitChemin(sFichier, fFichier + fExtension)
monAttache..Contenu = fChargeTexte(sFichier)

dans le fChargeTexte il faut mettre le nom du fichier avec son chemin complet donc pour toi FchX :

Code :

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

monAttache..Contenu = fChargeTexte(FchX)

Ami calmant, J.P

[khlzk]

merci
ca a marché