Como mostrar el Compositor del Outlook Express??

[quatress]

encontre este codigo que es exelente para lo que yo busco, pero no tiene opcion de adjutar archivos... Se puede modificar para que lo haga??

'Api ShellExecute
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

'Esta constante le indica a ShellExecute que abra _
el programa de correo con la ventana maximizada

Const SW_SHOWNORMAL = 1

'Constante para los saltos de línea o saltos de carro en el cuerpo del mensaje
Const saltoLinea As String = "%0D%0A"

Private Sub Command1_Click()

Dim InfoEmail As String
Dim Email As String
Dim Asunto As String

'Debemos terminar la cadena con el signo de interrogación
Email = "mailto:" & txtMail & "?"

Asunto = "subject=" & txtAsunto

'Los saltos de línea los debemos marcar con este juego de caractereres: %0D%0A
mensaje = Chr(38) & "body=" & Replace(txtMensaje, vbCrLf, saltoLinea)

'Unimos todo lo antrerior en la variable InfoMail
InfoEmail = Email & Asunto & mensaje

'Le enviamos a ShellExecute en el primer parámetro el hwnd del formulario _
que hace la llamada y en el tercer parámetro toda la cadena en la variable infoMAil
ShellExecute Me.hwnd, vbNullString, InfoEmail, _
vbNullString, "C:\", SW_SHOWNORMAL

End Sub