OVH Cloud OVH Cloud

Pb avec Winsock

5 réponses
Avatar
TEV
Bonjour,

Je tente de faire une connexion au serveur SMTP de mon provider (en
occurrence Noos) en passant par telnet cela fonctionne parfaitement bien. Je
tente de faire la même chose avec Winsock et là il ne reçoit aucun retour,
je me demande même s'il parvient à se connecter.

Dans le doute je suis allé sur la FAQ VB où il est question d'envoi
d'e-mail. Malgré que le code soit différent dans la forme, je l'ai pompé et
testé j'ai le même problème qu'avec mon code.

Juste un détail, je n'ai absolument pas touché aux propriétés du contrôle,
tout est fait par le code sauf au niveau protocole qui est sur tcp.

Quelqu'un saurait il pour quelle raison ?

Christian.

5 réponses

Avatar
Adam Pietrasiewicz
<<< Attention - mon adresse dans l'entete de ce message >>>
<<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>>
<<< http://cerbermail.com/?DQr0g2Y88R >>>
=================================================== Le 02 pa¼dziernika 2003 16:17:57 TEV a ecrit dans un message
news:3f7c3393$0$9881$


Je tente de faire une connexion au serveur SMTP de mon provider (en
occurrence Noos) en passant par telnet cela fonctionne parfaitement bien. Je
tente de faire la même chose avec Winsock et la il ne reçoit aucun retour,
je me demande même s'il parvient a se connecter.

Dans le doute je suis allé sur la FAQ VB où il est question d'envoi
d'e-mail. Malgré que le code soit différent dans la forme, je l'ai pompé et
testé j'ai le même probleme qu'avec mon code.

Juste un détail, je n'ai absolument pas touché aux propriétés du contrôle,
tout est fait par le code sauf au niveau protocole qui est sur tcp.

Quelqu'un saurait il pour quelle raison ?



Donnes-nous les coordonnees du serveur. Je vais tester. Tu te connectes au
serveur SMTP ou POP3

--
Adam Pietrasiewicz
Pologne


---
Ten list zosta³ wys³any przy u¿yciu Go³±bka http://www.amsoft.com.pl/golabek
Avatar
TEV
Voici les coordonnées du serveur SMTP : smtp.noos.fr 25
merci pour la réponse.
Christian.

"Adam Pietrasiewicz" a écrit dans le
message de news:


<<< Attention - mon adresse dans l'entete de ce message >>>
<<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>>
<<< http://cerbermail.com/?DQr0g2Y88R >>>
=================================================== > Le 02 pa¼dziernika 2003 16:17:57 TEV a ecrit dans un message
news:3f7c3393$0$9881$


> Je tente de faire une connexion au serveur SMTP de mon provider (en
> occurrence Noos) en passant par telnet cela fonctionne parfaitement


bien. Je
> tente de faire la même chose avec Winsock et la il ne reçoit aucun


retour,
> je me demande même s'il parvient a se connecter.
>
> Dans le doute je suis allé sur la FAQ VB où il est question d'envoi
> d'e-mail. Malgré que le code soit différent dans la forme, je l'ai pompé


et
> testé j'ai le même probleme qu'avec mon code.
>
> Juste un détail, je n'ai absolument pas touché aux propriétés du


contrôle,
> tout est fait par le code sauf au niveau protocole qui est sur tcp.
>
> Quelqu'un saurait il pour quelle raison ?

Donnes-nous les coordonnees du serveur. Je vais tester. Tu te connectes au
serveur SMTP ou POP3

--
Adam Pietrasiewicz
Pologne


---
Ten list zosta³ wys³any przy u¿yciu Go³±bka


http://www.amsoft.com.pl/golabek






Avatar
Adam Pietrasiewicz
<<< Attention - mon adresse dans l'entete de ce message >>>
<<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>>
<<< http://cerbermail.com/?DQr0g2Y88R >>>
=================================================== Le 02 pa¼dziernika 2003 16:43:36 TEV a ecrit dans un message
news:3f7c3996$0$1924$


Voici les coordonnées du serveur SMTP : smtp.noos.fr 25
merci pour la réponse.



En tout cas en Pologne ca marche!

Tu mets un Winsock, Un textbox multiligne=true, et deux boutons Command1 et
Command2

Ensuite tu colles le code:

Private Sub Command1_Click()
Winsock1.RemoteHost = "smtp.noos.fr"
Winsock1.RemotePort = "25"
Winsock1.Connect
Do While Winsock1.State <> 7
DoEvents
Loop
Winsock1.SendData "HELO Me" & vbCrLf



End Sub

Private Sub Command2_Click()
Winsock1.SendData "QUIT" & vbCrLf

End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim donnees As String
Winsock1.GetData donnees
Text1 = Text1 & donnees & vbCrLf

End Sub

Et ca marche - le serveur repond comme il faut!
--
Adam Pietrasiewicz
Pologne


---
Ten list zosta³ wys³any przy u¿yciu Go³±bka http://www.amsoft.com.pl/golabek
Avatar
Adam Pietrasiewicz
<<< Attention - mon adresse dans l'entete de ce message >>>
<<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>>
<<< http://cerbermail.com/?DQr0g2Y88R >>>
=================================================== Le 03 pa¼dziernika 2003 15:56:26 TEV a ecrit dans un message
news:3f7d8007$0$1951$

Je redessine un winsock2 et la cela fonctionne. Pourquoi je saisis pas trop.



Moi non plus! Bizarre, effectivement.

Par contre seul le code de Adam fonctionne le secret est apparemment la
boucle while. Le hic est que je n'en comprend pas trop la raison, il faut
obligatoirement pousser l'état de la connexion a 7 ? Pour que cela
fonctionne ?



Oui. Il faut attendre l'etat "connecte", donc le code .state = 7. Pas de
mystere - il faut se connecter pour etre connecte.

Sinon une autre question, comment faire pour joindre des fichiers a mon
envoi de mail ?



Pour joindre un fichier a un mail et l'envoyer de son propre programme par
winsock il faut le transformer, c'est a dire encoder en base 64. Il y a sur
le net des bibliotheques ActiveX qui fonctionnen tres bien!

On peut bien sur le faire soi meme et enocder en base 64 par le code dans
le programme. Mais il faut faire gaffe a la taille des variables qui ont
tendence a trop grandir en memoire si on ne prevoit pas a l'avance la bonne
gestion de la memoire dans son algorythme. Et cela peut ralentir le
programme d'une facon significative.

Et pareil pour l'envoi au moment de la connection avec le serveur SMTP - il
vaut mieux ne pas charger d'office la totalite du mail en memoire mais
envoyer par des petits bouts, do 3-5 KO - ca va plus vite.

Et, enfin, soit sur de bien appliquer les RFC en construisant ton mail...
--
Adam Pietrasiewicz
Pologne


---
Ten list zosta³ wys³any przy u¿yciu Go³±bka http://www.amsoft.com.pl/golabek
Avatar
Adam Pietrasiewicz
<<< Attention - mon adresse dans l'entete de ce message >>>
<<< est une adresse ANTISPAM - pour m'ecrire cliquez sur >>>
<<< http://cerbermail.com/?DQr0g2Y88R >>>
=================================================== Le 04 pa¼dziernika 2003 09:15:52 TEV a ecrit dans un message
news:3f7e73a4$0$7671$



Merci pour tout.




Il n'y a pas de quoi!

Nous ne sommes que des pales imitations des caricatures de Francois, Zoury
et Pierre...
--
Adam Pietrasiewicz
Pologne


---
Ten list zosta³ wys³any przy u¿yciu Go³±bka http://www.amsoft.com.pl/golabek