Version imprimable
Bonjour à tous,
J'ai décidé de tester le logiciel d'email du tutorial winsock de Sébastien Curutchet et lorsque je teste le programme un message d'erreur 424 apparait avec comme message "Un objet est requis". Le problème viendrait apparemment de la ligne Set evt = ws
Quelqu'un aurait un tuyau?
Merci d'avance
Edit : Le lien vers le tuto en question http://drq.developpez.com/vb/tutoriels/Winsock/
Tu as bien ajouté une référence à l'objet Winsock dans ton projet ?
Ce serait bien que tu nous mette la ligne de code qui semble provoquer l'erreur (avec peut-être quelques autres dessus et dessous...).
n'oublie pas de renommer le winsock en "ws"
Tout d'abord merci de répondre aussi rapidement =)
Voici quelques lignes de codes du programme avec en rouge la ligne qui seble provoquer une erreur.
@zazaraignée : Qu'est-ce qu'une référence?Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20Private WithEvents evt As Winsock Private nextSend As Boolean Private Sub btnSend_Click() Dim tmp As String Set evt = ws ws.Connect txtServer, 25 While ws.State <> sckConnected DoEvents Wend nextSend = False ws.SendData "HELLO toto" & vbCrLf While nextSend = False DoEvents Wend nextSend = False
Je ne suis pas sur mais il me semble à la lecture du tutoriel que ws représente le composant Winsock déposé sur ta Form, il faut donc que le nom de ce composant soit ws pour que ça fonctionne. (Winsock1 par défaut)
Une référence c'est quand tu ajoute une bibliothèque de composants (dll) ou un fichier de composant (ocx) via le menu Projet > Composants, ou encore quand tu ajoute une bibliothèques de fonctions (ou de composants non graphiques) via le menu Projet > Références.
On peut aussi faire référence à des fonctions de l'API de Windows en utilisant la heu... le... heu... comment on dit... j'ai un blanc... disons, faute de mieux, la clause
Code:
2Public|Private Declare Function NomDeFonction Lib "NomDeLaLibrairie" Alias "AutreNomDeFonction" _ (ByVal|ByRef NomParamètre As TypeDeDonneeOu_dObjet" [autres paramètres...]) As TypeRetourné
Oui, l'ajout des composants a bien été effectué et mon winsock a bien le nom ws. J'ai beau chercher je ne vois pas en quoi il y a un probleme :s
Je cherchais la traduction de Statement. Instruction, je crois. Mais, en effet, déclaration convient mieux.Citation:
Envoyé par ucfoutu
D'accord ^^ Mais si vous pouviez me donner plus de précisions sur la facon de mettre en place cette "déclaration" dans le programme ce serait super ^^
Tu peux ajouter un composant Winsock directement sur ta feuille (Form). Tu le trouveras dans les composants supplémentaires (Ctrl+T, Microsoft Winsock Control 6.0). Tu lui donne un nom (propriété Name) et tu l'utilises directement dans ton code à partir du nom que tu lui a donné. C'est un composant non visuel. L'icône qui le représente sur la feuille n'est pas visible à l'exécution.
[Edit - début] Sinon, tu ajoutes le composant (.ocx) dans les références (Projet > Références) et tu le déclares comme suit:
[Edit - fin]Code:
2
3
4
5
6
7
8
Bon ca y est mon winsock semble fonctionner puisque je me connecte au serveur smtp ou pop.
Mainenant 2 erreurs se produisent :
-Sur le mode de réception : "Erreur d'éxécution 424 : Un objet est requis" avec l'erreur pointant la ligne :"lblMessage.Caption = "Login/mot de passe incorrect" ".
- Sur le mode d'envoi : Le serveur SMTP me renvoie plusieurs codes d'erreurs correspondant aux fonctions MAIL FROM, RCPT TO, DATA. Je pense qu'il doit s'agir de code spécifique au type de serveur smtp utilisé (celui d'orange dans mon cas).
Un grand merci pour votre aide en tout cas ;)
qu'as tu modifié pour que ton pb soit résolu avec "ws" dans le code ? Cela pourrait servir à d'autres.
j'ai simplement renommé mon winsock "ws" ! ::king:
La réponse t'avais donc été donnée moins d'une heure après ta question par Vld...
Exact je le remercie d'ailleur !
8-)
Bon pour ton label.caption là, vérifie le nom du label aussi (pour ton erreur un objet est requis)
Si t'es pas sûr, clique sur "lblMessage" dans ton code, supprime la fin pour n'avoir que par exemple "lblMess" puis fait contrôle+espace
Si il n'auto complète pas, et bien ton label n'existe pas.
A+
PS : oublie pas le "résolu" ;)