Iniciar sesi�n

Select the product you need help with

Utilizar automatizaci�n para enviar un mensaje de Microsoft Outlook

Id. de art�culo: 161088 - Ver los productos a los que se aplica este art�culo

Advertencia: Art�culo de Traducci�n Autom�tica, vea la exenci�n de responsabilidad.

Haga clic aqu� para ver en paralelo el art�culo de traducci�n autom�tica y el art�culo original en ingl�s.

Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna

Avanzado: Requiere codificaci�n experto, interoperabilidad, conocimientos y multiusuario.

Expandir todo | Contraer todo

Resumen

En este art�culo se muestra c�mo utilizar automatizaci�n para crear y enviar un mensaje de Microsoft Outlook en Microsoft Access 97.

Este art�culo se supone que est� familiarizado con Visual Basic para aplicaciones y con la creaci�n de aplicaciones de Microsoft Access mediante las herramientas de programaci�n suministradas con Microsoft Access. Para obtener m�s informaci�n acerca de Visual Basic para aplicaciones, consulte el manual "Creaci�n de aplicaciones con Microsoft Access 97".

Para obtener m�s informaci�n acerca de uso de automatizaci�n para enviar un mensaje de Microsoft Exchange, consulte en contacto con el siguiente art�culo en Microsoft Knowledge Base:

153311

(http://support.microsoft.com/kb/153311/EN-US/ )

Utilizar automatizaci�n para enviar un mensaje de Microsoft Exchange

Volver al principio | Enviar comentarios

M�s informaci�n

Nota: puede que el c�digo siguiente no funcione correctamente si ha instalado la Actualizaci�n de seguridad de correo electr�nico de Outlook. Para obtener informaci�n adicional acerca de esta actualizaci�n, consulte alguno de los art�culos siguientes en Microsoft Knowledge Base, dependiendo de la versi�n de Outlook que tenga instalada:

262631

(http://support.microsoft.com/kb/262631/EN-US/ )

OL2000: Informaci�n acerca de la actualizaci�n de seguridad correo electr�nico de Outlook

262617

(http://support.microsoft.com/kb/262617/EN-US/ )

OL98: Informaci�n acerca de la actualizaci�n de seguridad de correo electr�nico de Outlook

El m�todo SendObject proporciona una forma de enviar un mensaje de correo MAPI mediante programaci�n en Microsoft Access. Sin embargo, el EnviarObjeto m�todo no le otorga acceso para completar la funcionalidad de correo, como la capacidad para adjuntar un archivo externo o establecer la importancia del mensaje. El ejemplo siguiente utiliza Automatizaci�n para crear y enviar un mensaje de correo que puede utilizar para aprovechar muchas caracter�sticas en Microsoft Outlook que no est�n disponibles con el m�todo SendObject.

Existen seis pasos principales cuando se utilice Automatizaci�n para enviar un mensaje de correo de Microsoft Outlook:

Inicializar la sesi�n de Outlook
Crear un nuevo mensaje
Agregar a los destinatarios (A, CC y CCO) y resolver sus nombres
Establecer las propiedades v�lidas, tales como el asunto, cuerpo y importancia
Agregar datos adjuntos (si hay alguno)
Mostrar y enviar el mensaje

Para enviar un mensaje de correo de Microsoft Outlook mediante programaci�n, siga estos pasos:

Cree un archivo de texto de ejemplo denominado Customers.txt en c:\Mis documentos carpeta.
Inicie Microsoft Access y abra la base de datos de ejemplo Neptuno.mdb.
Cree un m�dulo y escriba la l�nea siguiente en la secci�n Declaraciones si no aparece ya all�:
Option Explicit
En el men� Herramientas, haga clic en referencias.
En el cuadro referencias, haga clic en el modelo de objetos de Microsoft Outlook 8.0 y, a continuaci�n, haga clic en Aceptar.

Nota: Si el modelo de objetos de Microsoft Outlook 8.0 no aparece en el cuadro Referencias disponibles, busque su unidad de disco duro para el archivo Msoutl8.olb. Si no puede encontrar este archivo, debe ejecutar el programa de instalaci�n de Microsoft Outlook para instalarlo antes de continuar con este ejemplo.

Escriba el siguiente procedimiento en el nuevo m�dulo:

      Sub SendMessage(DisplayMsg As Boolean, Optional AttachmentPath)
          Dim objOutlook As Outlook.Application
          Dim objOutlookMsg As Outlook.MailItem
          Dim objOutlookRecip As Outlook.Recipient
          Dim objOutlookAttach As Outlook.Attachment

          ' Create the Outlook session.
          Set objOutlook = CreateObject("Outlook.Application")

          ' Create the message.
          Set objOutlookMsg  = objOutlook.CreateItem(olMailItem)

          With objOutlookMsg
              ' Add the To recipient(s) to the message.
              Set objOutlookRecip = .Recipients.Add("Nancy Davolio")
              objOutlookRecip.Type = olTo

              ' Add the CC recipient(s) to the message.
              Set objOutlookRecip = .Recipients.Add("Michael Suyama")
              objOutlookRecip.Type = olCC

             ' Add the BCC recipient(s) to the message.
              Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
              objOutlookRecip.Type = olBCC

             ' Set the Subject, Body, and Importance of the message.
             .Subject = "This is an Automation test with Microsoft Outlook"
             .Body = "This is the body of the message." &vbCrLf & vbCrLf
             .Importance = olImportanceHigh  'High importance

             ' Add attachments to the message.
             If Not IsMissing(AttachmentPath) Then
                 Set objOutlookAttach = .Attachments.Add(AttachmentPath)
             End If

             ' Resolve each Recipient's name.
             For Each ObjOutlookRecip In .Recipients
                 objOutlookRecip.Resolve
             Next

             ' Should we display the message before sending?
             If DisplayMsg Then
                 .Display
             Else
                 .Save
                 .Send
             End If
          End With
          Set objOutlook = Nothing
      End Sub

Para probar este procedimiento, escriba la l�nea siguiente en la ventana Depuraci�n y, a continuaci�n, presione ENTRAR.
SendMessage True, "C:\Mis Documents\Customers.txt"
Observe que se muestra un mensaje nuevo en Microsoft Outlook con datos adjuntos.

Para llamar para enviar el mensaje sin mostrar en Microsoft Outlook, al procedimiento con un valor False para el primer argumento:
SendMessage false, "C:\Mis Documents\Customers.txt"
Para enviar el mensaje sin especificar un archivo adjunto, omitir el segundo argumento al llamar al procedimiento.
True SendMessage

Volver al principio | Enviar comentarios

Referencias

Para obtener m�s informaci�n sobre c�mo utilizar automatizaci�n en Microsoft Access, buscar el �ndice de la Ayuda de automatizaci�n o pregunte el Ayudante de Office de Microsoft Access 97.

Para obtener m�s informaci�n sobre c�mo utilizar automatizaci�n para controlar Microsoft Outlook, vea los art�culos siguientes en Microsoft Knowledge Base:

160502

(http://support.microsoft.com/kb/160502/EN-US/ )

ACC: Utilizar automatizaci�n para agregar citas a Microsoft Outlook

161012

(http://support.microsoft.com/kb/161012/EN-US/ )

VBA: C�mo crear un nuevo elemento de contacto en Outlook con automatizaci�n

Volver al principio | Enviar comentarios

Propiedades

Id. de art�culo: 161088 - �ltima revisi�n: viernes, 19 de enero de 2007 - Versi�n: 3.3

La informaci�n de este art�culo se refiere a:

Microsoft Access 97 Standard Edition

kbmt kbhowto kbinterop KB161088 KbMtes

Traducci�n autom�tica

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): 161088

(http://support.microsoft.com/kb/161088/en-us/ )

Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna

El presente art�culo se escribi� para productos para los que Microsoft ya no ofrece soporte t�cnico. Por tanto, el presente art�culo se ofrece "tal cual" y no ser� actualizado.

Volver al principio | Enviar comentarios