Email en campo de Access 97
Tengo una bbdd en access 97 uno de los campos es la dirección de email, como puedo hacer, si se puede, que al pinchar sobre ella se active outlook y sea ya la dirección de envío .
Gracias de antemano
Gracias de antemano
1 respuesta
Respuesta de oscarlmv
1
Te pongoi el código necesario para hacer lo que necesitas:
1º En el apartado "declaraciones" del formulario pon lo siguiente:
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
2º En el evento Click del campo de texto por lo siguiente:
Dim UnidadApp As String
Dim Noimporta As Integer
UnidadApp = Mid(CurDir, 1, 3)
Noimporta = ShellExecute(Me.hwnd, vbNullString, "mailto:[email protected]", vbNullString, UnidadApp, SW_SHOWNORMAL)
Sólo que donde pone "mailto:[email protected]" deberás poner "mailto:" & NombreDeLaCajaDeTextoDondePinchas" & """", quedando algo así:
Noimporta = ShellExecute(Me.hwnd, vbNullString, "mailto:" & NombreDeLaCajaDeTexto & """", vbNullString, UnidadApp, SW_SHOWNORMAL)
Espero que esto cubra lo que necesitas hacer, que supongo que si ya que hace exactamente lo que pides. Como verás, lo que hace este código es hacer uso de la API de windows "ShellExecute" para ejecutar el OutLook con los parámetros deseados.
Si tienes algún problema o consulta no dudes en contactarme de nuevo.
1º En el apartado "declaraciones" del formulario pon lo siguiente:
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
2º En el evento Click del campo de texto por lo siguiente:
Dim UnidadApp As String
Dim Noimporta As Integer
UnidadApp = Mid(CurDir, 1, 3)
Noimporta = ShellExecute(Me.hwnd, vbNullString, "mailto:[email protected]", vbNullString, UnidadApp, SW_SHOWNORMAL)
Sólo que donde pone "mailto:[email protected]" deberás poner "mailto:" & NombreDeLaCajaDeTextoDondePinchas" & """", quedando algo así:
Noimporta = ShellExecute(Me.hwnd, vbNullString, "mailto:" & NombreDeLaCajaDeTexto & """", vbNullString, UnidadApp, SW_SHOWNORMAL)
Espero que esto cubra lo que necesitas hacer, que supongo que si ya que hace exactamente lo que pides. Como verás, lo que hace este código es hacer uso de la API de windows "ShellExecute" para ejecutar el OutLook con los parámetros deseados.
Si tienes algún problema o consulta no dudes en contactarme de nuevo.
