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

4 participantes

    Macro para enviar emails

    avatar
    sergio talhao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4
    Registrado : 11/03/2013

    Macro para enviar emails Empty Macro para enviar emails

    Mensagem  sergio talhao 12/3/2013, 16:48

    Criei uma base de dados em Acces para gerir as quotizações de sócios de uma coletividade em que sou Presidente.
    Queria elaborar uma macro para enviar a todos os sócios com endereços de email na sua ficha, um relatório com o histórial da suas quotas.
    Obrigado pela possivel ajuda
    Sérgio
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8068
    Registrado : 05/11/2009

    Macro para enviar emails Empty Re: Macro para enviar emails

    Mensagem  Alexandre Neves 12/3/2013, 18:20

    Boa tarde, sergio, e bem-vindo ao fórum
    Procure pelos vários temas abordados sobre envio de mensagens. Este, por exemplo


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    digowferreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 21/03/2013

    Macro para enviar emails Empty Re: Macro para enviar emails

    Mensagem  digowferreira 25/7/2013, 02:26

    crie uma tabela com os dados, uma consulta, e um relatório que puxe os dados dessa consulta.

    Depois crie uma macro com a ação EnviarObjeto, e escolha o formato do relatório

    espero ter ajudado.
    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    Macro para enviar emails Empty Re: Macro para enviar emails

    Mensagem  giba_ 29/9/2013, 00:48

    tenho essa que manda uma tabela em anexo por vba

     DoCmd.SendObject acTable, "Tabela_Produtos", "MicrosoftExcelBiff8(*.xls)", "fulano@gmail.com", "", "", "assunto", "corpo do email", False, ""


    ou essa que manda para vários usuários, infelizmente não tenho o criador dessa rotina

    Private Sub SeuBotao_Click()
    Dim rst As DAO.Recordset
    Dim strDestinatarios
    Dim strTitulo
    Dim strMensagemCorpoDoEmail

    Set rst = CurrentDb.OpenRecordset("SuaTabela ou SuaConsulta")

    Do Until rst.EOF
       strDestinatarios = strDestinatarios & rst("CampoEmailDestino") & ";"
       rst.MoveNext
    Loop
       
       strDestinatarios = Left(strDestinatarios, Len(strDestinatarios) - 1)
       strTitulo = "teste"
       strMensagemCorpoDoEmail = "Obrigado"
       
    On Error Resume Next
       DoCmd.SendObject , , , strDestinatarios, _
       , , strTitulo, strMensagemCorpoDoEmail, True, False
       
    rst.Close
    Set rst = Nothing
    End Sub

      Data/hora atual: 27/1/2022, 00:25