Mandar un E-Mail llamando a la aplicacion por Default
En un Modulo colocar:
Public 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
Public Const SW_SHOW = 5
En el evento click de un boton...
Private Sub Command1_Click()
Dim X as Long
X = ShellExecute hWnd, "open", "mailto:
[email protected]", vbNullString, vbNullString, SW_SHOW
End Sub
