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

    Envio de e-mail com anexos usando form de envio , atraves do Access

    Compartilhe
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Envio de e-mail com anexos usando form de envio , atraves do Access

    Mensagem  HARYSOHN em Sab 02 Jul 2011, 21:42

    Bem amigos.. este exemplo é bastante eficaz e com total interação com o Outlook

    1 - Cadastro de contatos
    2 - Busca de contatos por lstBox
    3 - Envia e-mail para um ou mais contatos de acordo com a seleção
    ** é necessário estar ao menos um selecionado
    4 - Após o envio desmarca todos os contatos que foram selecionados
    5 - Permite anexar 3 arquivos para o envio diretamente no form
    6 - Exibe contatos para seleção
    7 - Ao selecionar, botão para carregar os endereços
    8 - Grava histórico de mensagens enviadas
    9 - Grava histórico de mensagens não enviadas por falta de conexão
    10 - Limpa hostóricos
    11 - Campos para inserir os dados de envio
    12 - envia pelo outlook sem necessidade de colocar os dados no mesmo pois todos os dados são carregados no form de origem
    *** Sem tabelas no Front End, utilizando totalmente SQL, recordset e recordsource

    **********************************************
    Utiliza o arquivo de parametros Sypen.par
    **********************************************

    Para o correto funcionamento tem que modificar os caminhos do BD contido no Sypen.Par
    DirBanco:=c:\SysPen\
    DirBancoDados:=c:\SysPen\
    DirBancoDadosLocal:=c:\SysPen\


    * em alguns códigos caso se altere o nome do BD é necesário fazer a alteraçao
    pois ele usa o caminho contido no syspen.par + o nome do BD, para uso dos devidos recordset's

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



    Enjoy!


    Última edição por PILOTO em Sex 02 Nov 2012, 16:22, editado 4 vez(es) (Razão : Correção em código)


    .................................................................................
    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: Ter 12 Dez 2017, 10:10