Visual Basic - Mandar Mail desde VB6.0

hola nesecito ayuda.
Mira estoy haciendo un programa pero quiero que cuando se conecte a internet se pueda registrar automaticamente via mail lo que nesecito es como le puedo hacer para que envie el mail sin autorizacion del usuario y sin que salga la clasica pantalla del outlook si me puedes ayudar te lo agradecere mucho.

Public Sub Mail(ByVal sTo As String, ByVal sSubject As String, ByVal sBody As String)
On Error GoTo Error_Mail

Dim olApp As Object
Dim olMensaje As Object

Set olApp = New Outlook.Application
Set olMensaje = olApp.CreateItem(olMailItem)

olMensaje.To = sTo
olMensaje.Subject = sSubject
olMensaje.Body = sBody
olMensaje.Send

Set olMensaje = Nothing
Set olApp = Nothing

Error_Exit:
Exit Sub

Error_Mail:
MsgBox Error$
Resume Error_Exit

End Sub