Visual Basic - Enviar correo desde Outlook express

Quisiera saber si hay alguna forma de enviar correo desde visual basic con outlook express.

¿Cómo hacer para enviar copias a varios destinatarios?
¿Algo así?
for i=1 to 3
MapiMensajes.SessionID = MapiSesion.SessionID
if i=1 then
MapiMensajes.Compose
MapiMensajes.RecipDisplayName = "[email protected]"
elseif i = 2 then
MapiMensajes.Compose
MapiMensajes.RecipDisplayName = "[email protected]"

MapiMensajes.MsgSubject = "titulo"
MapiMensajes.MsgNoteText = "CuerpoMensaje"
MapiMensajes.Send
next i

Option Explicit

Dim ret As Long
Dim sTo As String
Dim sCC As String
Dim sBCC As String
Dim sSubject As String
Dim sBody As String

sTo = "Someone"
sCC = "Someone else"
sBCC = "Someone else again"
sSubject = "Sending mail from VB with the default Mail program"
sBody = "If this works, the To, CC, BCC, and Subject should also be filled in. " _
& "I dont know if its possible to automate file attachments in this way " _
& ", or if this works with all Mail Clients, but it works OK with " _
& "Outlook Express, and should work with Mail Clients that accept the same " _
& "command line arguments."

ret = Shell("Start.exe " _
& "mailto:" & """" & sTo & """" _
& "?Subject=" & """" & sSubject & """" _
& "&cc=" & """" & sCC & """" _
& "&bcc=" & """" & sBCC & """" _
& "&Body=" & """" & sBody & """" _
& "&File=" & """" & "c:\autoexec.bat" & """" _
, 0)

Gracias por contestar.
Lo he probado, se me abre el outlook express, pero no llega a enviar correo. ¿donde es que le dices que redacte un nuevo correo?

Gracias de nuevo