Problème Winsock VBasic
Bonjour,
J'aimerais faire une petite application pour lire ou envoyer des mails. Actuellement, je teste l'envoi. Pour cela, j'utilise le contrôle Winsock. Cependant, lors de la compilation de mon programme, il me met : "Un objet est requis.". Et, je n'arrive pas à corriger l'erreur. Il est à noter que dans ces quelques lignes, j'essaie simplement de me connecter.
Voici le code correspondant :
Private Sub Connexion_Click()
Winsock.RemoteHost = smtp.wanadoo.fr
Winsock.RemotePort = 25
Winsock.Close
End Sub
'Si on est connecté, afficher une msgbox...
Sub winsock_Connect()
a = MsgBox("Vous êtes connecté !", vbOKOnly)
End Sub
Je vous remercie !
J'aimerais faire une petite application pour lire ou envoyer des mails. Actuellement, je teste l'envoi. Pour cela, j'utilise le contrôle Winsock. Cependant, lors de la compilation de mon programme, il me met : "Un objet est requis.". Et, je n'arrive pas à corriger l'erreur. Il est à noter que dans ces quelques lignes, j'essaie simplement de me connecter.
Voici le code correspondant :
Private Sub Connexion_Click()
Winsock.RemoteHost = smtp.wanadoo.fr
Winsock.RemotePort = 25
Winsock.Close
End Sub
'Si on est connecté, afficher une msgbox...
Sub winsock_Connect()
a = MsgBox("Vous êtes connecté !", vbOKOnly)
End Sub
Je vous remercie !
2 réponses
-
enleve les parenthèses
Winsock.Connect smtp.wanadoo.fr, 25 -
Ca y est ! J'ai légèrement avancé. Maintenant, j'ai changé d'erreur.
...
Winsock.Connect(smtp.wanadoo.fr, 25)
Winsock.Close
...
Sub winsock_Connect()
a = MsgBox("Vous êtes connecté !", vbOKOnly)
Winsock.Close
End Sub
Maintenant, il me dit de mettre un = sur la première ligne présentée ici. Ce que je fais, avec une variable a. Mais, il me dit : "Affectation à une constante non autorisée.". Donc, s'il vous plaît, HELP !!!
