PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → Transfert sécurisé de données par Email entre 2 applications
Transfert sécurisé de données par Email entre 2 applications
Débuté par Eric, 22 jan. 2007 12:16 - 1 réponse
#1
Posté le 22 janvier 2007 - 12:16
Bonjour,

J'aimerai envoyer une commande par email entre 2 applications.
Le transfert doit se faire par email.
Il ne doit pas pouvoir être possible de modifier le texte dans l'email.

Comment devrais-je faire ?

D'avance merci pour vos infos
#2
Posté le 22 janvier 2007 - 12:37
Bonjour,
Une procédure qui génére le texte à envoyer
ou Wsujet et WContenu sont des variables globales
PROCEDURE Génère_Message()

SELON COMBO_ActivitéDoc..Valeur
CAS 1 : WSujet="Rédaction"
CAS 2 : WSujet="Prise en compte"
CAS 3 : WSujet="En cours"
CAS 4 : WSujet="Traitement"
CAS 5 : WSujet="Clôture"
CAS 6 : WSujet="Sans suite"
AUTRE CAS
FIN
WSujet+=" d'un document : "+IDDocType..ValeurAffichée
SI EnModeTest() ALORS
WSujet+="(Tests d'utilisation, ne pas en tenir compte) Merci"
FIN

Une procédure qui envoie le message par SMTP
PROCEDURE Envoie_Message(XDestinataire="")

EmailOuvreSessionSMTP("SessionSMTP", Wserveur)


//Remise a zéro des variables Email
EmailRAZ()

//Expéditeur du message
Email.Expéditeur=Wexpediteur

//Destinataire(s) du message
Email.Destinataire[1]=XDestinataire
Email.NbDestinataire=1

//Pièces jointes
Email.NbAttache=0

Email.AccuséRéception=Vrai
Email.ConfirmationLecture=Vrai

//Sujet et contenu du message
Email.Sujet=WSujet
Email.Message=Wcontenu
Email.HTML=""

//Sujet et contenu du message
EmailEnvoieMessage("SessionSMTP")
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
FIN

//Fermeture de la session SMTP
EmailFermeSession("SessionSMTP")
→ Revenir à WINDEV 2024