MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

4 participantes

    Erro -244767259 o Outlook não reconhece um ou mais nomes.

    avatar
    m_araujo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    Erro -244767259 o Outlook não reconhece um ou mais nomes. Empty Erro -244767259 o Outlook não reconhece um ou mais nomes.

    Mensagem  m_araujo 31/7/2017, 12:09

    Bom dia!
    Caros colegas,
    alguém poderia me ajudar quanto ao erro -244767259 o Outlook não reconhece um ou mais nomes.
    Fiz todos os testes possível antes de implementar no meu projeto, e quando implemento e vou enviar o e-mail apresenta o erro acima.
    no exemplo que fiz os teste funciona perfeitamente quando vou para meu projeto não roda.
    segue o codigo que foi implementado.

    Código:

    Private Sub enviaremail_Click()
    '------------------------------------
    'Modelo Original do Mestre Avelino
    'Foi modificado e ajusta com do pessoal do ForumAccess
    'Alexandre ajudou muito.
    'O restante foi quebrando a cabeça
    '------------------------------------
    Dim objOut As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objContas As Outlook.Accounts
    Dim objAnexo As Outlook.Attachments
    Dim strCaminho As String
    Dim strmensagem As String

    On Error GoTo trataerro
    '------------------------------------
    'Cancela envio de email caso não haja
    'o destinatário
    '------------------------------------
    If Len(Me!cbemail_Solicitante & "") = 0 Then
        MsgBox "Cadastre ou selecione um e-mail do solicitante...", vbInformation, "Aviso"
        Me!cbemail_Solicitante.SetFocus
        Exit Sub
    End If
    '------------------------------
    'Ativa o outlook e o formulário
    'de envio
    '------------------------------
    Set objOut = New Outlook.Application
    Set objMail = objOut.CreateItem(olMailItem)
    Set objAnexo = objMail.Attachments
    '---------------------------------------------------------------------------
    'Preenche o formulário de envio
    'fncLerArquivo - função que Lê o arquivo de origem e grava no corpo do email
    'fncLocalBd - função que captura o local do banco de dados
    '---------------------------------------------------------------------------
    With objMail
        .To = Me!cbemail_Solicitante 'destinastário
        .CC = Nz(Me!txtCopia, "") 'com cópia
        '.BCC = Nz(Me!TxCco, "") 'Com cópia oculta
        
         strmensagem = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>"
         strmensagem = strmensagem & "<html xmlns='http://www.w3.org/1999/xhtml'>"
         '<!-- CABEÇALHO DA TABELA -->
         strmensagem = strmensagem & " <table align=center border=0 cellpadding=  0 cellspacing= 3 width=600>"
         strmensagem = strmensagem & " <tr><td align= center <font face=Verdana sytle = italic color = #656565 size =1> SGR - Sistema Gerencimento de Reserva | Para cancelar está reserva retorne o e-mail com o número da reserva. </font></td> </tr> </table>"
         '<!-- TABELA PRINCIPAL -->
         strmensagem = strmensagem & " <table Style = border-collapse: collapse bgcolor = #C4C4C4 Align = center Border = 0 cellpadding = 1 cellspacing = 1 Width =600>"
         ' solid #C4C4C4
         '<!-- HEADER -->
         strmensagem = strmensagem & " <tr> <td bgcolor = #FFFFFF border-bottom= 0 solid =#EAEAEA>"
         strmensagem = strmensagem & " <table border=0 cellpadding =0 cellspacing = 0 width=100%><tr>"
         '<!-- LOGO -->"
         strmensagem = strmensagem & " <td width=25% align=left> <img src=C:\Sgr\image\logo_new.png Border = 0 alt = Logo Width = 151 Height = 72 style=display: block;><br><br></td>"
         '<!-- Sistema de Reservas -->
         strmensagem = strmensagem & " <td Width = 75% Align = center  font <font face=Verdana color = #17365D size=5> <strong> SGR - SISTEMA GERENCIAMENTO DE RESERVAS <br>RESERVA Nº" & Me.id & "</strong></font></td></tr></table><br> </td>"
         strmensagem = strmensagem & " </tr><tr><td bgcolor = #F3F3F3 <font face=Verdana color = #555555 size=3 <br>MEU NOME,<br>Confirmação de Reservas</font><br><br></td></tr><tr>"
        
         strmensagem = strmensagem & " <table align=center border=0 cellpadding=0 cellspacing= 4 width=610 bgcolor =#1f497d>"
         strmensagem = strmensagem & " <tr>"
         strmensagem = strmensagem & " <td align=center <font face=Verdana style = itali color = #FFFFFF size= 2 > DETALHE DA RESERVA</font> </td> </tr> </table>"
         '<!--BODY CAMPOS -->
         strmensagem = strmensagem & " </tr> <tr><td bgcolor = #F3F3F3 ><table Border =0 cellpadding = 0 cellspacing =3 width=100%> <br><tr>"
         strmensagem = strmensagem & " <td  <font face=Verdana color = #555555 size=2 <strong> Número da Reserva Nº:</strong><br>" & Me.id & " <br></td>"
         strmensagem = strmensagem & " <td  <font face=Verdana color = #555555 size=2 <strong> <br> Solicitante:</strong><br> " & Me.solicitante & " </td></tr><tr>"
         strmensagem = strmensagem & " <td  <font face=Verdana color = #555555 size=2 <strong> <br> Data Solicitação:</strong><br>" & Me!data_lancamento & " </td>"
         strmensagem = strmensagem & " <td  <font face=Verdana color = #555555 size=2 <strong> <br> Data de Chega:</strong><br>" & Me!data_chegada & "</td></tr><tr>"
         strmensagem = strmensagem & " <td  <font face=Verdana color = #555555 size=2 <strong> Tipo de Adomodações:</strong><br> " & Me!Acomodacao & " </td>"
         strmensagem = strmensagem & " <td  <font face=Verdana color = #555555 size=2 <strong> Local de Refeições:</strong><br>" & Me!locais & " </td></tr><tr>"
         strmensagem = strmensagem & " <td  <font face=Verdana color = #555555 size=2 <strong> Qtd. de Visitantes:</strong><br> " & Me!qtd_ocupantes & " </td>"
         strmensagem = strmensagem & " <td  <font face=Verdana color = #555555 size=2 <strong> Número do Quarto:</strong><br>" & Me!quartos & "</td></tr><tr>"
        
         strmensagem = strmensagem & " </table>  <table Border = 0 cellpadding = 1 cellspacing = 3 width=100%> <tr> <tr>"
         strmensagem = strmensagem & " <td       <font face=Verdana color = #555555 size=2 <strong> Nome dos Ocupantes:</strong><br> " & Me!Nome_Ocupantes & "</font><br><br></td>"
         strmensagem = strmensagem & " <tr> <td  <font face=Verdana color = #555555 size=2<strong> Observações:</strong><br> " & Me.Observacoes & " </font><br><br></td></tr></td></tr></table></td></tr> </table>"
         '<!-- RODA PÉ -->
         strmensagem = strmensagem & " <table align=center border=0 cellpadding=0 cellspacing= 4 width=615 bgcolor =#1f497d>"
         strmensagem = strmensagem & " <tr>"
         strmensagem = strmensagem & " <td align=center <font face=Verdana style = itali color = #FFFFFF size= 2 > SGR - Gerencimento de Reservas | BY FERREIRA</font> </td> </tr> </table> </body> </html> </div>"
         .HTMLBody = strmensagem
         '<!-- Fim do Codigo HTML
        
         'Assunto do E-mail
         '----------------------------------------
        .Subject = Nz("#SGR - Sistema de Reserva " & Me!id)
        
        'Adicionando os anexos
        'Foi desabilitado pois não uso
        '---------------------------------
        'For j = 1 To Me!txAnexo.ListCount
        '    objAnexo.Add Me!txAnexo.Column(0, j - 1), olByValue, 1, Me!txAnexo.Column(1, j - 1)
        'Next
        '--------------------------------------------------------
        'Altera conta de envio conforme seleção do controle conta
        '---------------------------------------------------------
        .SendUsingAccount = objOut.Session.Accounts(Me!TxtEmailAtendente.Value) 'seleciona a conta que enviará o email
        '.Display 'exibe o formulário de email
        .Send 'envia o email
    End With
        MsgBox "Mensagem enviada...", vbInformation, "SGR - Sistema Gerenciamento de Reservas"

    Sair:
        '------------------------
        'Limpa a memória
        '------------------------
        Set objAnexo = Nothing
        Set objMail = Nothing
        Set objOut = Nothing
        Exit Sub
        
    trataerro:
        Select Case Err.Number
            Case 2487
                MsgBox "Selecione o relatório da lista...", vbInformation, "Aviso"
            Case 2282
                MsgBox "Os formatos PDF e XLS não estão disponíveis." & Chr(10) & Chr(13) & Chr(10) & Chr(13) & _
                "Atualize o office com o pacote SP2...", vbInformation, "Aviso"
            Case Else
                MsgBox Err.Number & vbCrLf & Err.Description
        End Select
        Resume Sair:
    End Sub

    Anexos
    Erro -244767259 o Outlook não reconhece um ou mais nomes. AttachmentExemploEnvio de E-mail pelo Access 2016 64.zip
    E este aqui foi o projeto de teste
    Você não tem permissão para fazer download dos arquivos anexados.
    (111 Kb) Baixado 7 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro -244767259 o Outlook não reconhece um ou mais nomes. Empty Re: Erro -244767259 o Outlook não reconhece um ou mais nomes.

    Mensagem  Alvaro Teixeira 31/7/2017, 13:18

    Olá Marcelo Ferreira,

    Confira a referencia no VBA, habilite a referencia Microsoft Outlook xx.x Object Library.
    Erro -244767259 o Outlook não reconhece um ou mais nomes. 014

    Abraço
    avatar
    prof.fabio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 21/10/2022

    Erro -244767259 o Outlook não reconhece um ou mais nomes. Empty Erro -244767259 o Outlook não reconhece um ou mais nomes

    Mensagem  prof.fabio 21/10/2022, 19:26

    Prezado (a) Responsável,

    Segue o relatório de frequência do aluno (a) do mês de Setembro .

    Informamos que o relatório pode apresentar eventuais inconsistências na frequência. Também ressaltamos que na semana de provas o atraso deve ser desconsiderado.

    As faltas justificadas por atestado médico na Secretaria permanecerão no relatório, mas serão tratadas internamente diferente das demais.

    Obs: Este relatório é meramente informativo, a contabilização oficial das faltas é registrada no diário de classe dos (as) docentes e disponibilizada aos responsáveis através do Boletim Escolar.

    E-mail automático, Favor não responder.
    Colégio Rio II

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8272
    Registrado : 05/11/2009

    Erro -244767259 o Outlook não reconhece um ou mais nomes. Empty Re: Erro -244767259 o Outlook não reconhece um ou mais nomes.

    Mensagem  Alexandre Neves 21/10/2022, 23:10

    Boa noite
    Bem-vindo prof.fabio
    A sua resposta tem a ver com a dúvida exposta?
    Se sim, julgo faltar esclarecimentos dos passos a fazer para orientar o colega da dúvida a chegar a esse resultado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    prof.fabio
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 21/10/2022

    Erro -244767259 o Outlook não reconhece um ou mais nomes. Empty Re: Erro -244767259 o Outlook não reconhece um ou mais nomes.

    Mensagem  prof.fabio 23/10/2022, 05:54

    Desculpe não está conseguindo enviar, acho que agora vai.

    Uso o Access e uso um comando para enviar um pdf para cada e-mail cadastrado utilizando o Outlook, só que ele começa enviar e de repente para.

    Apareceu também uma mensagem no Outlook de Problema de Sincronização> Log de Sincronização

    [url=https://servimg.com/view/20458728/2][img]https://i.servimg.com/u/f41/20/45/87/28/log11.jpg[/img][/url]



    Private Sub Comando9Mail_Click()
    Dim strArquivo As String
    Dim strLocal As String
    Dim objOut As Object
    Dim objmail As Object
    Dim objAnexo As Object
    Dim emailresponsavel As Recordset
    Dim email As String
    Dim codsql As String
    Dim matric As String
    Dim n As String

    If MsgBox("Tem certeza que deseja enviar o relatório dos últimos 30 dias para TODOS os responsáveis via e-mail?", vbYesNo) = vbYes Then

    codsql = "SELECT ALUNOS.MATRICULA, TURMA.TURMA, ENTURMADOS.NUMERO, ALUNOS.NOME, RESPONSÁVEIS.[NOME DO RESPONSÁVEL], RESPONSÁVEIS.[E-MAIL DO RESPONSÁVEL] FROM TURMA INNER JOIN ((ALUNOS INNER JOIN ENTURMADOS ON ALUNOS.MATRICULA = ENTURMADOS.MATRICULA) LEFT JOIN RESPONSÁVEIS ON ALUNOS.MATRICULA = RESPONSÁVEIS.MATRICULA) ON TURMA.CODTURMA = ENTURMADOS.CODTURMA WHERE ((RESPONSÁVEIS.[E-MAIL DO RESPONSÁVEL]) Is Not Null);"

    Set emailresponsavel = CurrentDb.OpenRecordset(codsql)

    If emailresponsavel.BOF = False Then
        emailresponsavel.MoveFirst
    End If

    n = 1

    Do While n <= emailresponsavel.RecordCount

        matric = emailresponsavel("matricula")
        Const olMailItem = 0
        Const olByValue = 1
        
        '---------------------------------------------
        'Carregando a coleção do Outlook
        'Similar ao abrir o Outlook
        '---------------------------------------------
        Set objOut = CreateObject("Outlook.application")
        '------------------------------------------------------------
        'Abrindo o formulário de email para inserir os itens de email
        'Similar ao clicar no botão NOVO do Outlook
        '------------------------------------------------------------
        Set objmail = objOut.CreateItem(olMailItem)
        '------------------------------------------------------------
        'Abrindo a opção anexo
        'Similar ao clicar no botão ANEXO do Outlook
        '------------------------------------------------------------
        Set objAnexo = objmail.Attachments
        '------------------------------------------------------------------------------
        'Indico o nome do arquivo pdf e o local que será gravado.
        'Neste exemplo gero os nomes dos arquivos, aproveitando o número da proposta,
        'ficando com o seguinte aspecto: OS00001.pdf, OS00002.pdf,...
        '------------------------------------------------------------------------------
        strArquivo = matric & ".pdf"
        strLocal = CurrentProject.Path & "\Relatórios de Acesso Enviados\" & strArquivo
        '----------------------------------------------------------------------------
        'Abre o relatório filtrado e oculto, de acordo com a OS selecionada.
        '----------------------------------------------------------------------------
        DoCmd.OpenReport "relatório de presenças semanal", acViewPreview, , "[matricula] = '" & matric & "'", acHidden
        'Gera o pdf do relatório através do comando OutputTo.
        'O mecanismo do Access reconhece que o relatório solicitado pelo OutputTo
        'já está aberto e então o OutputTo usará o relatório já aberto e filtrado.
        '----------------------------------------------------------------------------
        DoCmd.OutputTo acOutputReport, "relatório de presenças semanal", acFormatPDF, strLocal
        '---------------------------------------------
        'Fecha o relatório que está oculto
        '---------------------------------------------
        DoCmd.Close acReport, "relatório de presenças semanal"
        '-------------------------------------------------------------
        'Adiciona o arquivo pdf no anexo, capturado da pasta enviados
        '-------------------------------------------------------------
        objAnexo.Add strLocal, olByValue, 1
        
        '----------------------------------------------
        'Prenche o email com as informações necessárias
        '-----------------------------------------------
        objmail.Subject = "Frequência ao campus - informa"
        objmail.HTMLbody = "<HTML><BODY><p><strong>Prezado (a) Responsável,</strong></p> <p>Segue o relatório de frequência do aluno (a) do mês de Setembro .</p><p>Informamos que o relatório pode apresentar eventuais inconsistências na frequência. Também ressaltamos que na semana de provas o atraso deve ser desconsiderado. </p><p>As faltas justificadas por atestado médico na Secretaria Acadêmica do campus permanecerão no relatório, mas serão tratadas internamente diferente das demais. </p><p>Obs: Este relatório é meramente informativo, a contabilização oficial das faltas é registrada no diário de classe dos (as) docentes e disponibilizada aos responsáveis através do Boletim Escolar. </p><p><strong>E-mail automático, Favor não responder.<strong><br />Colégio Pedro II - Campus Humaitá II</p></BODY></HTML>"
        objmail.To = emailresponsavel("e-mail do responsável")

        '--------------------------------------------------------
        'Mostra o formulário de envio de email
        '--------------------------------------------------------
        objmail.send
        'para enviar o e-mail automático altere esta linha para: objmail.send
        
        '-------------------------------------------------------
        'Tudo já foi entregue ao Outlook; então podemos esvaziar
        'a memória do computador usada pelas variáveis objeto.
        '-------------------------------------------------------
        Set objAnexo = Nothing
        Set objmail = Nothing
        Set objOut = Nothing
        If emailresponsavel.EOF = False Then
        emailresponsavel.MoveNext
        End If
        n = n + 1
    Loop
    End If
    End Sub


    Última edição por prof.fabio em 23/10/2022, 06:06, editado 1 vez(es) (Motivo da edição : Não apareceu a minha dúvida)

      Data/hora atual: 26/1/2023, 22:30