Discussion :

[phoenix916916]

bonjour

je cherche a envoyer le contenu d'un repertoire par mail

actuellement code code


// Ouverture d'une session SMTP
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "serveur mail"
MaSession..MotDePasse="mot de passe"
MaSession..Port=25
MaSession..Nom="user"

SI EmailOuvreSession(MaSession) ALORS

Info("Connection établir")
SINON

Erreur("Impossible d'établir la connexion"+RC+ErreurInfo(errMessage))
FIN
///////

monAttache est un EmailAttache
MonMessage est un Email
sFichier est une chaîne= "c:\photos\serveur\"+datesystème+"\"+nom+"\"+"img10.jpg"

//affichage des fichiers a envoyer
Info(sFichier)

MonMessage..Expediteur = "email expediteur"
Ajoute(MonMessage..Destinataire,"email destinatiare")
MonMessage..Message = " gestion des photos du dossier : "+nom


monAttache..Nom=fExtraitChemin(sFichier,fFichier+fExtension)
monAttache..Contenu=fChargeTexte(sFichier)
//monAttache..ContentType="application/pdf"
monAttache..ContentDescription="Un document image"

// Ajout de la pièce jointe
Ajoute(MonMessage..Attache,monAttache)
// Envoi du message
SI EmailEnvoieMessage(MaSession,MonMessage) = Faux ALORS
Erreur("L'envoie de l'email a échoué ! verifiez l'adresse mail " )
SINON
Info("L'envoie de l'email a réussi")
FIN
EmailFermeSession(MaSession)

je voudrais remplacer img10.jpg par le contenu du repertoire

merci de votre aide

[phoenix916916]

c bon j'ai trouve