Visual Basic para Aplicaciones - Ejecutar Correo

Hola a todos:

Alguien sabe como se puede realizar un programa para que al mandarle un E-mail a un usuario se ejecute el atachment con el solo hecho de seleccionarlo.

Gracias

La verdad no sé como crear un mail con VB pero sé como puedes ejecutar el correo predeterminado (como el Outlook). Aquí va:

For i = 1 To Contactos.Recordset.RecordCount
If (i = 1) And (consulta_c.Contactos.Recordset.Fields("Correo Electrónico") <> "") Then
Correo = Correo & Contactos.Recordset.Fields("Correo Electrónico")
End If
If i > 1 And (consulta_c.Contactos.Recordset.Fields("Correo Electrónico") <> "") Then
Correo = Correo & "," & Contactos.Recordset.Fields("Correo Electrónico")
End If

Contactos.Recordset.MoveNext
Next

RetVal = Shell("start mailto:" & Correo, 0)

' Correo es la lista de correos