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.
|