Visual Basic - MAPI

quiero mandar un correo desde VB6 utilizando mapi, se como hacerlo pero no se como adjuntar un PDF al correo del cual tengo su ruta, ¿Como puedo adjuntarlo?

Gracias por adelantado

El CommandDialog tiene nombre de CD1 en el siguiente ejemplo:

file = cd1.FileTitle
ruta = cd1.FileName

MAPIMessages1.AttachmentName = file
MAPIMessages1.AttachmentPathName = ruta
MAPIMessages1.AttachmentPosition = 0 MAPIMessages1.AttachmentType = 0
MAPIMessages1.AddressResolveUI = False MAPIMessages1.ResolveName
MAPIMessages1.Send False

AttachmentPathName : Adjunta el archivo en tu caso el PDF, ruta.

Suerte.