[WD20 et +] Envoyer un email via outlook

Bonjour
Code permettant d'envoyer un email depuis Outlook
Il fonctionne chez moi depuis longtemps et sur n'importe quel projet WD

Code (Windev):

// Créer une structure
STParamMail est une Structure
 sDestinataires  est une chaîne // les adresses mails complètes des destinataires (séparateur : ";")
 sCC    est une chaîne // Les destinataires en copies (Séparateur : ";")
 sCCI   est une chaîne // les destinataires en copies cachées (Séparateur : ";")
 sObjet   est une chaîne // objet du mail
 sPiècesJointes  est une chaîne // le chemin complet des pièces jointes (séparateur : ";")
 sTexteHTML  est une chaîne // Nom du fichier contenant le texte en HTML (En principe, idem que sAfaire mais extension .HTML)
 sTexteTxt  est une chaîne // Nom du fichier contenant le texte en ASCII (En principe, idem que sAfaire mais extension .TXT)
 bEnvoiDirect est un booléen // Faut il envoyer le mail sans passer par les brouillons
FIN

// Alimentez cette structure en fonction de votre projet
// Passez la par paramètres à la procédure EnvoiEmail
PROCEDURE EnvoiMail(stLesParamètres est un STParamMail)
sFichier est une chaîne
bErreur est un booléen
pautOutlook est un objet Automation dynamique
pautOutlook=

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

("Outlook.Application")
QUAND EXCEPTION DANS
SI pautOutlook=Null ALORS
 pautOutlook = allouer un objet Automation "Outlook.Application"
FIN
Email est un objet Automation dynamique = pautOutlook>>CreateItem(0)
Email>>Display()
// Création du mail
Email>>subject=stLesParamètres:sObjet
// Affichage de la fenêtre Outlook (indispensable en premier afin d'avoir la signature
SI stLesParamètres:sTexteHTML ~= "" ALORS
 SI stLesParamètres:sTexteTxt <> "" ALORS
  stLesParamètres:sTexteHTML =

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(stLesParamètres:sTexteTxt)
 FIN
SINON
 SI stLesParamètres:sTexteTxt ~= "" ALORS
  stLesParamètres:sTexteTxt =

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(stLesParamètres:sTexteHTML)
 FIN
FIN
// On remplit le corps du message
Email>>htmlBody(stLesParamètres:sTexteHTML+CRLF+Email>>htmlbody)
// Ajout des destinataires
Email>>to=

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(stLesParamètres:sDestinataires)
// Ajout des destinataires en copie (facultatif)
//Email>>cc=sansespace(stLesParamètres:sCC)
//email>>cci=sansespace(stLesParamètres:scci)
// Ajout des pièces jointes
POUR TOUTE CHAÎNE sFichier DE stLesParamètres:sPiècesJointes SEPAREE PAR ";"
 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sFichier)
 SI

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sFichier) ALORS
  Email>>attachments>>

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

(sFichier)
 SINON
  bErreur = Vrai
 FIN
FIN
SI PAS bErreur ALORS
 SI stLesParamètres:bEnvoiDirect ALORS
  Email>>send
 FIN
FIN
// Libération des objets
libérer Email
libérer pautOutlook
FAIRE

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

("Outlook n'est probablement pas installé sur votre ordinateur !")
FIN

// Dans sPiècesJointes il faut indiquer la liste des fichiers séparé par ";"
// ex : c:\Temp\001.pdf;c:\Temp\002.pdf;...
 

 

Avec ce code, tu va pouvoir envoyer des emails directement depuis ton logiciel.
La structure d'email peut se déclarer en ouverture de projet, de fenêtre ou encore dans une classe.
L'avantage d'une structure c'est que tu vas pouvoir l'alimenter depuis n'importe quelle fenêtre. Tu n'est pas obligé de le faire dans une seule et même fenêtre.
Une fois cette structure complétée, tu la passes en paramètre à la fonction : Envoimail.
Ton email est créé dans Outlook en fonction des paramètres passés. Gain de temps pour l'utilisateur.