PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 2025 → envoi email avec pdf possedant un mot de passe.
envoi email avec pdf possedant un mot de passe.
Iniciado por agidrol, 02,dic. 2019 19:40 - 4 respuestas
Miembro registrado
204 mensajes
Publicado el 02,diciembre 2019 - 19:40
Bonjour à tous

j envoi des fichiers PDF par email et aucun soucis.

ce matin, je voulais sécuriser cet envoi, et j'ai décidé d'ajouter un mot de passe au PDF

donc j'ai utilisé la fonction PDFMotDePasse()

il me créé bien le fichier PDF crypté, par contre, le mail semble partir, mais je ne le reçois jamais, et il est pas dans mes spam.

Une idée ?

Merci

Antoine
Miembro registrado
1.330 mensajes
Publicado el 03,diciembre 2019 - 08:39
Salut Agidrol,

Quel est la partie de ton code pour ajouter ta pièce jointe au mail ?
Sinon ça va être compliqué de t'aider :(

Cordialement
Daryl

--
http://www.concept4u2.com
Miembro registrado
204 mensajes
Publicado el 03,diciembre 2019 - 19:05
Bonjour

le code fonctionne, puisque si j'attache à l'email le pdf qui ne contient pas le mot de passe, l'email est envoyé et bien reçu.
Si j'attache à l'email le pdf qui est protégé par mot de passe, l'email est envoyé car je n'ai pas d'erreur en retour, et pourtant, je ne le reçois pas
sur mon email gmail

ce serai pas un soucis de gmail qui bloque ?


ci joint le code merci


.......
Ajoute(objEmail.Destinataire,SALAPLUS.SAP_Alpha[13])
objEmail.Sujet="Expédition document pdf: "+Date1
objEmail.Message="Bonjour."+RC+RC+"Vous trouverez ci joint votre PDF."+RC+RC+"cordialement"+RC+RC+"La Direction"


// Construction de la variable emailAttache
monAttache..Nom = SALARIE.NomSalarié+".pdf"
monAttache..Contenu = fChargeBuffer( ComplèteRep(fRepExe())+"ENVOI_EMAIL\"+SALARIE.NomSalarié+".pdf")
monAttache..ContentType = "application/pdf"
monAttache..ContentDescription = "Un document PDF"
// Ajout de la pièce jointe
Ajoute(objEmail..Attache, monAttache)


EmailEnvoieMessage(objSMTPSession,objEmail)
SI ErreurDétectée ALORS
Erreur("Impossible d'expédier un mail à :"+SALAPLUS.SAP_Alpha[13],ErreurInfo())
SINON
ToastAffiche("Email expédié à : "+SALAPLUS.SAP_Alpha[13],toastCourt,cvMilieu,chCentre,iBleuClair)
FIN
Miembro registrado
1.330 mensajes
Publicado el 04,diciembre 2019 - 09:56
Salut Agidrol,

As-tu déjà essayé avec une autre méthode qu'en utilisant une variable de type emailAttache ?

Si tu remplaces par exemple

// Construction de la variable emailAttache
monAttache..Nom = SALARIE.NomSalarié+".pdf"
monAttache..Contenu = fChargeBuffer( ComplèteRep(fRepExe())+"ENVOI_EMAIL\"+SALARIE.NomSalarié+".pdf")
monAttache..ContentType = "application/pdf"
monAttache..ContentDescription = "Un document PDF"
// Ajout de la pièce jointe
Ajoute(objEmail..Attache, monAttache)


par

// Construction de la variable emailAttache
objEmail..Attache[1]..Nom = SALARIE.NomSalarié+".pdf"
objEmail..Attache[1]..Contenu = fChargeBuffer( ComplèteRep(fRepExe())+"ENVOI_EMAIL\"+SALARIE.NomSalarié+".pdf")
objEmail..Attache[1]..ContentType = "application/pdf"
objEmail..Attache[1]..ContentDescription = "Un document PDF"


ou en utilisant la fonction EmailChargeFichierAttaché()

EmailChargeFichierAttaché(objEmail, ComplèteRep(fRepExe())+"ENVOI_EMAIL\"+SALARIE.NomSalarié+".pdf")


Cordialement
Daryl

--
http://www.concept4u2.com
Miembro registrado
204 mensajes
Publicado el 04,diciembre 2019 - 18:18
Merci Daryl

je regarde cela à mon retour de congés et je vous ferais un retour fin janvier