Mail via winsock. [Résolu]

Signaler
Messages postés
6
Date d'inscription
lundi 13 mars 2006
Statut
Membre
Dernière intervention
16 mars 2006
-
Messages postés
6
Date d'inscription
lundi 13 mars 2006
Statut
Membre
Dernière intervention
16 mars 2006
-
Bjr, j'ai une appli MDI, sur la fentre principale qui joue le role de
conteneur, j'ai créé un éément du menu qui me permet d'avoir des
raccourci pour l'envoi de mail.

Le pb, c'est que le clique sur l'un de ces raccourcis me met une erreur.

Voici le code de chaque raccourci.:

<<<<



Private Sub ARGONNE_Click()

Dim Destinataire As String

Dim Objet As String

Dim Corps As String



Destinataire = "toto@tot.fr"

Objet = "données"

Corps = Text4.Text & " " & _

Text3.Text & " " & _

Text1.Text



ShellExecute 0, _


"Open", "mailto:" & Destinataire & _

"?subject=" & Objet & _

"&Body=" & Corps _

, "", _

0, _

end sub



>>>>>>

l'erreur porte sur "shellExecute" mon appli bloque dessus.

Si je fais appel à vous, c'est que sur une appli simple forme, les raccourcis fonctionnent sans pb.



Il y a certainement pas grand chose, mais je bute.

Merci.

1 réponse

Messages postés
6
Date d'inscription
lundi 13 mars 2006
Statut
Membre
Dernière intervention
16 mars 2006

Oups !

J'ai trouvé mon erreur,

si je ne déclare pas la fonction shellExecute, forcément ça marche pas...