jueves, 26 de enero de 2012

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…


No hay comentarios:

Publicar un comentario

Nota: solo los miembros de este blog pueden publicar comentarios.