PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WEBDEV 2024 → afficher un email avant de l'envoyer,
afficher un email avant de l'envoyer,
Started by Oliv67, Jul., 23 2019 8:37 AM - No answer
#1
Registered member
44 messages
Popularité : +1 (1 vote)
Posted on July, 23 2019 - 8:37 AM
Bonjour à tous
Je dois avec webdev envoyer des email via exchange (outlook installé sur les postes clients) ... mais je souhaite que le client puisse afficher le mail avant de l'envoyer ...
j'ai regardé la doc et je suis un peu perdu
dans la fonction EmailEnvoieMessage ... il est précisé que pour afficher le mail avant l'envoie il faut utiliser cette syntaxe :
Envoyer un email par l'intermédiaire de MS Exchange, Pocket Outlook, Lotus Notes ou Outlook
<Résultat> = EmailEnvoieMessage(<Id session> [, <Email> [, <Afficher> [, <Type>]]])

Le paramètre <Afficher> est pris en compte uniquement si la session email a été ouverte à l'aide de la fonction EmailOuvreSession, en utilisant la syntaxe MS Exchange avec un nom de profile. Dans les autres cas, la boîte de dialogue ne s'affiche pas.

et dans la fonction EmailOuvreSession il est précisé : Remarque : Cette syntaxe est conservée pour compatibilité. Il est recommandé d'utiliser les variables de type emailSessionOutlook ou la fonction EmailOuvreSessionOutlook.


du coup mon message part sans que le client ne puisse le visualiser avant :(
Quelqu'un peut m'aider ?
Merci

Voici donc mon code :
// Ouvre la session Outlook avec le profile par défaut
nidSesssionOutlook est un entier
nidSesssionOutlook = EmailOuvreSession("Default Outlook Profile")


// Session ouverte ?
SI nidSesssionOutlook = 0 ALORS
// Échec d’ouverture de la session
Erreur("Echec d'ouverture de la session Outlook", ErreurInfo())
SINON
// Construction d'un email
MonMessage est un Email
MonMessage..Expediteur = "toto@bas-rhin.fr"
Ajoute(MonMessage..Destinataire, "eric@bas-rhin.fr")
MonMessage..Sujet = "test"
MonMessage..Message = "ceci est un test"

// Envoi du message
EmailEnvoieMessage(nidSesssionOutlook, MonMessage,Vrai)
// Referme la session
EmailFermeSession(nidSesssionOutlook)
FIN
→ Go back to WEBDEV 2024