Visual Basic - enviar correo desde VB 6.0

necesito una ayuda tengo implementado este codigo para enviar correo
desde vb 6.0 pero siempre cuando lo intento ejecutar todo bien pero se me queda en la bandeja de salida..como puedo hacer para que me lo envie automaticamente sin pasar por la bandeja de salida, aqui dejo el codigo:
Call inicio_correo
mensaje.To = ""
mensaje.Subject = ""
mensaje.Attachments.Add ""
mensaje.Display

MIRA YO ESTOU HACIENDO LO MISMO PERO USO ESTAS CONTROLES
MICROSOFT MAPI CONTROL 6.0
TE PARARECEN DOS CONTROLES LOS PEGAS LOS DOS A TU FORMULARIO
YO LO MANDO EL CORREO EN FORMA INTERNA ES DECIR EL USUARIO NO INTERFIERE

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
'Redacción de Mensaje
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = CORREO
MAPIMessages1.RecipAddress = CORREO
MAPIMessages1.MsgSubject = "Solicitud de Autorizacion de Descuento"
MAPIMessages1.AttachmentPathName = ARCHIVO
MAPIMessages1.AttachmentName = ARCHIVO

cuerpo = "Adjunto detalle de Pedido Nacional, para solicitar descuento."
MAPIMessages1.MsgNoteText = cuerpo
MAPIMessages1.Send False
MAPISession1.SignOff

CUALQUIER DUDA ME ESCRIBES , OK.

Estimado amigo:
Prueba con esto:

Dim olapp As Object
Dim oitem As Object
Set olapp = CreateObject("Outlook.Application")
Set oitem = olapp.CreateItem(0)
With oitem
.Subject = "Recurso VB"
.To = "[email protected]"
.Body = "Lo que queráis decirme"
.Send
End With

Un cordial saludo