Comunicación con Outlook

Continuando con la interacción entre los distintos programas de Microsoft con Excel esta vez le toca el turno a Outlook.

El procedimiento que viene a continuación nos permite crear mensajes (mails) Outlook y enviar el libro activo como dato adjunto.

Antes de ejecutar el procedimiento deberemos de seleccionar la referencia Microsoft Outlook 14.0 Object Librery desde el menú herramientas.

A continuación copiamos el procedimiento en un modulo.

Sub EnviarCorreo()

Dim appOutlook As Outlook.Application

Dim mensage As Outlook.MailItem

Set appOutlook = CreateObject("outlook.application")

Set mensage = appOutlook.CreateItem(olMailItem)

With mensage

    .Subject = "Prueba"

    .Body = " Prueba con datos adjuntos..... "

    .BodyFormat = olFormatHTML

    .Recipients.Add ("Nombre1")

    .Recipients.Add ("Nombre2")

    .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name

    .Display

    .Send

End With

appOutlook.Quit

Set appOutlook = Nothing

End Sub

Para probar el ejemplo debes remplazar la palabra nombre(x) por nombres que figuren en la lista de contactos de Outlook.

De este procedimiento cabe destacar el método CreateItem (olMailItem)   que crea un nuevo elemento (mensaje de correo electrónico) de Microsoft Outlook.


El resto de propiedades y métodos no nos extenderemos más ya que los hemos utilizado en otras ocasiones…