PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → Envoie pièces jointe par email
Envoie pièces jointe par email
Débuté par Florian, 14 nov. 2006 16:34 - 2 réponses
#1
Posté le 14 novembre 2006 - 16:34
Bonjour,

Je souhaite envoyer un mail par programmation et j'arrive pas à envoyer une pièce jointe
j'ai trouvé la fonction Email.Attache mais les exemple sont pour la réception et non pr l'envoie avec pièces jointes.

Est ce que quelqu'un pourrait me donner la procédure pr envoyer des mails avec une mièces jointe par programmation?

Merci d'avance

Cordialement

Florian
#2
Posté le 14 novembre 2006 - 17:07
PROCEDURE EXPEDIER_FICHIER_EMAIL()

FICHIER_ATT est une chaîne="C:\TMP\NOMFICHIER"

SI PAS fFichierExiste(FICHIER_ATT) ALORS
Info("Abandon pour absence du fichier "+FICH_ATT)
Renvoyer faux
FIN

SI InternetConnecté()=Faux ALORS
Info("Internet non connecté.")
Renvoyer faux
FIN

sCOMPTELOGIN est chaîne="DUPONT"
sCOMPTEADRSMTP est chaîne="ADRESSE SERVEUR SMTP "
sCOMPTEADRMAIL est chaîne="monpseuexpéditeur@france.fr"

// ouverture de session

EmailOuvreSessionSMTP(COMPTELOGIN,COMPTEADRSMTP)
SI ErreurDétectée ALORS
Info(ErreurInfo())
Renvoyer Faux
FIN


sCHAINEMESSAGE est une chaîne="BONJOUR"

EmailRAZ()

Email.Sujet ="Expédition automatique du fichier " +FICHIER_ATT
Email.Message =sCHAINEMESSAGE
Email.Expéditeur = sCOMPTEADRMAIL
Email.AdresseExpéditeur = sCOMPTEADRMAIL
Email.Destinataire="ADRESSE_EMAIL_DESTINATAIRE"
Email.NbDestinataire = 1
Email.Attache=FICHIER_ATT
Email.NbAttache = 1
Email.AccuséRéception=Vrai



//envoie du mail
SI EmailEnvoieMessage(COMPTELOGIN)=Faux ALORS
Erreur("EmMailEnvoieMessage a échoué '" + ...
ErreurInfo( errMessage ) + "'")
EmailFermeSession(COMPTELOGIN)
Renvoyer faux
FIN

EmailFermeSession(COMPTELOGIN)
Renvoyer Vrai
#3
Posté le 14 novembre 2006 - 17:07
J'ai fini par trouver la réponse.
faut utiliser email.attache[i] = fichierattache
et email.nbattache = 1 (pour une pièce jointe)

@+

Florian
→ Revenir à WINDEV 2024