-- Romain PETIT http://cerbermail.com/?O16kfXOFcq (cliquez sur le lien ci-dessus pour me contacter en privé)
Erwan
>Bonjour à tous,
Quelqu'un saurait-il s'il existe dans la commande mailto: un paramètre 'Pièces jointes'. Si oui comment l'utiliser.
Merci.
Il est possible d'utiliser les commandes Windev pour envoyer un fichier joint avec nu mail. Voici un exemple qui envoie le fichier dont le chemin est contenu dans sz_NomFichierExcel :
SI PAS EmailOuvreSession(gp_EMailIdentifiant, gp_EMailMDP, gp_EMailServeurSMTP) ALORS SI PAS EmailOuvreSessionSMTP(gp_EMailIdentifiant, gp_EMailMDP, gp_EMailServeurSMTP) ALORS // Erreur impossible de se connecter au serveur SMTP Erreur("La connexion avec le serveur SMTP a échoué"+RC,"Serveur SMTP : "+gp_EMailServeurSMTP,"Identifiant : "+gp_EMailIdentifiant) b_Continue = Faux FIN FIN
SI b_Continue ALORS Email.Expéditeur = SansEspace(gp_EMailExpediteur) Email.Destinataire = SansEspace(gp_EMailDestinataire) Email.NbDestinataire = 1 Email.Sujet = sz_Sujet Email.Message = sz_TexteMessage // Création du fichier Excel SI fRep(sz_NomFichierExcel) <> "" ALORS Email.Attache = sz_NomFichierExcel Email.nbAttache = 1 SINON Email.Message = "La création du fichier excel a échoué." FIN
SI PAS EmailEnvoieMessage(gp_EMailIdentifiant) ALORS Erreur("L'envoi de l'e-mail a échoué.",ErreurInfo(errMessage)) SINON b_Ret = Vrai FIN
EmailFermeSession(gp_EMailIdentifiant) FIN
-- Message monitoré par axinews : http://www.axinews.com/
>Bonjour à tous,
Quelqu'un saurait-il s'il existe dans la commande mailto:
un paramètre 'Pièces jointes'.
Si oui comment l'utiliser.
Merci.
Il est possible d'utiliser les commandes Windev pour envoyer un fichier joint
avec nu mail.
Voici un exemple qui envoie le fichier dont le chemin est contenu dans sz_NomFichierExcel
:
SI PAS EmailOuvreSession(gp_EMailIdentifiant, gp_EMailMDP, gp_EMailServeurSMTP)
ALORS
SI PAS EmailOuvreSessionSMTP(gp_EMailIdentifiant, gp_EMailMDP, gp_EMailServeurSMTP)
ALORS
// Erreur impossible de se connecter au serveur SMTP
Erreur("La connexion avec le serveur SMTP a échoué"+RC,"Serveur SMTP : "+gp_EMailServeurSMTP,"Identifiant
: "+gp_EMailIdentifiant)
b_Continue = Faux
FIN
FIN
SI b_Continue ALORS
Email.Expéditeur = SansEspace(gp_EMailExpediteur)
Email.Destinataire = SansEspace(gp_EMailDestinataire)
Email.NbDestinataire = 1
Email.Sujet = sz_Sujet
Email.Message = sz_TexteMessage
// Création du fichier Excel
SI fRep(sz_NomFichierExcel) <> "" ALORS
Email.Attache = sz_NomFichierExcel
Email.nbAttache = 1
SINON
Email.Message = "La création du fichier excel a échoué."
FIN
SI PAS EmailEnvoieMessage(gp_EMailIdentifiant) ALORS
Erreur("L'envoi de l'e-mail a échoué.",ErreurInfo(errMessage))
SINON
b_Ret = Vrai
FIN
EmailFermeSession(gp_EMailIdentifiant)
FIN
--
Message monitoré par axinews : http://www.axinews.com/
Quelqu'un saurait-il s'il existe dans la commande mailto: un paramètre 'Pièces jointes'. Si oui comment l'utiliser.
Merci.
Il est possible d'utiliser les commandes Windev pour envoyer un fichier joint avec nu mail. Voici un exemple qui envoie le fichier dont le chemin est contenu dans sz_NomFichierExcel :
SI PAS EmailOuvreSession(gp_EMailIdentifiant, gp_EMailMDP, gp_EMailServeurSMTP) ALORS SI PAS EmailOuvreSessionSMTP(gp_EMailIdentifiant, gp_EMailMDP, gp_EMailServeurSMTP) ALORS // Erreur impossible de se connecter au serveur SMTP Erreur("La connexion avec le serveur SMTP a échoué"+RC,"Serveur SMTP : "+gp_EMailServeurSMTP,"Identifiant : "+gp_EMailIdentifiant) b_Continue = Faux FIN FIN
SI b_Continue ALORS Email.Expéditeur = SansEspace(gp_EMailExpediteur) Email.Destinataire = SansEspace(gp_EMailDestinataire) Email.NbDestinataire = 1 Email.Sujet = sz_Sujet Email.Message = sz_TexteMessage // Création du fichier Excel SI fRep(sz_NomFichierExcel) <> "" ALORS Email.Attache = sz_NomFichierExcel Email.nbAttache = 1 SINON Email.Message = "La création du fichier excel a échoué." FIN
SI PAS EmailEnvoieMessage(gp_EMailIdentifiant) ALORS Erreur("L'envoi de l'e-mail a échoué.",ErreurInfo(errMessage)) SINON b_Ret = Vrai FIN
EmailFermeSession(gp_EMailIdentifiant) FIN
-- Message monitoré par axinews : http://www.axinews.com/
Jean Cougnaud
Bonjour,
Ayant essayé il y a quelques temps d'utiliser Mailto pour y mettre des pièces jointes, je me suis vite aperçu que l'on ne peut pas le faire.
J'ai donc utilisé la dll Mapi32 pour envoyer les messages via la messagerie du client.
Tu as un exemple sur mon site dans la page de mes modestes contributions Windev http://www.jean-cougnaud.com
Je l'ai essayé avec Outlook, Outlook Express et Mozilla. A tester avec d'autres messageries.
Cordialement
Jean Cougnaud Informaticien indépendant Bordeaux
"Patrice Ciesielczyk" a écrit dans le message de news:42149c40$
Bonjour à tous,
Quelqu'un saurait-il s'il existe dans la commande mailto: un paramètre 'Pièces jointes'. Si oui comment l'utiliser.
Merci.
Bonjour,
Ayant essayé il y a quelques temps d'utiliser Mailto pour y mettre des
pièces jointes, je me suis vite aperçu que l'on ne peut pas le faire.
J'ai donc utilisé la dll Mapi32 pour envoyer les messages via la messagerie
du client.
Tu as un exemple sur mon site dans la page de mes modestes contributions
Windev http://www.jean-cougnaud.com
Je l'ai essayé avec Outlook, Outlook Express et Mozilla. A tester avec
d'autres messageries.
Cordialement
Jean Cougnaud
Informaticien indépendant
Bordeaux
"Patrice Ciesielczyk" <patrice.ciesielczyk@sncf.fr> a écrit dans le message
de news:42149c40$1@news.sncf.fr...
Bonjour à tous,
Quelqu'un saurait-il s'il existe dans la commande mailto:
un paramètre 'Pièces jointes'.
Si oui comment l'utiliser.
