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

    MS Access não abre seção de e-mail

    Compartilhe

    sergiojcardoso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/10/2013

    MS Access não abre seção de e-mail

    Mensagem  sergiojcardoso em 8/8/2018, 12:57

    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.

    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 <<<<<<

      Data/hora atual: 19/8/2018, 22:43