Abrir Outlook desde VB6
Erick
30 de Junio del 2008
Hola
Mi duda es como abrir Outlook desde VB6 pero sin usar el OLE además que automaticamente se escriba en el destinarario el correo que esta por ejemplo en el texto1.
Gracias.
[email protected]
Mi duda es como abrir Outlook desde VB6 pero sin usar el OLE además que automaticamente se escriba en el destinarario el correo que esta por ejemplo en el texto1.
Gracias.
[email protected]
gucesoft
30 de Junio del 2008
PARA LANZAR EL OUTLOOK U OTRAS APLICACIONES EXTERNAS DESDE VB, NECESITARÁS UTILIZAR UNA FUNCION API DE WINDOWS. (ShellExecute)
DEBERAS DECLARARLA COMO SIGUE ya sea publica o privada, en el ejemplo se declara como privada:
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
PARA UTILIZARLA, TAN SENCILLO COMO LO QUE SIGUE:
dim Correo as string
Correo = "[email protected]"
Call ShellExecute(0&, vbNullString, "mailto: " & Correo, vbNullString, vbNullString, vbNormalFocus)
Observarás como se abre directamente una ventana del Outlook en disposición de nuevo correo.
DEBERAS DECLARARLA COMO SIGUE ya sea publica o privada, en el ejemplo se declara como privada:
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
PARA UTILIZARLA, TAN SENCILLO COMO LO QUE SIGUE:
dim Correo as string
Correo = "[email protected]"
Call ShellExecute(0&, vbNullString, "mailto: " & Correo, vbNullString, vbNullString, vbNormalFocus)
Observarás como se abre directamente una ventana del Outlook en disposición de nuevo correo.