MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Enviar e-mail anexo

    Compartilhe

    VitorBraz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/07/2011

    Enviar e-mail anexo

    Mensagem  VitorBraz em Sab 02 Abr 2016, 01:16

    Galera, eu tenho um código bem simples para enviar e-mail que sempre me atendeu de forma perfeita, porém agora tenho duas máquinas que simplesmente ao clicar no botão que roda o código o access fecha sem dar nenhum erro, e não é sempre que acontece, fiz de tudo e não consegui resolver.
    meu código pega e-mail de uma tabela, anexa um relatório em formato PDF, gostaria de saber se tem algo de errado no código que pontualmente faz o access fechar, ou se tem outro código que faça a mesma coisa nessa simplicidade.


    Private Sub Comando13_Click()
    Dim f, b
    Dim msg$
    Dim db As Database
    Dim rs As Recordset


    On Error Resume Next


    If Me.Texto9 <> "" Then




    f = Me.Texto9
    b = Me.Texto21




    DoCmd.SendObject acSendReport, "os_venda_sac", acFormatPDF, b, , , "2M design - Número da OS " & "" & f, , True


    msg = MsgBox("O e-mail foi enviado para o cliente?", vbYesNo, "Salvar Funcionario")


    else


    MsgBox "Seleciona uma venda para responder ao cliente"


    End If


    End Sub


    variavel f = número da OS
    variavel b = e-mail que vai receber o anexo

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2304
    Registrado : 14/08/2013

    Re: Enviar e-mail anexo

    Mensagem  FabioPaes em Sab 02 Abr 2016, 02:36

    Complicado saber, ja que funcina... Mas podemos comecar comentando essa linha:
    On Error Resume Next

    Pois ela faz com que se ocorrer erro, ele nao seja exibido... enatao nao sabera qual e o erro...


    Substitua por este, e instrua os usuarios a salvar um printe da tela de quando der a mensagem de erro... Deve exibir uma tela com o cod do erro e a descricao....


    Private Sub Comando13_Click()

    On Error GoTo 1
    Dim f, b As String
    Dim msg$
    Dim db As Database
    Dim rs As Recordset



    If Me.Texto9 <> "" Then




    f = Me.Texto9
    b = Me.Texto21




    DoCmd.SendObject acSendReport, "os_venda_sac", acFormatPDF, b, , , "2M design - Número da OS " & "" & f, , True


    msg = MsgBox("O e-mail foi enviado para o cliente?", vbYesNo, "Salvar Funcionario")


    else


    MsgBox "Seleciona uma venda para responder ao cliente"


    End If

    1:
    'Exibe uma mensagem com a descrição do erro
           MsgBox "Nº Erro: " & Err.Number & " - " & Err.Description


    End Sub



    Obs: Se a variavel F contiver so Numeros, declare ela sozinha com tipo Integer

    Dim f As Integer

      Data/hora atual: Seg 05 Dez 2016, 04:27