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

    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3335
    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 25 Set 2017, 23:22