Discussion :

[SousouPoitou]

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 :

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

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.

[SousouPoitou]

Bonjour

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

Code :

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

WinsockMail.LocalPort = 0

avant la ligne :

Code :

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

WinsockMail.Connect ServeurSMTP, PortSMTP

et fermer enfin la connesion par :

Code :

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

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

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