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 dados de um registro atual no corpo do e-mail

    avatar
    Mozarth321
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 13/03/2016

    Enviar dados de um registro atual no corpo do e-mail Empty Enviar dados de um registro atual no corpo do e-mail

    Mensagem  Mozarth321 em 20/9/2018, 16:42

    Boa tarde pessoal

    Preciso enviar os dados de uma tabela diretamente no corpo do e-mail, pois quem recebe precisa colocar o valor do serviço no corpo do e-mail e me devolve sem ter que abrir anexos. Procurei aqui no fórum mas só encontrei exemplos que colocados os dados como anexo (relatório, PDF, Excel, etc).

    Por favor alguém pode me ajudar? minha intenção é colocar um botão no formulário contínuo para disparar esse e-mail com alguns dados do registro atual

    muito obrigado

    Mozarth
    avatar
    Ricardo Monteiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 27/11/2017

    Enviar dados de um registro atual no corpo do e-mail Empty Re: Enviar dados de um registro atual no corpo do e-mail

    Mensagem  Ricardo Monteiro em 20/9/2018, 17:28

    1. Configure o outlook para usar o endereço eletrônico que quer utilizar para enviar o email.
    2. No editor do VBA Ative a biblioteca de referências do Outlook (Microsoft Outlook xx.0 Object Library).
    Adapte o seguinte código para a sua necessidade:

    Código:
    'Código Criado por Ricardo Freitas Monteiro - Projetos de desenvolvimento? Msg para +55 61 98608-3665
    Dim objEmail As Outlook.MailItem
    Set objEmail = Outlook.Application.CreateItem(olMailItem)
    With objEmail
        .To = <<Campo do formulario que contém os emails para quem você quer enviar (tipo de dados string)>>
        .Subject = <<Assunto do email (tipo de dados string)>>
        .Body = <<O(s) campo(s) que contém os dados que você quer enviar (tipo de dados string)>>
        .Send
    End With
    Set objEmail = nothing
    avatar
    Mozarth321
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 13/03/2016

    Enviar dados de um registro atual no corpo do e-mail Empty Re: Enviar dados de um registro atual no corpo do e-mail

    Mensagem  Mozarth321 em 21/9/2018, 18:20

    Obrigado pela ajuda, mas o e-mail que vai enviar deve ser o e-mail do usuário que esta utilizando o banco no momento, não é um usuário fixo, então como configurar o item 1 das instrução que me enviou?
    avatar
    Ricardo Monteiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 27/11/2017

    Enviar dados de um registro atual no corpo do e-mail Empty Re: Enviar dados de um registro atual no corpo do e-mail

    Mensagem  Ricardo Monteiro em 21/9/2018, 18:42

    Se os usuários que utilizam o banco estão em computadores diferentes, este código supre a sua necessidade. Pois ele cria um e-mail e envia com o e-mail padrão cadastrado no outlook. Nesta caso, para cada computador, você deverá configurar o outlook com o email do usuário.

    Caso sejam vários usuários no mesmo computador, adicione dentro do bloco with a propriedade .SenderEmailAddress = "emaildousuário@qualquercoisa.com"

    Você pode declarar uma variável do tipo string e informar o email do usuário via inputbox ou formulário, mas o ideal é ter uma tebela com os dados dos usuários e o sistema consultar o email do usuário logado nesta tabela.


    .................................................................................
    Ricardo Freitas Monteiro
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 04/04/2010

    Enviar dados de um registro atual no corpo do e-mail Empty Re: Enviar dados de um registro atual no corpo do e-mail

    Mensagem  Avelino Sampaio em 23/9/2018, 12:11

    Olá!

    Veja se este meu artigo também te ajuda (copie e cole o endereço abaixo no seu navegador).

    usandoaccess.com.br/dicas/outlook-anexos-richtext-account.asp


    Bom estudo!

    Conteúdo patrocinado

    Enviar dados de um registro atual no corpo do e-mail Empty Re: Enviar dados de um registro atual no corpo do e-mail

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/6/2019, 12:39