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.