Visual Basic - Outlook Express

Hola:
¿Como puedo abrir el Outlook Express utilisando el vb y que aparesca automaticamente el PARA y el ASUNTO?
De antemano muchas gracias

Function EnviarEmail(Direccion As String, Asunto as string)
ShellExecute GetActiveWindow(), "Open", "mailto:" & Direccion & "?subject=" & Asunto, "mailto:" & Direccion, 0&, 1
End Function

donde Direccion y Asunto son variables que las llenas con los datos que deseas

esto te deja la ventana del correo abierto y el usuario debe enviarlo,no? hay alguna forma de evitar esto , que no sea utilizando mapi?