• Viernes 3 de Mayo de 2024, 01:13

Autor Tema:  Re: Campos de hipervínculos  (Leído 1213 veces)

Ra

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Campos de hipervínculos
« en: Sábado 8 de Febrero de 2003, 18:47 »
0
Salud! tengo un problema y es que no sé cómo enlazar el contenido de un campo de Access con el programa de correo electrónico para que aparezca diréctamente en el campo de destinatario. Por ejemplo, si en un campo almaceno una dirección de correo electrónico, al pulsar sobre ésta, que aparezca un mensaje nuevo destinado a esta dirección.
También me gustaría saber, refiriéndonos al mismo tema, si hay alguna forma de coger todas las direcciones e incluirlas en un mismo mensaje a la vez. A tod@s gracias...

J.M.Movilla

  • Miembro MUY activo
  • ***
  • Mensajes: 427
    • Ver Perfil
Campos de hipervínculos
« Respuesta #1 en: Miércoles 19 de Febrero de 2003, 01:25 »
0
Hola:

A mí personalmente no me gusta cómo actúan los campos de tipo hipervínculo: es muy bonito el ver cómo al pulsar sobre ellos con el ratón te conectan automáticamente con Internet; pero si se trata de un correo empieza solicitando tu cuenta, tu clave... Es decir; peor que si accedes directamente...

Yo incluyo un botón que referencio a una rutina así:

Private Sub CmdLink_Click(Index As Integer)
    Dim sLink As String

    sLink = [Campo que contiene la dirección]
        ShellExecute 0, vbNullString, "mailto:" & sLink, vbNullString, _
        vbNullString, vbNormalFocus
 End Sub

En un módulo (o en la cabecera del formulario) habrás declarado esta API:

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

Y verás cómo es más efectivo este sistema.

El incorporar a todos tus contactos es también posible, pero en este momento no recuerdo cómo se hace.

Saludos