WDForge.org - Forums

Fonction Email.Attache plante

Sujet: Fonction Email.Attache plante
par clea sur 29/3/2007 10:13:07

Bonjour,

Dans mon application en WD11, j'utilise les fonctions email du W-langage, afin d'envoyer directement dans Outlook, un email préprogrammé avec une piece jointe au format PDF que je génére moi-meme à partir d'un état.

Dans 90%, des cas mon code fonctionne parfaitement.
Malheureuesement derriere un de mes boutons, ce code ne fonctionne pas et j'ai le message d'erreur suivant, au moment de l'attachement du fichier avec Email.Attache

"execution en 16bits ou noms des fichiers attachés inconnus"

Voici mon code, peut-etre que quelque chose m'échape:

toto est un entier = EmailOuvreSession("")
SI toto=0 ALORS
	Erreur(EmailMsgErreur(Email.Erreur))
SINON
	RepPDF est une chaîne = fRepExe()
	Email.Destinataire=AdrMailClient 
	Email.Sujet="Commande eBizcuss N° "+NCDE1
	iDestination(iPDF,RepPDF+"\Commande "+NCDE1+".PDF") 
	iImprimeEtat(Etat_Imp_CdesAchat,NCDE1) 
	Email.Attache=RepPDF+"\Commande "+NCDE1+".PDF"// Récupérer le chemin du fichier
	Email.NbDestinataire=1		
	Email.NbAttache=1
	SI PAS EmailEnvoieMessage(toto,Vrai,"IPM") ALORS
		Erreur(ErreurInfo())
	FIN
FIN
EmailFermeSession(toto)
SI PAS fSupprime(RepPDF+"\Commande "+NCDE1+".PDF") ALORS
	Erreur(ErreurInfo())
FIN

Merci d'avance pour votre aide