Envío automático de estados ACCESS por correo electrónico
QSE
Mensajes publicados
2
Fecha de registro
Estado
Miembro
-
Philippe -
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
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
Enlaces relacionados:
- Renombrar una tabla mediante una macro en Access.
- nombres de columnas de una tabla
- ACCESS - Indica el valor MAX de una TABLE
- {Acceso} estado automático a través del formulario
- Access - El separador del campo de especificación es idéntico
- ACCESS - Problema con la clave primaria automática al agregar una tabla/consulta
2 respuestas
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.
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.
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
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
Intentaré desde este fin de semana
Atentamente,
Jean Mazauric