Bom dia pessoal.
Tenho uma aplicação que, ao clicar um botão em um formulário dispara um "procedimento de evento" que abre o gerenciador de email do usuário já com o relatório a ser enviado como anexo.
Funcionava perfeitamente em qualquer versão do windows até o dia 02/08/18.
Agora, as máquinas que tem windows 7 não envia mais e emite o seguinte erro:
"O MS Access não pode abrir a seção de e-mail"
Alguém sabe me dizer a rezão?
O código que estou usando é este.
Desde já agradeço
>>>>>> É SEMPRE BOM TER AMIGOS <<<<<<
Tenho uma aplicação que, ao clicar um botão em um formulário dispara um "procedimento de evento" que abre o gerenciador de email do usuário já com o relatório a ser enviado como anexo.
Funcionava perfeitamente em qualquer versão do windows até o dia 02/08/18.
Agora, as máquinas que tem windows 7 não envia mais e emite o seguinte erro:
"O MS Access não pode abrir a seção de e-mail"
Alguém sabe me dizer a rezão?
O código que estou usando é este.
- Código:
Private Sub Imagem66_Click()
On Error GoTo Err_Imagem66_Click
Dim stDocName As String
para = Me.E_mail
numNota = Me.NotaFiscal
assunto = "Certificado da Qualidade"
Mensagem = "Caro Cliente" & Chr(13) & Chr(13) & _
"Segue anexo o certificado da qualidade dos produtos referentes a nossa nota fiscal nº " & numNota _
& Chr(13) & Chr(13) & "Cordialmente,"
'modelo = "C:\Users\Sergio\Documents\Consultorias\Torres\TesteTorres.htm"
If Me.KgPç = 0 Then
stDocName = "CertificadoImpressão"
Else
stDocName = "CertificadoImpressãoOutros"
End If
DoCmd.SendObject acReport, stDocName, "*.pdf", para, , , assunto, Mensagem
Exit_Imagem66_Click:
Exit Sub
Err_Imagem66_Click:
MsgBox Err.Description
Resume Exit_Imagem66_Click
End Sub
Desde já agradeço
>>>>>> É SEMPRE BOM TER AMIGOS <<<<<<