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

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

    Compartilhe

    m_araujo
    Intermediário
    Intermediário

    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.

    Mensagem  m_araujo em Seg 31 Jul 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
    ExemploEnvio 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 2 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 31 Jul 2017, 13:18

    Olá Marcelo Ferreira,

    Confira a referencia no VBA, habilite a referencia Microsoft Outlook xx.x Object Library.
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Abraço

      Data/hora atual: Qui 21 Set 2017, 02:36