E-mailRésolu

Question

Bonjour !
Je voudrais savoir comment on peut faire pour envoyer un mail en cliquant sur un bouton ? En fait en cliquant sur le bouton le programme doit r&#233;cup&#233;rer l'adresse mail qui est dans un champs (&#231;a je l'ai fait) et il doit ouvrir Outlook en mettant l'adresse mail r&#233;cup&#233;r&#233;e. Je l'ai fait avec la m&#233;thode 
str_Email = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE mailto:" & txt_Email.Text, vbHide)
mais il m'a &#233;t&#233; demand&#233; de le faire autrement ! Si quelqu'un a une id&#233;e il est le bienvenue parce que franchement je ne vois d'autre fa&#231;on ...
Merci de votre aide &#233;ventuelle.

pseudoOM

Renfield · Accepted Answer

attention :
str_Email = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE mailto:" & txt_Email.Text, vbHide)

str_Email =   
implique apparemment que tu souhaite recupérer une chaine de caractère... (étrange !)

C:\Program Files\Internet Explorer\IEXPLORE.EXE 
implique que ton navigateur se trouve dans ce dossier, ce qui est plus qu'aléatoire.

essaye en utilisant l'API ShellExecute :

ShellExecute 0, vbNullString, "mailto:" & txt_Email.text, vbNullString, vbNullstring, SW_HIDE

pseudoOM · Answer

J'ai essayé ta solution mais en l'exécutant il me dit variable non définie et SW_HIDE se bleute. Y a-t-il quelque chose à rajouter pour que cela fonctionne ?

Renfield · Answer

oui ^^ il faut rajouter les déclarations d'API :

Private Const SW_HIDE As Long = 0
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

pseudoOM · Answer

ok g&#233;nial merci encore

 pseudoOM

E-mail

4 réponses

Discussions similaires