Avanzado: Exige codificar experto,
interoperabilidad y conocimientos de multiusuario.
Este Este
artículo le muestra cómo utilizar Automatización en un formulario de
Microsoft Access para iniciar Microsoft Outlook y mostrar una
pantalla de contacto nuevo para entrada. Puede cambiar sólo una
línea de código para que este ejemplo sea que se aplica a una cita
nueva de Microsoft Outlook, una entrada de Diario, un mensaje de
correo, una nota, un envío o una tarea.
Para información
acerca de cómo ejecutar Microsoft Schedule+ con automatización,
consulte el artículo siguiente en el Microsoft Knowledge Base:
147633 (http://support.microsoft.com/kb/147633/EN-US/)
ACC: cómo de MS Access que utiliza Automatización a Ejecutar
Schedule+
Este artículo presupone que está familiarizado por
usted con Visual Basic para Aplicaciones y crear aplicaciones de
Microsoft Access que utilizan las herramientas de programación
proporcionadas con Microsoft Access. Para obtener más información
acerca de Visual Basic para Aplicaciones, consulte su versión del
manual "Creación de aplicaciones con Microsoft Access"
Volver
al principio
En el ejemplo siguiente muestra cómo crear un
formulario de Microsoft Access que comienza a Microsoft Outlook
desde un botón de comando. A continuación, el código de
Automatización abre una pantalla de contacto nuevo para entrada en
Microsoft Outlook. Después de que escribe el contacto, después de
que guarda y después de que cierra el formulario de contactos, el
código de Automatización sale de Microsoft Outlook y se devuelve al
formulario de Microsoft Access.
Para ejecutar Microsoft
Outlook desde un formulario de Microsoft Access, siga estos pasos:
| 1. |
Abra la base de datos de ejemplo Neptuno.mdb.
|
| 2. |
Cree un nuevo formulario que no esté basado en
ninguna tabla o consulta de la vista Diseño Form: FrmOutlook
---------------------------
Caption: Outlook Form
Command button:
Name: RunOutlook
Caption: Start Outlook
OnClick: =StartOutlook() |
| 3. |
En el menú Ver, haga clic en Código para abrir
el módulo de formulario. |
| 4. |
En el menú Herramientas, haga clic en
Referencias. |
| 5. |
Haga clic en Microsoft Outlook 8.0 Objeto
Biblioteca en el cuadro Referencias disponibles. Si no aparece
en la lista, haga clic en el botón Examinar y busque
MSOutl8.olb que se instala de forma predeterminada en la
carpeta C:\Archivos de programa\Microsoft Office\Office.
|
| 6. |
Haga clic en Aceptar para cerrar el cuadro de
diálogo Propiedades Referencias. |
| 7. |
Escriba el procedimiento siguiente en el módulo
de código del formulario: Public Function StartOutLook()
On Error GoTo StartOutLook_Error
Dim spObj As Object, MyItem As Object
' Create a Microsoft OutLook object.
Set spObj = CreateObject("Outlook.Application")
' Create and open new contact form for input.
' You can substitute olAppointmentItem, olJournalItem, olMailItem,
' olNoteItem, olPostItem, or olTaskItem for olContactItem.
Set MyItem = spObj.CreateItem(olContactItem)
MyItem.Display
' Quit Microsoft Outlook.
Set spObj = Nothing
Exit Function
StartOutLook_Error:
MsgBox "Error: " & Err & " " & Error
Exit Function
End Function |
| 8. |
Cierre el módulo y cambie el formulario a vista
Formulario. |
| 9. |
Haga clic en el botón Inicie Outlook. Observe
que Microsoft Outlook inicia y que muestra una pantalla de
contacto nuevo. |
Volver
al principio
Para más información acerca de utilizar
Automatización con Microsoft Outlook, consulte el artículo siguiente
en el Microsoft Knowledge Base:
160502 (http://support.microsoft.com/kb/160502/EN-US/)
ACC: Utilizar Automatización para agregar citas a Microsoft Outlook
Para más información acerca de utilizar Automatización para
trabajar con otros programas, busca el índice de la Ayuda
"Automatización, introducción" o pregunta el Ayudante de Office de
Microsoft Access 97.
Volver
al principio
