PC SOFT

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

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WEBDEV 2024 → Envoi fichier PDF
Envoi fichier PDF
Iniciado por JP, out., 05 2004 1:44 PM - 2 respostas
#1
Publicado em outubro, 05 2004 - 1:44 PM
Bonjour,

Avez-vous un code pour envoyer (fonctions Webdev) un email ayant un fichier
PDF attaché ?

Merci

Jp
#2
Publicado em outubro, 05 2004 - 3:57 PM
JP a exposé le 05/10/2004 :
Bonjour,

Avez-vous un code pour envoyer (fonctions Webdev) un email ayant un fichier
PDF attaché ?

Merci

Jp

urldoc est une chaîne
urldoc="http://"+ComplèteRep(RepPDF)+FicPdf+".pdf"

txtmsg="Vous avez soumis une édition depuis notre serveur le " +...
DateVersChaine(HF_HISTOEDI.HEDI_DATEDEB)+" à
"+Gauche(HeureVersChaine(HF_HISTOEDI.HEDI_HHDEB),5)+"."+RC+RC+...
"Vous pouvez la consulter dès maintenant en cliquant sur ce
lien:"+RC+...
urldoc+RC+RC+...
"Votre édition va être gardée 10 jours soit jusqu'au
"+HF_HISTOEDI.HEDI_DATEEXPIRE+". Passée cette date, vous devrez
resoumettre une demande d'édition à notre serveur."+RC+RC+...
"Si vous rencontrez des problèmes pour accèder à votre état, merci de
nous contacter."+RC+RC+...
"Nous vous souhaitons une bonne lecture de votre édition"

EmailOuvreSessionSMTP("EnvoiEmail", "smtp.tondomaine.net")

//Email.Expéditeur = "NomExpéditeur <adresse@expediteur.com>"
Email.Expéditeur = "robot@tondomaine.net<serveur tondomaine.net>"
Email.Destinataire[1] = EDIENCOURS.EDI_EMAIL
Email.NbDestinataire = 1
Email.Attache[1]=ComplèteRep(RepPDF)+FicPdf+".pdf"
Email.NbAttache=1
Email.Sujet = "[FIDSTIM] Votre édition soumise le
"+DateVersChaine(HF_HISTOEDI.HEDI_DATEDEB)+" à
"+Gauche(HeureVersChaine(HF_HISTOEDI.HEDI_HHDEB),5)+" est prête."
Email.Message = txtmsg
// Envoie le mail
EmailEnvoieMessage("EnvoiEmail")
EmailFermeSession("EnvoiEmail")

--
Eric
Webmaster des Wtablettes
www.wtablettes.net
#3
Publicado em outubro, 05 2004 - 4:48 PM
Une fois de plus, merci Eric !

JP
→ Voltar para WEBDEV 2024