MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    colaboradorpa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 16/07/2014

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

    Mensagem  colaboradorpa em Sex 19 Set 2014, 00:25

    Boa noite!

    Baixei esse exemplo daqui do fórum:
    [Você precisa estar registrado e conectado para ver este link.]

    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Sex 19 Set 2014, 09:46

    Ola;

    O código está correto.

    Você tem o Outlook instalado ?

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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    colaboradorpa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 16/07/2014

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

    Mensagem  colaboradorpa em Sex 19 Set 2014, 22:36

    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Sab 20 Set 2014, 09:43

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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    colaboradorpa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 16/07/2014

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

    Mensagem  colaboradorpa em Sab 20 Set 2014, 15:02

    Bom dia!

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

    vou tentar resolver...

    Obrigado pelos esclarecimentos.

    colaboradorpa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 16/07/2014

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

    Mensagem  colaboradorpa em Sab 20 Set 2014, 15:06

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

    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui 08 Dez 2016, 00:04