PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV (précédentes versions) → Erreur : .. Centenu + FchargeBuffer
Erreur : .. Centenu + FchargeBuffer
Débuté par Bear, 14 avr. 2018 22:45 - 1 réponse
#1
Posté le 14 avril 2018 - 22:45
Bonsoir ,
Je travaille sur un petit sujet sauf que j'ai eu un blocage au niveau d'envoie d'une pièce jointe en utilisant un WebSevice SOAP.
Au niveau de mon code , voilà ce que j'ai fait :
SchaineRetour est une chaîne

sFichier est une chaîne = fSélecteur("", "", "Sélectionnez le document PDF à joindre...", ...
"Documents PDF (*.PDF)" + TAB + "*.*", "*.*")

bufXml =fChargeBuffer(sFichier)

SchaineRetour=BufferVersHexa(bufXml)

sMessage est une chaîne = "Test"
SI PAS Proc_EnvoieMail(sAdressDest,sAdressSource,SchaineRetour,"Sujet","Text test") ALORS
Erreur(ErreurInfo(errComplet))
FIN




et mon code au niveau WS :
bVerif est un booléen=Vrai
// Construction du message
MonMessage est un Email
MonMessage..Expediteur = AdressExp
Ajoute(MonMessage..Destinataire, AdressDest)

MonMessage..Sujet = "sSujet"//
MonMessage..Message = "txtMessage"

//Attacher un le doc
monAttache_recup est un Buffer = HexaVersBuffer(monFic)




MonMessage..Attache[1]..Contenu = fChargeBuffer(monAttache_recup)
MonMessage..Attache[1]..ContentType = "application/pdf"
MonMessage..Attache[1]..ContentDescription = "Un document PDF"
MonMessage..Attache[1]..Nom = "Recap. des Expédition"

// Ouverture une session SMTP
MaSession est un emailSessionSMTP
MaSession..AdresseServeur = "relaysmtp.dgf.fr"
SI PAS EmailOuvreSession(MaSession) ALORS
Erreur(ErreurInfo(errComplet))
bVerif=Faux
FIN

// Envoi du message
SI PAS EmailEnvoieMessage(MaSession, MonMessage) ALORS
bVerif=Faux
FIN



Avec l'erreur suivante :






Je ne sais si quelqu'un a déjà rencontré ce genre de problèmes.
Merci par avance.
#2
Membre enregistré
940 messages
Popularité : +66 (68 votes)
Posté le 16 avril 2018 - 09:07
bonjour,

vous faites un FChargeBuffer() sur un buffer. Vous pouvez directement affecter monAttache_recup dans le contenu de votre pièce jointe ;)
FChargeBuffer() retourne un buffer à partir d'un nom de fichier.

bVerif est un booléen=Vrai
// Construction du message
MonMessage est un Email
MonMessage..Expediteur = AdressExp
Ajoute(MonMessage..Destinataire, AdressDest)

MonMessage..Sujet = "sSujet"//
MonMessage..Message = "txtMessage"

//Attacher un le doc
monAttache_recup est un Buffer = HexaVersBuffer(monFic)


MonMessage..Attache[1]..Contenu = monAttache_recup
MonMessage..Attache[1]..ContentType = "application/pdf"
MonMessage..Attache[1]..ContentDescription = "Un document PDF"
MonMessage..Attache[1]..Nom = "Recap. des Expédition"

// Ouverture une session SMTP
MaSession est un emailSessionSMTP
MaSession..AdresseServeur = "relaysmtp.dgf.fr"
SI PAS EmailOuvreSession(MaSession) ALORS
Erreur(ErreurInfo(errComplet))
bVerif=Faux
FIN

// Envoi du message
SI PAS EmailEnvoieMessage(MaSession, MonMessage) ALORS
bVerif=Faux
FIN


bon dèv
→ Revenir à WINDEV (précédentes versions)