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

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.

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