[Resolvido]Email com anexo via Outlook não enviando

Caros amigos,

Estou utilizando a rotina abaixo, com algumas adaptações, para enviar automaticamente email via outlook. O problema é que quando retiro a última linha(.display), para não abrir a janela do Outlook para edição, simplesmente o email não é enviado. Será que algum dos amigos pode me ajudar? Desde já obrigado a todos.
(Utilizo: Windows XP, Access 2003, Outlook 2003)

Aqui tem um bd de exemplo para facilitar a ajuda:
http://www.4shared.com/office/k1jW6dIR/file.html

'===========início do código=============
Dim Out As Outlook.Application
Dim NS As Outlook.NameSpace
Dim Folder As MAPIFolder
Dim Mens As MailItem
Dim objOutlookRec As Outlook.Recipient

Set Out = New Outlook.Application
Set NS = Out.GetNamespace("MAPI")
Set Folder = NS.GetDefaultFolder(olFolderInbox)
Set Mens = Folder.Items.Add

With Mens
Set objOutlookRec = .Recipients.Add("Destinatário")
.BCC = "Incluir aqui um segundo destinatário se for o caso" ‘Destinatário com cópia oculta
.Body = "Incluir aqui texto da Mensagem"
.Subject = "Incluir aqui o Assunto da Mensagem"
.Attachments.Add ("Incluir aqui o arquivo a ser anexado (caminho completo)")
.Display

End With
'===================fim do código===========

Olá! Que tal enviar por CDO? O ponto positivo é que se o pc não tiver o OutLook ou outro gerenciador de email, ele funcionará normalmente. Veja se consegue aproveitar o módulo desse exemplo.

Amigo Criquio, obrigado pela pronta resposta. Não tenho muito conhecimento em VBA, mas baixei seu exemplo, fiz as alterações no código e funcionou perfeitamente. E o melhor, não vou precisar configurar o Outlook no cliente.
Agora é só fazer as adaptações necessárias e problema resolvido!!

Muito obrigado!

Amigo,
Dá uma olhada neste tópico que tem a solução.
http://maximoaccess.forumeiros.com/t6584-duvida-com-rotina-de-envio-de-emails

Espero ter ajudado,

Obrigado Samtastico,

O exemplo do Criquio atendeu perfeitamente minha necessidade, mas de qualquer forma vou dar uma olhada no seu código.

Mais uma vez, muito obrigado.