LFHL
A oui et pui en plus soit disant VB 2005 il y aurai 10 erreurs
Option Explicit
'
Private Const SW_SHOWNORMAL As Long = 1&
'
Private Declare Function GetDesktopWindow Lib "user32" () As Long
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
'
'
Private Sub Command1_Click()
Dim sMail As String
sMail = "toto@wanadoo.fr"
Call ShellExecute(GetDesktopWindow(), "open", "mailto:" & sMail, vbNullString, vbNullString, SW_SHOWNORMAL)
Ce qui est en rouge es ce qui est marquer comme erreurs.
Il faudra que l'on m'esplique sa.
|