Discussion :

[the-arno]

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/

[zazaraignée]

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...).

[Vld44]

n'oublie pas de renommer le winsock en "ws"

[the-arno]

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.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private 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

@zazaraignée : Qu'est-ce qu'une référence?

[Cravis]

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)

[zazaraignée]

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 :

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

1
2
Public|Private Declare Function NomDeFonction Lib "NomDeLaLibrairie" Alias "AutreNomDeFonction" _
    (ByVal|ByRef NomParamètre As TypeDeDonneeOu_dObjet" [autres paramètres...]) As TypeRetourné

[the-arno]

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

[zazaraignée]

Déclaration sera parfait ...

Je cherchais la traduction de Statement. Instruction, je crois. Mais, en effet, déclaration convient mieux.

[the-arno]

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 ^^

[zazaraignée]

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:

Code :

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

1
2
3
4
5
6
7
8
Dim WithEvents ws As Winsock
Set ws = New Winsock
ws.Connect txtServer.Text, 25
'...
 
' quand c'est fini:
ws.Close
Set ws = Nothing

[Edit - fin]

[the-arno]

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

[OhMonBato]

qu'as tu modifié pour que ton pb soit résolu avec "ws" dans le code ? Cela pourrait servir à d'autres.

[the-arno]

j'ai simplement renommé mon winsock "ws" ! :

[OhMonBato]

La réponse t'avais donc été donnée moins d'une heure après ta question par Vld...

[the-arno]

Exact je le remercie d'ailleur !

[Vld44]

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"