Visual Basic - Problemas con el outlook2000

Buenas a todos.
Estoy desarrollando una aplicación que envía mails de forma automática. Estos deben ser enviados por Outlook 2000 obligatoriamente. Tengo el siguiente código:
Dim emailOutLookApp As Outlook.Application
Dim emailNameSpace As Outlook.NameSpace
Dim emailFolder As Outlook.MAPIFolder
Dim emailItem As Outlook.MailItem
Dim EmailRecipient As Recipient

Set emailOutLookApp = CreateObject("Outlook.Application.9")
emailOutLookApp.Session.Logon
Set emailNameSpace = emailOutLookApp.GetNamespace("MAPI")
Set emailFolder = emailNameSpace.GetDefaultFolder(olFolderInbox)
Set emailItem = emailOutLookApp.CreateItem(olMailItem)
Set EmailRecipient = emailItem.Recipients.Add(Trim(email))
With emailItem
.Subject = "Envío de Informes"
fechaotra = "-" & fecha1 & "-" & fecha2 & "-" & fecha3
.Body = "Prueba" & NInf & idusuario & fechaotra
.Attachments.Add (ExportFileName)
.Send
End With
emailOutLookApp.Session.Logoff
emailOutLookApp.Quit
El problema es que con este código al generar el ejecutable me deja los mensajes en la bandeja de salida de Outlook,pero no me los envía. ¿Alguien sabe por qué puede ser?
Muchas gracias a todos de antemano

Como ya he encontrado la solución y nadie me contesta lo hago yo.
Debía ser un problema de la configuración de outlook que está puesta para que sea compatible con exchange etc, para solucionarlo después de crear el mail y dejarlo en la bandeja de entrada abro una sesión de MAPI (como lo he visto en foro) y la cierro después. Espero que le sirva a alguien.Saludos a todos