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

    Enviar e-mail em lotes (selecionando o anexo ou o gif no corpo do e-mail)

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    Enviar e-mail em lotes (selecionando o anexo ou o gif no corpo do e-mail) Empty Enviar e-mail em lotes (selecionando o anexo ou o gif no corpo do e-mail)

    Mensagem  HARYSOHN 6/2/2014, 21:11

    Este exemplo envia e-mail's apartir dos registros selecionados em uma listBox de múltipla escolha.
    Podes selecionar um ou vários, alternados ou consecutivos.

    1 - tbl_EMail (Ficam guardados o endereço e o nome do arquivo htm que deverá ficar na pasta propaganda)
    2 - frmInserirAnexo (Insere os registros do htm contidos na pasta propagandas na tbl_EMail)
    3 - frmConfigEMail (Configura o e-mail, o servidor está configurado para o gmail)
    4 - frmEnvioEMail (Envia os e-mail's selecionados)

    >>> Para a mensagem aparecer no corpo do e-mail é necessário que o gif esteja hospedado em um servidor...
    Na tbl_EMail é necessário ter o endereço do mesmo

    Veja este excelente artigo do Mestre Críquio sobre o assunto:
    Link



    Exemplo 2003:

    https://dl.dropboxusercontent.com/u/26441349/EMailLote.rar





    Enjoy!!!


     
    *****************************************************************************************************************
     
     
     
    Repositório de Exemplos Ms Access
    Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para todos os Utilizadores Cadastrados.
    Não tirar duvidas nesta sala.


    Última edição por HARYSOHN em 11/2/2014, 10:57, editado 2 vez(es)
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    Enviar e-mail em lotes (selecionando o anexo ou o gif no corpo do e-mail) Empty Re: Enviar e-mail em lotes (selecionando o anexo ou o gif no corpo do e-mail)

    Mensagem  HARYSOHN 12/2/2014, 11:35

    Para Modificar o tipo de anexo, no formulário "frmInserirAnexo", no botão procurar basta adicionar os filtros na linha em azul:

    On Error Resume Next
    Dim Caminho As String, StrArquivo As String
    Dim Titulo As String, filtro As String, NovoCaminho As String
    filtro = "Banco de Dados Access (*.accdb)" & Chr(0) & "*.accdb" & Chr(0) & "Banco de Dados Access (*.mdb)" & Chr(0) & "*.mdb" & Chr(0) & "Banco de Dados Access (*.db)" & Chr(0) & "*.db" & Chr(0)
    Titulo = "Selecione o banco de dados..."
    Caminho = "C:\"
    Caminho = LocalizarArquivo(Caminho, Titulo, filtro)
    StrArquivo = Mid(Caminho, InStrRev(Caminho, "\") + 1)
    Me.txtCaminho = Caminho
    Me.txtArquivo = StrArquivo

      Data/hora atual: 5/12/2022, 18:06