[Resolvido]Envio de e-mail só é realizado se abrir o outlook manualmente

Olá a todos do forum!
Fiz uma busca para saber como enviar um e-mail direto do forum e achei esse código muito, que está muito bom, envia normal e com as alterações que fiz, porém o e-mail só é enviado mesmo se eu abrir o outlook
e posso notar que os e-mails enviado do formulário estão na caixa de saida e só então o outlook envia.

Como faço para que não seja necessário abrir o outlook manualmente para enviar?
Obrigado!

Exemplo do código (que é do mestre JPaulo!):

Private Sub rtlAvisoDeVencimento_Click()
Dim appOutlook As Object
Dim olMail As Object
Dim strArquivo As String
Dim strLocal As String
Dim FSO As Object

'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject("Outlook.Application")

If appOutlook Is Nothing Then
   Set appOutlook = CreateObject("Outlook.Application")
   End If

On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
.To = Me.SOCIO_EMAIL.Value
.CC = ""
.Subject = "Aviso de vencimento de reserva para: " & Me.txtSOCIO_NOME

.HTMLBody = "Teste de envio para " & Me.txtSOCIO_NOME

.Display 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar

End With

MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"

End Sub

fSouza boa noite!
Tente assim:

Private Sub rtlAvisoDeVencimento_Click()
Dim strArquivo As string
Dim strLocal As string
Dim objOut As Object
Dim objmail As Object
Dim objAnexo As Object
Const olMailItem = 0
Const olByValue = 1

Set objOut = CreateObject("Outlook.application")

If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If

On Error GoTo 0

Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail

With olMail
.To = Me.SOCIO_EMAIL.Value
.CC = ""
.Subject = "Aviso de vencimento de reserva para: " & Me.txtSOCIO_NOME

.HTMLBody = "Teste de envio para " & Me.txtSOCIO_NOME

.Display 'Se trocar ".Send" por ".Display" ele mostra email antes de enviar

End With

MsgBox "Email@ enviado com sucesso.", vbInformation, "Email"

End Sub

Caro Lupércio, obrigado pela ajuda, mas ainda só envia se eu abrir o Outlook, a mensagem fica para na cx de saída e qdo abro o outlook dai ele envia!

Mestre Avelino!
Fiz um mix com seu código e o outro que estava usando e utilizei a função que verifica se o Outlook está aberto ou não, assim tive um paliativo para o problema, mas tem só uma coisa que estou com duvida ainda:
Uso o Access e outlook 2013.

Ainda persiste o seguinte:
Na função que chama o outlook caso esteja fechado está setado para que seja minimizado e sem foco, mas qdo clico a janela do outlook toma a frente do access e depois abre o campo da mensagem!

Obrigado, vou estudar o exemplo e aplicar!!

Fábio, conseguiu resolver?

Aguardamos...

Resolvido, muito obrigado