MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 8/8/2018, 08: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 <<<<<<
    avatar
    PepeTuga
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  PepeTuga 8/9/2018, 18: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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 9/9/2018, 21: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.
    avatar
    PepeTuga
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  PepeTuga 11/9/2018, 18:21

    viva!
    Obrigado pelo retorno.
    Cumps,
    PepeTuga

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 22:17