MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9701
    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9701
    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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: Seg 20 Nov 2017, 13:38