Início
m_araujo 31/7/2017, 12:09Bom 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.
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 8 vez(es)
