[Resolvido]Erro no módulo do Exemplo de Alerta de Aniversariantes do JPaulo

Boa noite!

Baixei esse exemplo daqui do fórum:
http://maximoaccess.forumeiros.com/t795-alerta-de-aniversariantes-envia-email-automatico?highlight=Alerta+Aniversariantes+envia

Porém está dando um erro no módulo... tá faltando alguma coisa


Public Sub AlertaAniversariantes()
'By JPaulo ® Maximo Access 2009
   Dim rst As DAO.Recordset
   Dim strData As Date
   Dim strConcaneta As String
   Dim objNewMail As MailItem
   Dim Origem As String, Caminho(4) As String, pula As String

   pula = Chr(10) & Chr(13)
   
   'insere na variavel a data de hoje
   strData = Date
   'abre o recordset da consulta
   Set rst = CurrentDb.OpenRecordset("SELECT * FROM qryAniversarios")
   'se não existirem aniversariantes, saí com o Exit Sub
   If rst.EOF Then
       Exit Sub
   Else
   'se existirem aniversariantes, limpa a variavel de concanetação dos Nomes
       strConcaneta = ""
       Do Until rst.EOF
           strConcaneta = strConcaneta & vbCrLf & rst!Nome
           rst.MoveNext
       Loop
    'emite mensagem dos aniversariantes
       MsgBox "Hoje estão de Parabéns:" & vbCrLf & strConcaneta, vbInformation
    'monta o email para envio
       Call InitializeOutlook
Set objNewMail = gOLApp.CreateItem(olMailItem)
       With objNewMail
           .To = "jpaulo65@gmail.com"
           .Body = "Hoje estão de Parabéns:" & vbNewLine & strConcaneta
           .Subject = "Aniversariantes Hoje: " & " " & Date
        'envia o email
       .Send 'Acredito que esteja faltando alguma coisa aqui nesta linha de comando
       End With
   End If
End Sub

Ola;

O código está correto.

Você tem o Outlook instalado ?

Essa versão do exemplo, até no Access 2010 funciona pleno.

eu tenho o Outlook 2010...

Então talvez seja algum problema de configuração nele...

Achei que fosse no código, pois o mesmo pede pra depurar e vai pra linha de comando que eu coloquei no comentário do post anterior.

Quando executo o formulário frmExemplo, aparece o aniversariante do dia, mas quando clico em Ok, dá "erro de definição de aplicativo ou de definição de objeto", pede pra depurar e vai pra linha de código:

        'envia o email
       .Send 'Aqui que dá o erro, não estaria faltando alguma coisa aqui antes do ponto final não JPaulo?
       End With
   End If
End Sub

Não falta nada não é mesmo como está e funciona redondo.

Bom dia!

Deve ser algum problema de configuração aqui então...

vou tentar resolver...

Obrigado pelos esclarecimentos.

JPaulo, sem querer abusar, você poderia me ajudar em um outro tópico?

http://maximoaccess.forumeiros.com/t20295-inserir-foto-em-um-formulario-e-visualiza-las-em-um-relatorio