Problème Reception et envoi mail via une application windev
Bonjour
je suis entrain d’intégrer l'envoi des emails à partir mon application WINDEV
le problème c'est que si je passe par une session OUTLOOK pour l'envoi je reçois l'email en code HTML mais si je consulte les messages envoyé dans OUTLOOK c'est un message normal
par contre si j'utilise une session SMTP le message est reçu normalement sans problème mais pas de trace dans message envoyé est cella c'est mon deuxième problème .
voila le code que j'utilise pour l'envoie via session SMTP :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
| HLitRecherchePremier(COMPTE,USER_LOGIN,CodeUser)
SI HTrouve(COMPTE) ALORS
adrssmtp est une chaîne = COMPTE.AdrSrvSmtp
sess est une EmailSessionSMTP
sess.AdresseServeur=adrssmtp
SI EmailOuvreSession(sess) ALORS
SI ErreurDétectée ALORS
Erreur(ErreurInfo(errRésumé))
RETOUR
FIN
FIN
FIN
objmessage est un Email
objmessage.Sujet = SAI_Sujet
SAI_Info1=SAI_Info // champs HTML
// Expéditeur
objmessage.Expediteur = SAI_Expéditeur1
nbr est un entier=0
POUR nbr=1 A TABLE_A..Occurrence
Ajoute(objmessage.Destinataire,TABLE_A.COL_Mail[nbr])
FIN
EmailImporteHTML(objmessage,SAI_Info1,"")
SI PAS EmailEnvoieMessage(sess,objmessage) ALORS
Erreur ("Le message n'a pas été envoyé", ErreurInfo(errMessage))
SINON
info("MSG ENVOYE")
FIN |
MERCI
