Mail via winsock.Résolu

Question

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.

Inode_LS · Accepted Answer

Oups !

J'ai trouv&#233; mon erreur, 

si je ne d&#233;clare pas la fonction shellExecute, forc&#233;ment &#231;a marche pas...

Mail via winsock.

1 réponse

Votre réponse

Discussions similaires