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 e-mail em lotes (selecionando o anexo ou o gif no corpo do e-mail)

    Compartilhe
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em Qui 06 Fev 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:
    [Você precisa estar registrado e conectado para ver este link.]



    Exemplo 2003:

    [Você precisa estar registrado e conectado para ver este link.]





    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 Ter 11 Fev 2014, 10:57, editado 2 vez(es)


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  HARYSOHN em Qua 12 Fev 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


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Qua 18 Out 2017, 15:48