Attachar un Informe a un mensaje outlook

Pasate por el almacen de mi pagina que tienes ejemplos en la caroeta Bases
de Datos.


"andrés" escribió en el mensaje
news:02e401c39489$fd9c86b0$
Hola a todos:

Me gustaría saber como realizar un attach a un mensaje de
outlook. El código de creación del mensaje que estoy
utilizando es el siguiente:

Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Dim myRecipient As Outlook.Recipient
Dim myAttachments As Outlook.Attachments
Dim Report As Report

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
Set myRecipient = myItem.Recipients.Add
("")
myRecipient.Type = olTo
myItem.Send

Muchas gracias por adelantado
PD: he intentado definir un report del tipo report que
quiero enviar, pero este no lo veo en la ventana del
proyecto cuando se me abre el VB.