MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Envio de e-mail -- ajuda para resolver sintaxe

    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 11/01/2016

    [Resolvido]Envio de e-mail -- ajuda para resolver sintaxe Empty [Resolvido]Envio de e-mail -- ajuda para resolver sintaxe

    Mensagem  lpdias em 9/4/2020, 22:45

    Boa noite!

    Copiei um código e adaptei em um botão para envio de e-mail.
    Gostaria que no título aparecesse não só apenas o número do pedido, mas também o nome do cliente e não estou sabendo fazer.
    Outra coisa que acontece é que o nome do cliente vem como número, visto que ele vem de uma tabela relacionada e eu também estou apanhando.

    Segue código:

    Dim txtemail, txtcodigo, txtnomecliente As String
    txtcodigo = Form_frmCad_Vendas.idvenda
    txtemail = "xxxxxxx.com.br"
    txtnomecliente = Form_frmCad_Vendas.NomeCliente


    DoCmd.SendObject acReport, "Relvendascliente", "PDFFormat(*.pdf)", "lxxxxx.com.br", txtemail, "", "Pedido nr" & txtidvenda, "Segue Pedido do Cliente " & NomeCliente, False, ""


    Caso ajude, a tabela que tenho os nomes dos clientes é: frmCad_clientes



    Agradeço se puderem me ajudar.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6819
    Registrado : 15/03/2013

    [Resolvido]Envio de e-mail -- ajuda para resolver sintaxe Empty Re: [Resolvido]Envio de e-mail -- ajuda para resolver sintaxe

    Mensagem  ahteixeira em 10/4/2020, 09:50

    Olá Leandro,

    É só concatenar mais um campo que tem o nome do cliente na parte que tem:

    Pedido nr" & txtidvenda,

    Altere por algo assim (coloque o nome do campo que tem o nome correto):

    Pedido nr" & txtidvenda & txtNomeCliente,

    Abraço
    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 11/01/2016

    [Resolvido]Envio de e-mail -- ajuda para resolver sintaxe Empty Re: [Resolvido]Envio de e-mail -- ajuda para resolver sintaxe

    Mensagem  lpdias em 10/4/2020, 12:37

    Bom dia Ahteixeira!

    A questão de concatenar deu certo, te agradeço.

    Mas a parte do nome do cliente está saindo numérico não estou conseguindo resolver.
    Tem alguma idéia?

    Abraço
    avatar
    lpdias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 11/01/2016

    [Resolvido]Envio de e-mail -- ajuda para resolver sintaxe Empty Re: [Resolvido]Envio de e-mail -- ajuda para resolver sintaxe

    Mensagem  lpdias em 10/4/2020, 22:36


    Agradeço a ajuda.
    Acabei encontrando meu erro que era referência no campo errado.
    Segue como ficou:

    Dim txtemail, txtcodigo, txtnomecliente, txtcomprador As String
    txtcodigo = Form_frmCad_Vendas.idvenda
    txtemail = "XXXXXXXXXXXXXXXXXXXXXX.com.br"
    txtnomecliente = Form_frmCad_Vendas.cbocliente.Column(2)
    txtcomprador = Form_frmCad_Vendas.txtresponsavel.Column(1)

    DoCmd.SendObject acReport, "Relvendascliente", "PDFFormat(*.pdf)", "XXXXXXXXXXXXXXXXX.com.br", txtemail, "", "Pedido Nº " & txtidvenda & " Navio: " & txtnomecliente & " -- " & txtcomprador, "Arlindo e Anderson, segue em anexo pedido para separação de estoque " & txtnomecliente & "Comprador: " & txtcomprado, False, """"

    Por fim, consegui obter o resultado que queria.

    Assunto: Pedido Nº 123 Navio: Costa Fascinosa - Leandro


    Obrigado pela ajuda Ahteixeira.
    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6819
    Registrado : 15/03/2013

    [Resolvido]Envio de e-mail -- ajuda para resolver sintaxe Empty Re: [Resolvido]Envio de e-mail -- ajuda para resolver sintaxe

    Mensagem  ahteixeira em 13/4/2020, 10:17

    Olá Leandro,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 9/8/2020, 18:55