Puedes utilizar MAPI, fijate en http://my.execpc.com/~dg/tutorial/howmapi/howmapi.htm que tienes un pequeño tutorial.
O también SMTP, fijate en: http://www.freevbcode.com/ShowCode.Asp?ID=109
Para enviar el archivo plano como texto del mensaje puedes usar la función:
Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long
hlngFile = FreeFile
Open FileName For Binary Access Write As hlngFile
Put hlngFile, , StringText
Close hlngFile
StringToFile = FileLen(FileName)
End Function