Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

Cómo: Cambiar los valores en un campo de hipervínculo de una dirección HTTP a una dirección MAILTO en Microsoft Access 2000

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

Haga clic aquí para ver el artículo original (en inglés): 323202
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Moderada: Requiere macro básico, codificación y las capacidades de interoperabilidad.

Este artículo se aplica únicamente a las bases de datos de Microsoft Access (.mdb).

En esta tarea

Resumen
Si escribe una dirección de correo electrónico en un campo hipervínculo, la dirección predeterminado es una dirección HTTP para el vínculo. Por tanto, si escribe alguien@example.com , lo que realmente se almacena en la base de datos es someone@example.com#http://someone@example.com#

Este es el comportamiento esperado debido a un campo hipervínculo se compone de dos partes: el texto mostrado y la dirección real. Dado que el tipo de campo es un hipervínculo, Access asume que el texto que se ha especificado será un sitio Web y no una dirección de correo electrónico.

Para cambiar esta configuración para que haga clic en el hipervínculo y enviar correo electrónico, puede utilizar el método 1 o el método 2 mencionado anteriormente. = Ambos métodos actualizan sólo los registros existentes.

Para automáticamente formato de datos que se escriben en la base de datos, puede utilizar el "cómo para almacenar un correctamente formato correo electrónico dirección automáticamente" que se menciona anteriormente.back to the top

método 1

Utilizar una consulta de actualización para cambiar la dirección HTTP a una dirección MAILTO

  1. Crear una consulta en la vista Diseño que se basa en la tabla que tiene las direcciones de correo electrónico.
  2. Incluir sólo el campo de correo electrónico de la tabla en la cuadrícula de diseño de la consulta.
  3. En el menú consulta , haga clic en Consulta de actualización . Esto agrega la fila Actualizar a la cuadrícula de diseño de consulta.
  4. En la fila Actualizar A , escriba la expresión siguiente. Reemplace [correo Field] con el nombre del campo correo electrónico:
    IIf (Left([Mail Field],8) <> "# mailto:","#mailto:" & izquierda ([campo de correo,] InStr(1,[Mail Field],"#")-1), [correo Field])
  5. En el menú archivo , haga clic en Guardar . Guarde la consulta como qryUpdateHyperlink .
  6. En el menú consulta , haga clic en Ejecutar . Tenga en cuenta que recibirá un mensaje que indica cuántas filas (registros de la tabla) se actualizarán. Haga clic en para actualizar los registros.
back to the top

método 2

Utilizando Visual Basic para aplicaciones de código para cambiar la dirección HTTP a una dirección MAILTO

Nota : el ejemplo de código en este artículo se utiliza Microsoft Data Access Objects. Para que este código funcione correctamente, debe hacer referencia a la biblioteca de objetos Microsoft DAO 3.6. Para ello, haga clic en referencias en el menú Herramientas en el Editor de Visual Basic y asegúrese de que la casilla de verificación de Biblioteca de objetos Microsoft DAO 3.6 está activada.

  1. Cree un nuevo módulo y asígnele el nombre basUpdateHyperlinkToMail .
  2. Escriba o pegue el código siguiente en el módulo:
    Sub UpdateHyperlinkToMail()On Error GoTo Err_UpdateHyperlinkToMail    Dim DB As DAO.Database    Dim RS As DAO.Recordset    Dim strMail As String        Set DB = CurrentDb    Set RS = DB.OpenRecordset("E-mail Table", dbOpenDynaset)        With RS        If .RecordCount > 0 Then .MoveFirst        Do Until .EOF            If Not IsNull(![Hyperlink Field]) Then                If Left(![Hyperlink Field], 8) <> "#mailto:" Then                    strMail = "#mailto:" & Left(![Hyperlink Field], _                    InStr(1, ![Hyperlink Field], "#") - 1) & "#"                    .Edit                        ![Hyperlink Field] = strMail                    .Update                End If            End If            .MoveNext        Loop    End With    MsgBox "Update complete!"    Exit_UpdateHyperlinkToMail:    RS.Close    Set RS = Nothing    Set DB = Nothing    Exit Sub    Err_UpdateHyperlinkToMail:    MsgBox "Error: " & Err.Number & " - " & Err.Description    Resume Exit_UpdateHyperlinkToMailEnd Sub					
  3. Reemplace el texto "Tabla de correo electrónico" en el código con el nombre correcto de la tabla y reemplace todas las instancias del texto [campo de hipervínculo] con el nombre del campo que tiene las direcciones de correo electrónico.
  4. Haga clic en el puntero en algún lugar en este procedimiento y, a continuación, presione F5 para ejecutar el código.
back to the top

almacenar automáticamente una dirección de correo electrónico con formato correctamente



En el futuro, si desea almacenar las direcciones de correo electrónico que se escribe como un vínculo de correo electrónico en lugar de un hipervínculo a una página, siga estos pasos. Este proceso requiere que se introducen los datos a través de un formulario.
  1. Abra el formulario de entrada de datos en la vista Diseño.
  2. Haga clic en el campo que se utiliza para introducir la dirección de correo electrónico y, a continuación, haga clic en Propiedades.
  3. En el cuadro de diálogo Propiedades , haga clic en la ficha evento .
  4. Haga clic en el cuadro de propiedad AfterUpdate , haga clic en la flecha y, a continuación, haga clic en [Procedimiento de evento] en la lista.
  5. Haga clic en el botón Generar (...) para iniciar el Editor de Visual Basic.
  6. Lo que ve en el Editor de Visual Basic depende del nombre del campo correo electrónico. Por ejemplo, si el nombre del campo correo electrónico es Text0, verá lo siguiente:
    Private Sub Text0_AfterUpdate()End Sub
  7. Escriba o pegue las dos siguientes líneas de código entre las dos líneas de código que se muestra en el paso 6. Asegúrese de reemplazar [Text0] por el nombre del campo.
    If Len(Me![Text0]) = 0 Then Exit Sub Me![Text0] = "#mailto:" & Left(Me![Text0], InStr(1, Me![Text0], "#") - 1) & "#"
    cuando ahora se introduce una dirección de correo electrónico en este campo, es automáticamente con formato y almacena como una dirección de correo electrónico tan pronto como enfoque se ha movido fuera de este campo.
back to the top
inf acc2000 activar en reemplazar

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 323202 - Última revisión: 12/07/2015 11:11:23 - Revisión: 4.1

Microsoft Access 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto kbhowtomaster KB323202 KbMtes
Comentarios