[Resolvido]Problemas com declaração de Objeto

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

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

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

Troca os "Me!" por "Me."

Bom dia Caio,

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

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

ahteixeira bom dia,

v_texto1 está declarado como String

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

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

Olá, e o erro continua a dar?

ahteixeira infelizmente sim : /

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

Segue em anexo o exemplo.

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

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

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

Bom dia ahteixeira,

segue o exemplo atualizado.

Obrigado pela atenção.

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

Bom dia ahteixeira,

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

Muito obrigado!

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

Abraço