PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WEBDEV (versões anteriores) → Probleme d'envoi de mail avec piece jointe pdf.
Probleme d'envoi de mail avec piece jointe pdf.
Iniciado por karine magnac, mai., 11 2006 4:31 PM - Sem resposta
#1
Publicado em maio, 11 2006 - 4:31 PM
Bonjour,

J'ai un probleme sur le logiciel que je viens de créer : Ce logiciel marche tres bien en mode test mais dès que je l'installe sur le serveur il me met un message d'erreur au moment de l'envoie d'un mail avec comme piece jointe un état "imprimé" en pdf (Iimprimetat).
Le message qui apparait est le suivant :

"Le site a généré le message d'erreur suivant :

--------------------------------------------------------------------------------

Erreur d'impression

Impossible d'initialiser l'imprimante.
Vérifier qu'il y a bien une imprimante par défaut installée sur votre machine ou que la connexion est bien établie.

--------------------------------------------------------------------------------

(0025, ERR_MSGBOX)

Le type de ressource spécifié ne peut être trouvé dans le fichier image. (1813)"


Suite au message d'erreur je me suis dit qu'il fallait installer une imprimante sur le serveur (bien que dans mon cas cela ne soit pas vraiment necessaire) et j'ai donc installée une imprimante reseau : resultat cela ne fonctionne toujours pas et le même message d'erreur apparait.
Je ne comprends pas ce qui se passe .... je vous laisse le code d'envoie du mail en esperant que quelqu'un puisse m'aider :

sNomFichier est une chaîne = ComplèteRep(fRepEnCours()) ...
+ "FichiersAttaches\"+"Feuillet_HSCT_"+varnum+".PDF"
iAperçu(iPDFGénérique, sNomFichier)
iImprimeEtat(Feuillet_HSCT,varnum)

// Envoi d'un e-mail par le protocole SMTP
SI EmailOuvreSessionSMTP(COMPTE.loginemail,COMPTE.pwdemail,COMPTE.AdrSrvSmtp) = Vrai ALORS
// Initialisation de la structure e-mail
Email.Destinataire = COMPTE.AdrMail
Email.Expéditeur = varemail
FEUILLET.EmailExpediteur = varemail
FEUILLET.NomExpediteur = varnom
Email.Message = "Transmission du Feuillet HSCT numéro "+varnum
Email.sujet = "Feuillet HSCT numéro "+varnum
FEUILLET.Sujet = "Feuillet HSCT numéro "+varnum
Email.nbDestinataire = 1
Email.NbAttache = 1
Email.AccuséRéception = Vrai
Email.ConfirmationLecture = Faux
Email.Attache[1] = sNomFichier
FEUILLET.Attache = sNomFichier+";"
Email.AdresseExpéditeur = varemail

// Envoie le mail
SI PAS EmailEnvoieMessage(COMPTE.loginemail) ALORS
Erreur("EmailEnvoieMessage a échoué '" + ErreurInfo(errMessage) + "'")
FichierAffiche(sNomFichier, "application/pdf")
SINON
Info("Envoie du feuillet effectué !"+RC+"Le numéro de votre feuillet est le numéro :"+varnum)
FIN

res = HModifie(FEUILLET)
SI res = Faux ALORS
Erreur("Impossible de valider le feuillet")
SINON
Info("Visa du feuillet effectué...")
FIN
SINON
Erreur("Impossible d'établir la connexion"+ RC +...
EmailMsgErreur(Email.Erreur))
FIN
EmailFermeSession(COMPTE.loginemail)



Merci pour votre aide
karine
→ Voltar para WEBDEV (versões anteriores)