FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 2024
→
comment envoyer un mail
comment envoyer un mail
Débuté par n.roux, 15 nov. 2006 16:41 - 2 réponses
Connectez-vous…
n.roux
#1
Posté le 15 novembre 2006 - 16:41
bonjour
j'ai crée un fichier client dans lequel je rentre son adresse mail. Au sein de mon réseau j'ai un serveur exchange et pour les mails exterieurs je passe par le smntp de wanadoo.
je souhaite qu'en cliquant sur un bouton envoyer un mail au client avec un fichier word en piece jointe
comment faire ?
merci
Signaler
0
0
guest
#2
Posté le 15 novembre 2006 - 17:16
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 d'un fichier "
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
thierry.pages
#3
Posté le 15 novembre 2006 - 17:16
Salut,
Regardez dans l'aide en ligne les fonctions EmailEnvoieMessage. Il y a un exemple dans lequel il vous suffira de remplacer les adresses pop3 et smtp par celles de votre provider.
Pour joindre un document, il suffit de renseigner le nombre de pièces jointes dans email.nbattaches et de garnir le tableau email.attache avec les noms des fichiers attachés. Consultez pour cela l'aide en ligne de la structure e-mail.
Bons dev
Signaler
0
0
→ Revenir à WINDEV 2024
WINDEV 2024
WINDEV 2024
WEBDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
WINDEV (précédentes versions)
WEBDEV (précédentes versions)
WEBDEV (précédentes versions)
WINDEV Mobile (précédentes versions)
WINDEV Mobile (précédentes versions)
Etats & Requêtes
Etats & Requêtes
Hors-sujet
Hors-sujet
Outils
Outils
WINDEV 26
WINDEV 2024
WINDEV 2024
WINDEV 25
WEBDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
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