Send email via Outlook Express with VB

Please help me. I am trying to send email using Visual Basic with Outlook Express.
I have used the following code, but only works with Outlook..

Sub Send_via_E()
Dim App As Object
Dim Itm As Object

Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = "text"
.To = "eg@net.com.au"
.Body = "Please find attached"
.Attachment = "file name"
.Send
End With

End Sub

Can someone please help me with an example of code for Outlook Express.

Levonau

OE is not OE Express,So OE Express is not used by vb to sending mail!U can use the winsock to doit!
This is a code sample:Sending attachments within e-mail messages http://www.vbip.com/winsock/winsock_uucode_01.asp