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]Erro ao enviar email.

    videosom3d
    videosom3d
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 81
    Registrado : 06/12/2011

    [Resolvido]Erro ao enviar email. Empty Erro ao enviar email.

    Mensagem  videosom3d Seg 12 Dez - 22:48

    Boas pessoal.
    Tenho um botão a enviar um email, ele detecta o email do campo e anexa ao email a ser enviado e funciona bem mas o problema é quando não tem email no campo, tentei enviar o foco para lá e dá mas depois dá o erro na mesma, será que me podem dizer qual é o erro.
    O que tenho é o seguinte:

    Private Sub Enviar_Orçamento_por_Mail_Click()
    If IsNull(Forms!Clientes!Email) Or Forms!Clientes!Email = "" Then
    MsgBox "… necessário o preenchimento do Email antes de proseguir", vbInformation, "Atençao"
    Forms.Clientes!Email.SetFocus
    End If
    Dim x As String, y As String, z As String

    x = "Assunto da mensagem"
    y = "Mensagem"
    z = Me.Email.Value

    On Error Resume Next
    DoCmd.SendObject acReport, "Orçamento_mail", "PDFFormat(*.pdf)", z, "", "", x, y, True, """"
    End Sub
    videosom3d
    videosom3d
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 81
    Registrado : 06/12/2011

    [Resolvido]Erro ao enviar email. Empty Re: [Resolvido]Erro ao enviar email.

    Mensagem  videosom3d Seg 12 Dez - 23:17

    Mudei o primeiro código para (Ao receber foco) e já funciona.

      Data/hora atual: Qui 28 Mar - 14:24