AYUDA, enviar correo con adjunto

Inma
01 de Junio del 2004
Hola a todos.
Tengo un formulario con un boton que al pulsarlo quiero que me habra el outlook y me envie a una direccion que le paso con una variable un documento de excel adjunto.
Lo que hago es lo siguiente:

private sub envio_correo()
documento="c:alta.xls"
sAddedText = sAddedText & "&Subject=PARTE "
sAddedText = sAddedText & "&Body=Os envío un parte."
sAddedText = sAddedText & "&Attach=" & "'" & documento & "'"
Call ShellExecute(Me.hwnd, "open", sText, _
vbNullString, vbNullString, SW_SHOWNORMAL)
end sub

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

El outlook me lo habre correctamente, e incluso añade en el lugar correcto la direccion de correo que le paso y el titulo del mensaje, pero del documeto adjunto nada de nada.
que hago mal?
alguien sabe hacerlo de un modo + facil?
Cómo puedo agregar el documento adjunto?

gracias por adelantado

Victor Licea
01 de Junio del 2004
Hola:

Yo lo hago de una manera distinta, pero solo jala con outlook express, si te interesa avisame.