FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
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
Connectez-vous…
Florian
#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
Signaler
0
0
Albert
#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
Signaler
0
0
Florian
#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
Signaler
0
0
→ Revenir à WINDEV 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
WEBDEV (précédentes versions)
WINDEV Mobile (précédentes versions)
Etats & Requêtes
Hors-sujet
Outils
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte