by Md.Mafuzul Islam Mafuz (7 Submissions)
Category: Windows API Call/Explanation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 1st April 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
EXECUTE YOUR DEFAULT EMAIL APP
API Declarations
Private Const SW_SHOWNORMAL = 1
'EXECUTE YOUR DEFAULT EMAIL APP '
'MD.MAFUZUL ISLAM MAFUZ '
'WEB:www.mafuz.com '
'E-mail:[email protected]'
'BANGLADESH '
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 Const SW_SHOWNORMAL = 1
'//SHELLEXECUTE:The ShellExecute
'function opens or prints a specified file.
'The file can be an executable file or a
'document file.
'//SW_SHOWNORMAL = 1:Activates and displays a
'window. If the window is minimized or
'maximized, Windows restores it to its
'original size and position. An application
'should specify this flag when displaying the
'window for the first time.
Public Sub LABEL1_Click()
'//ShellExecute(
'hwnd>> handle to parent window
'lpOperation>> pointer to string that specifies operation to perform
'lpFile>> pointer to filename or folder name string
'lpParameters>> pointer to string that specifies executable-file parameters
'lpDirectory>> pointer to string that specifies default directory
' nShowCmd>>whether file is shown when opened
')
ShellExecute hwnd, vbnullsring, _
"mailto:[email protected]", vbNullString, _
vbNullString, SW_SHOWNORMAL
End Sub