Fonction Email.Attache plante
Posté par clea le 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:
Merci d'avance pour votre aide
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())
FINMerci d'avance pour votre aide
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5025&post_id=20734