Winsock - Error 10048 : Adress in use

Bonjour
je voudrais envoyer différents fichiers à différents destinataires par mail. J'utilise le contrôle Winsock.
Le premier fichier part bien mais pour les suivants le message d'erreur 10048 Adresse en utilisation s'affiche.

Pourtant avant de me reconnecter pour envoyer le deuxième fichier, je fais WinsockMail.LocalPort=0 comme j'ai pu le lire sur d'autres sites.
Puis je me reconnecte sur le même port "25"
WinsockMail.Connect ServeurSMTP, PortSMTP


Dans l'évènement de fermeture du Winsock j'ai également fait :

Code:

---

1 2 3 4 5 6 7

Private Sub WinsockMail_Close()   Do While WinsockMail.State <> sckClosed WinsockMail.Close Loop   End Sub

---

Pourtant rien n'y fait. Auriez-vous une solution ? Merci bien.

Bonjour

le problème est résolu.
Il fallait mettre :

Code:

---

WinsockMail.LocalPort = 0

---

avant la ligne :

Code:

---

WinsockMail.Connect ServeurSMTP, PortSMTP

---

et fermer enfin la connesion par :

Code:

---

1 2 3

'Fermeture de la connexion WinsockMail.SendData "QUIT" & vbCrLf WinsockMail.Close

---

En espérant que cela puisse servir à d'autres.