Access - Ugente e-mail

Hola a todos:
El otro dia puese esta misma pregunta pero la repuesta no me sirvio como yo queria.
Lo que yo quiero es enviar un archivo PDF por e-mail como se hace con el snapshot. es decir que el cliente no tenga ni que escribir la direccion, que yo la pueda recoger desde un formulario. Acutalmente lo hago con snapshot y lo hago asi:
direc=Me.direccion
DoCmd.SendObject acSendReport, "PedidosProveedores_cons", "SnapshotFormat(*.snp)", Direc, "", "", "Envío de pedido", "Adjunto le remitimos el siguiente pedido", False, ""

Hay alguna manera de untilizar este misma sentencia o una similar para un archivo PDF.

Gracias

Yo lo hago así: (antes tienes q referenciar OTK)
Dim fec As String
Dim olkapp As Outlook.Application
Dim olknamespace As Outlook.NameSpace
Dim objmailitem As Outlook.MailItem
Dim ruta As String

'mandar mensaje
Set olkapp = New Outlook.Application
Set olknamespace = olkapp.GetNamespace("mapi")
Set objmailitem = olkapp.CreateItem(olMailItem)
With objmailitem
.To = "[email protected]"
.CC = "[email protected];" & "[email protected]"
.Recipients.ResolveAll
.Subject = "Contratos"
.Body = " Hola,aqui va el informe de hoy"
.Attachments.Add ruta & "\Carga_Contratos" & fec & ".txt", olByValue, 1, "Contratos" & fec
.send

End With