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]Problemas com declaração de Objeto

    Compartilhe

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco em Sex 21 Jul 2017, 15:44

    Bom dia,

    tenho um codigo no Vba que estou executando para verificar uma cx de texto, porem quando vou executá-lo ele diz que Objeto é obrigatório.

    Segue abaixo o código.

    Obs: a parte que está dando erro é a parte em destaque.

    Código:
    Public Sub enviaremail1()
    Dim sSaudacao As String
    Dim sAssunto As String
    Dim v_texto1 As String
    Dim v_texto2 As String
    Dim v_espaco As String



    box = MsgBox("Deseja enviar o Email?", vbYesNo)

    If box = 6 Then

    Set oOApp = CreateObject("Outlook.Application")
    Set oOMail = oOApp.CreateItem(oMailItem)

    If Time() < "12:00" Then
    sSaudacao = "Bom dia, <br><br>"
    ElseIf Time() < "18:00" Then
    sSaudacao = "Boa tarde, <br><br>"
    Else
    sSaudacao = "Boa noite, <br><br>"
    End If

    Código:
    If txt_nome_eng1 Is Empty Then
    v_texto1 = Forms!frmEmail_eco!txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    ElseIf txt_nome_eng2 Is Empty Then
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    Else
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    End If
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  caiosouza em Sex 21 Jul 2017, 15:57

    Tente:


    Código:
    If Me!txt_nome_eng1 Is Empty Then
    Me!v_texto1 = Forms!frmEmail_eco!txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    ElseIf Me!txt_nome_eng2 Is Empty Then
    Me!v_texto = Forms!frmEmail_eco!txt_nome_eng1 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    Else
    Me!v_texto = Forms!frmEmail_eco!txt_nome_eng1 & txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    End If


    .................................................................................
    A persistência leva ao sucesso!

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/01/2017

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco em Sex 21 Jul 2017, 17:06

    caio obrigado pela resposta, porem ele acusa um erro de uso inválido da palavra-chave Me
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  caiosouza em Sex 21 Jul 2017, 17:59

    Troca os "Me!" por "Me."


    .................................................................................
    A persistência leva ao sucesso!

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/01/2017

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco em Seg 24 Jul 2017, 11:53

    Bom dia Caio,

    fiz a alteração que me disse porem continua a mesma msg de erro.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  ahteixeira em Seg 24 Jul 2017, 12:34

    Olá a todos,

    Glauco Simoes, será que o erro está na parte destacada a azul?

    If txt_nome_eng1 Is Empty Then
    v_texto1 = Forms!frmEmail_eco!txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    ElseIf txt_nome_eng2 Is Empty Then
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    Else
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    End If


    Abraço

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/01/2017

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco em Seg 24 Jul 2017, 13:29

    ahteixeira bom dia,

    v_texto1 está declarado como String
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  ahteixeira em Seg 24 Jul 2017, 14:02

    Olá, bom dia

    E o v_texto é campo  do Form ou variável?

    If txt_nome_eng1 Is Empty Then
    v_texto1= Forms!frmEmail_eco!txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    ElseIf txt_nome_eng2 Is Empty Then
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    Else
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    End If


    Abraço

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/01/2017

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco em Seg 24 Jul 2017, 14:04

    o "v_texto" ja está corrigido, apenas esqueci de adc o numero 1 à ele, mas é a mesma variável do v_texto1.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  ahteixeira em Seg 24 Jul 2017, 14:23

    Olá, e o erro continua a dar?

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/01/2017

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco em Seg 24 Jul 2017, 14:26

    ahteixeira infelizmente sim : /
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  ahteixeira em Seg 24 Jul 2017, 14:30

    Olá,
    Talvez seja melhor postar uma base de dados com o objectos envolvidos para se testar.
    Abraço

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/01/2017

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco em Seg 24 Jul 2017, 14:36

    Segue em anexo o exemplo.
    Anexos
    db11.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 5 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  ahteixeira em Seg 24 Jul 2017, 16:31

    Olá Glauco Simoes,

    Com o projeto que postou ficou mais facil para compreender e testar.
    Se compilar (ALT+F11 ->DEBUG -> Compile), pode verificar que apresenta erros.

    Como tem o código num módulo separado o ME não funciona.
    Atualizei para o From e alterei a condição do IF com IsEmpty(...), já não apresenta o erro.
    Código:
    Option Compare Database

    Public Sub enviaremail1()
    Dim sSaudacao As String
    Dim sAssunto As String
    Dim texto1 As String
    Dim v_texto2 As String
    Dim v_espaco As String


    box = MsgBox("Deseja enviar o Email?", vbYesNo)

    If box = 6 Then
        Set oOApp = CreateObject("Outlook.Application")
        Set oOMail = oOApp.CreateItem(oMailItem)
       
        If Time() < "12:00" Then
            sSaudacao = "Bom dia, <br><br>"
        ElseIf Time() < "18:00" Then
            sSaudacao = "Boa tarde, <br><br>"
        Else
            sSaudacao = "Boa noite, <br><br>"
        End If

        If IsEmpty(Forms!frmEmail!txt_nome_eng1) Then
            texto1 = Forms!frmEmail!txt_nome_eng2 & sSaudacao & _
            "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail.txt_modelo
        ElseIf IsEmpty(Forms!frmEmail!txt_nome_eng2) Then
            texto1 = Forms!frmEmail!txt_nome_eng1 & sSaudacao & _
            "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail.txt_modelo
        Else
            texto1 = Forms!frmEmail!txt_nome_eng1 & txt_nome_eng2 & sSaudacao & _
            "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail.txt_modelo
        End If
       
        v_texto2 = "<span style='font family:""Arial"",""sans-serif"";color:#000000;'>Att,<br><br></span>"
       
        v_espaco = "<br><br><br>"
       
        sAssunto = "Cobrança  "
       
            With oOMail
                .To = Forms!frmEmail!txt_email_eng
                .CC = ""
                .Subject = sAssunto & Forms!frmEmail!txt_assunto
                .HTMLBody = Forms!frmEmail!texto1 & v_espaco & Forms!frmEmail!txt_email & v_espaco & v_texto2
                .Send
               
                Set oOApp = Nothing
                Set oOMail = Nothing
                Set Send = Nothing
               
                MsgBox ("Email enviado com sucesso!")
               
            End With
    Else
            MsgBox ("Operação cancelada!")
            DoCmd.Close
    End If
    End Sub

    Nota, devo alertar que o código ainda apresenta erros mais para a frente, verifique.
    Abraço

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/01/2017

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco em Seg 24 Jul 2017, 17:17

    ahteixeira muito obrigado pela ajuda.

    Já realizei as alterações nescessarias, porém ainda persiste um erro em que nao consigo resolver.

    Fiz uma rotina para o destinatario do email baseado na rotina que voce me mandou mas o outlook da um erro dizendo que nao reconhece um ou mais nomes.

    Código:
    If IsEmpty(Forms!frmEmail_eco!txt_email_eng1) Then
    sDestinatario = Forms!frmEmail_eco!txt_nome_eng2
    ElseIf IsEmpty(Forms!frmEmail_eco!txt_email_eng2) Then
    sDestinatario = Forms!frmEmail_eco!txt_nome_eng1
    Else
    sDestinatario = Forms!frmEmail_eco!txt_nome_eng1 & Forms!frmEmail_eco!txt_nome_eng2
    End If
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  ahteixeira em Ter 25 Jul 2017, 00:07

    Olá Glauco Simoes,
    Talvez seja melhor atualizar o exemplo da mensagem nº 13 com as alterações.
    Assim fica mais fácil para ajudar.
    Abraço

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/01/2017

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco em Ter 25 Jul 2017, 11:44

    Bom dia ahteixeira,

    segue o exemplo atualizado.

    Obrigado pela atenção.
    Anexos
    db1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 1 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  ahteixeira em Sex 28 Jul 2017, 10:47

    Olá, o seu projeto ainda apresentra erros.
    Tem campos vazios ocultos que dão o erro de Null.
    Não estou a compreender o que pretende.

    Veja este tuturial do nosso colega Avelino Sampaio se ajuda:
    usandoaccess.com.br/dicas/outlook-anexos-richtext-account.asp
    Copiar e colar no Browser

    Abraço

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/01/2017

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco em Seg 07 Ago 2017, 17:09

    Bom dia ahteixeira,

    depois de olhar o tutorial eu consegui resolver minha dúvida.

    Muito obrigado!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  ahteixeira em Seg 07 Ago 2017, 18:10

    Olá Glauco Simoes,
    Obrigado pelo retorno.
    O fórum agradece.

    Abraço

      Data/hora atual: Sab 18 Nov 2017, 13:45