Outlook abre depois fecha e não envia e-mail

companheiros boa noite, estou usando este código do JPaulo"

' JPaulo ® 2008
Public Function InitializeOutlook() As Boolean
On Error GoTo Init_err
Set gOLApp = CreateObject("Outlook.application")
Set gOLNameSpace = gOLApp.GetNamespace("MAPI")
init_Bye:
InitializeOutlook = True
Exit Function

Init_err:
InitializeOutlook = False

End Function

Bem através de um click no botão, de um relatório eu abro o Outlook e o formulário de envio de e-mail.
o Outlook abre normal, mas quando clico em Enviar ai ele fecha e não envia o e-mail.

Alguém dos senhores podem me dar uma luz?

Não está faltando algo no código não? Não vi nenhuma linha que envie o email. Ao que parece, o código está abrindo o Outlook e logo após está saindo da função por causa do Exit Function que você colocou.

Cliquio boa noite!

Estou usando no clique do botão do relatório.

Se eu abrir manualmente o oltlook envia perfeitamente.

Agora no clique do botão ele abre só a clicar em enviar ele fecha.

Call AbreOutlook

Dim x As String, y As String, z As String

x = "Leituras PCH Marcol"
y = "Relatório de leituras diárias"



On Error Resume Next
DoCmd.SendObject acReport, "RIMPgg1", acFormatPDF, "joao.gregio@eletrobrasrondonia.com", "COI-AT@ceron.com.br", "lupercio_azarias@hotmail.com", "Relatório das Leituras horárias PCH Marcol Grupo Gerador 001", "", True, ""

Desculpe cliquio mandei o código errado... é este que estou usando!

Public Function AbreOutlook() As Boolean
On Error GoTo Init_err


Dim Olook As Outlook.Application
Set Olook = CreateObject("Outlook.Application")

Dim ns As Outlook.NameSpace
Dim Folder As Outlook.MAPIFolder

Set ns = Olook.GetNamespace("MAPI")
Set Folder = ns.GetDefaultFolder(olFolderInbox)

Olook.Explorers.Add Folder

'faz o que tem que fazer

Olook.Quit
Set Olook = Nothing

End Function

Se alguém puder dar uma força eu agradeço, um bom dia á todos!

Bem, eu nunca usei o ol para enviar mensagens pelo Access ou pelo VB, por isso não posso dizer exatamente o que se está a passar.

Ta certo Criquio obrigado...

up