Discussion :

[Nassimux]

Bonjour à tous;
Voilà, j'ai parcouru moult forums et je n'ai pas trouvé de solution, alors je créer ce fil de discussion et je me remets à votre génie.
Je souhaite via un bouton Valider, poster des données sur ma table et envoyer un email.
Les données sont enregistrées sur la table quant à l'envoie d'email ceci ne s'effectue pas j'ai un message d'erreur comme le montre l'image ci-dessous.


Pour info, j'essaye d'envoyer un email en utilisant la boite mail entreprise (nous avons un serveur Exchange)

Voici le code source que j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
34
35
36
37
38
39
session est une chaîne=COMBO_employe..ValeurAffichée
sDestinataire est une chaîne= session + "@entreprise.org"
 
NomUser est une chaîne
 
NomUser = "prenom.nom@entreprise.org"
 
NServeur est une chaîne
NUser est une chaîne
NMotDePasse est une chaîne
NPort est une chaîne 
NServeur = "mail.entreprise.org"
NUser = "prenom.nom"
NMotDePasse = ""
NPort = 25
 
EmailChangeTimeOut(20)
 
// Ouverture de la session
SI PAS EmailOuvreSessionSMTP(NUser, NMotDePasse, NServeur, NPort,Faux, emailOptionSécuriséTLS) ALORS
	Erreur(ErreurInfo(errComplet))
FIN
 
// Initialisation de la structure email
Email.NbDestinataire = 1
Email.Destinataire[1] = sDestinataire
Email.Expéditeur = NomUser
Email.Sujet= "Bonjour"
Email.Message = "Vous venez de recevoir cet email."
 
 
// Envoi du email
SI EmailEnvoieMessage(NUser) ALORS
	Info("L'envoie de l'email a réussi")
SINON
	Erreur(ErreurInfo(errComplet))
FIN
 
EmailFermeSession(NUser)

Merci par avance.