Discussion :

[wd_newbie]

Bonsoir,

j'ai un petit problème qui me tracasse, avec les envois de mails.

En Suisse, beaucoup de mes clients utilisent bluewin.ch comme FAI.

Pour pouvoir se connecter en itinérant ce FAI met a disposition un
serveur sécurisé :
- smtpauths.bluewin.ch sur le port 465

J'ai testé avec :

SI PAS
EmailOuvreSessionSMTP( sUsername ,sMotPass,sServeur_smtp,nPort,Faux,EmailOptionSécuriséTLS)
ALORS
Erreur(ErreurInfo(errMessage))
RETOUR
FIN

et j'ai chaque fois une erreur "le serveur ne répond pas dans le délai
imparti..:" et si je teste avec les même paramètres sous
Thunderbird ... ça passe ...

Le même code avec une connexion SMTP via le serveur de gmail
fonctionne ...

Y'a t'il quelque chose que je fasse faux ?

Comment faites vous dans pareils cas ?

Merci d'avance

Olivier

[mnw.william]

Bonsoir,
SI PAS
EmailOuvreSessionSMTP( sUsername ,sMotPass,sServeur_smtp,nPort,Faux,EmailOptionSécuriséTLS)
ALORS
Erreur(ErreurInfo(errMessage))
RETOUR
FIN

D'abord essaye de vérifier les paramètres de pare feu sur le port utilisé.

Tu pourrais aussi essayer de détailler ton code comme ceci pour voir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
// Ouverture d'une session SMTP
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = sServeur_smtp //sSeveur_smtp = "smtpauths.bluewin.ch"
MaSession..Option = emailOptionSécuriséTLS
MaSession..Port=465 // Le port TLS dépend du fournisseur, à bien vérifier !
MaSession..Nom = sUserName
MaSession..MotDePasse = sMotPass

SI PAS EmailOuvreSession(MaSession) = Faux ALORS
        Erreur(ErreurInfo(errMessage))
        RETOUR
FIN

[jimmypage]

Salut,

J'ai eu le même problème que toi il n'y a pas si longtemps.
A priori avec les fonctions de mail natives, Windev ne permet pas de se connecter à un serveur de mail securisé (SSL)

J'ai (très) longuement bataillé et n'arrivait pas à envoyer les mails via le port sécurisé (465). Et en testant sur le port SMTP par défaut (25) ca a marché..
Je n'ai pas cherché le pourquoi du comment, mais toujours est-il que ca marche. Pour info le serveur de mail était chez ovh (sll0.ovh.net).

Sinon à priori il y a une LST (la 76 ?) qui fournit un assemblage .net permettant d'envoyer des mails via SMTP sécurisé.
A voir ..



a+

[wd_newbie]

Merci pour vos réponses,

j'ai effectivement essayé de détailler la fonction d'envoi sans succès, mais comme les même paramètres fonctionnent sous Thunderbird, je vois plus un problème de WD que de mes paramètres et que c'est le SSL qui pose problème.

Je ne suis pas abonné à la LST , savez-vous si il est possible de trouver l'assemblage .Net sur le web ?

Ou alors peut-être q'un petit soft en ligne de commande existe ?

Bonne journée à tous !

Olivier

[wimbish]

Bonjour,

Regarde si le "System.net.mail" du framework Microsoft ne répond pas à tes attentes.

[wd_newbie]

Hello !

Je suis une pive en .net ... mais j'ai lu la doc

J'ai fait "atelier > .net > utiliser un assembage", j'ai listé les assemblages référencés , mais je ne trouve pas le "system.net.mail"

Je rate un passage ?

( Je suis suis XP SP3 / .Net installé 1.0 / 1.1 / 2.0 / 4.0 )

Bonne soirée

Olivier

[jurassic pork]

bonjour,

"System.net.mail" ne fonctionne pas pour des liaisons smtp avec ssl implicite

voir ici

En dotnet il faut alors utiliser l'assemblage "System.Web" qui est indiqué comme obsolète mais qui est toujours utile.
Voici un exemple d'utilisation en Windev. Je n'ai pas pu le tester entièrement car je n'est pas de compte ssl sécurisé.

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
 
MessageErreur est une chaîne
monclientsmtp est un System.Web.Mail.MailMessage
 
monclientsmtp:Fields:Add("http://schemas.microsoft.com/cdo/configuration/smtpserver",
                         "smtpauths.bluewin.ch")
monclientsmtp:Fields:Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport",
                         "465")
monclientsmtp:Fields:Add("http://schemas.microsoft.com/cdo/configuration/sendusing",
                         "2")
monclientsmtp:Fields:Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate","1")
//Use 0 for anonymous
monclientsmtp:Fields:Add("http://schemas.microsoft.com/cdo/configuration/sendusername",
                         "guillaumeTell");
monclientsmtp:Fields:Add("http:monclientsmtp:Fields:Add//schemas.microsoft.com/cdo/configuration/sendpassword",
                         "mdp");
monclientsmtp:Fields:Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl","true")
monclientsmtp:From = "roger.federer@tennis.ch"
monclientsmtp:To = "stanislas.wawrinka@tennis.ch"
monclientsmtp:Subject = "test"
//monclientsmtp:BodyFormat = pFormat
monclientsmtp:Body = "ceci est un test"
System.Web.Mail.SmtpMail::SmtpServer = "smtpauths.bluewin.ch:465"
 
QUAND EXCEPTION DANS
System.Web.Mail.SmtpMail::send(monclientsmtp)
FAIRE
	// Message complet de l'erreur principale
	MessageErreur = "erreur : " + ExceptionInfo(errMessage) + RC
// Parcours des sous-erreurs (s'il y en a)
POUR i = 1 _A_ ExceptionInfo(errNombreSousErreur)
	// Message complet de chaque sous-erreur
    MessageErreur += "Sous-erreur " + i + " : " + ExceptionInfo(errMessage, i)
FIN
Info(MessageErreur)
FIN

Il est à noter que dans le code j'utilise les sous erreurs pour pouvoir remonter les exceptions qui se produisent dans dotnet. Le problème c'est qu'on a tous les messages.

Ami calmant, J.P

[wd_newbie]

Brrr .. pas l'air très easy ton truc

je vais m'y coller de ce pas

Merci pour la réponse


Olivier