Ver originales (Francés)

Envío automático de estados ACCESS por correo electrónico

QSE Mensajes publicados 2 Fecha de registro   Estado Miembro -  
 Philippe -
Hola a todos,
Bueno, estoy “manipulando” con Access. Pero estoy atascado serio con el problema siguiente: Edito periódicamente un informe, mostrando datos ordenados por página, por nombres de personas. Estas hojas se envían por correo. Quiero enviarlas por correo electrónico, y no encuentro soluciones para enviar la página correspondiente a una persona a su dirección de correo electrónico, salvo enviando todo el documento mediante la acción “sendObject” de las macros. ¿O entonces, cómo automatizar este envío desde una tabla de las personas con un correo electrónico?
Gracias por cualquier ayuda.
Atentamente,
JM

2 respuestas

  1. Jacques
     
    Hola,
    Aquí está la acción al hacer clic necesaria para activar la función situada más abajo. Según mi documentación, este código es adecuado para Outlook 2000.
    He podido verificar que todo funciona correctamente en ACCESS 2000 + Outlook 2000.
    ¿Tal vez pueda usted adaptar todo a su contexto? Tú decides si es pertinente en tu caso.

    _________________
    Private Sub ContactOutlook_Click()
    'Abre un contacto de Outlook para esta asignación.

    If Not IsNull(DestinéA) Then
    AbrirContactoOutlook DestinA.Column(1)

    End If

    End Sub
    _______________________

    Public Sub OuvrirContactOutlook(strFullName As String)
    'Abre un contacto de Microsoft Outlook para el nombre especificado.

    Dim appOutlook As New Outlook.Application
    Dim nsOutlook As NameSpace
    Dim mfContacts As MAPIFolder
    Dim ciContact As ContactItem

    'Abre la carpeta Contactos por defecto de Outlook.
    Set nsOutlook = appOutlook.GetNamespace("MAPI")
    Set mfContacts = nsOutlook.GetDefaultFolder(olFolderContacts)

    'Busca el contacto llamado en la columna DestinéA.
    Set ciContact = mfContacts.Items.Find("[FullName] = " & strFullName)

    'Si el contacto no existe, crea un nuevo contacto.
    If ciContact Is Nothing Then
    Set ciContact = mfContacts.Items.Add
    ciContact.FullName = strFullName
    End If

    'Abre la ventana de Contacto de Outlook.
    ciContact.Display

    End Sub
    ________________
    Atentamente
    La ciencia no hace más que encontrar lo que existe desde siempre.
    Hubert REEVES.
    2
    1. QSE Mensajes publicados 2 Fecha de registro   Estado Miembro
       
      Gracias.
      Intentaré desde este fin de semana
      Atentamente,
      Jean Mazauric
      0
  2. Philippe
     
    Hola,

    Tengo el mismo problema que JM, que data del 31 de agosto de 2006, a saber: << Edito periódicamente un estado, mostrando datos ordenados por página, por nombres de personas. Estas hojas se envían por correo. Quiero enviarlas por correo electrónico, y no encuentro soluciones para enviar la página correspondiente a una persona a su dirección de correo electrónico. ¿Cómo automatizar este envío a partir de una tabla de personas que tienen un correo electrónico? >>

    No entiendo la respuesta dada a JM.

    ¿Podrías aclararme este tema?

    Gracias por toda la ayuda.

    Atentamente

    Philippe
    0