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

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

    Compartilhe

    sergiojcardoso
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  sergiojcardoso em 8/8/2018, 11: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 <<<<<<

    PepeTuga
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 91
    Registrado : 17/10/2013

    Re: [Resolvido]MS Access não abre seção de e-mail

    Mensagem  PepeTuga em 8/9/2018, 21:08

    Viva!
    A alteração para o Windows 7 pode ter alterado a biblioteca de referências do Access.
    Verifique no Visual Basic>>Tools>>References se a referência "Microsoft Outlook 14.0 Object Library" (ou outra correspondente ao seu sistema operativo) está ativa?
    O problema poderá estar aí.
    Cumps,
    PepeTuga

    sergiojcardoso
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  sergiojcardoso em 10/9/2018, 00:56

    Olá Pepe.

    Era exatamente isso.
    Houve uma atualização feita de estalo pela MS no windows 7 pra atender uma demanda por causa da nova NFe.
    Ai, saiu um monte de coisas erradas. Tipo, mexeu aqui, estragou ali.
    Mas já lançaram outra atualização e o problema, assim como vei partiu ninguem sabe pra onde...
    Obrigado pela força.

    PepeTuga
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 91
    Registrado : 17/10/2013

    Re: [Resolvido]MS Access não abre seção de e-mail

    Mensagem  PepeTuga em 11/9/2018, 21:21

    viva!
    Obrigado pelo retorno.
    Cumps,
    PepeTuga

      Data/hora atual: 15/10/2018, 19:50