[Resolvido]E-mails diferentes a vários destinatários

gumz 21/8/2011, 01:45

gumz: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 103
Registrado : 30/07/2011

Mensagem nº1

E-mails diferentes a vários destinatários

Mensagem gumz 21/8/2011, 01:45

Boa noite, amigos de Access

Estou utilizando um código feito pelo chstream que funciona perfeitamente, sem erro algum. A partir de um formulário com um subform, ele gera um email com os campos selecionados do subform e envia para o email do registro selecionado. Até aí, ótimo, ótimo...! Funciona tudo duma forma mais que perfeita, sem precisar digitar uma linha e enviar para os destinatários só na base do clique.

Só que os registros estão aumentando e a necessidade de enviar mais e mais e-mails idem. O que me foi solicitado agora é que haja uma caixa de combinação que selecionasse os registros e enviasse para cada um deles um e-mail personalizado através do próprio Outlook, seguindo este mesmo código abaixo. Encontrei um exemplo no repositório, mas ele só envia e-mails padrão e para vários destinatários no mesmo e-mail, o que não é o caso.

Alguém poderia me dar uma luz nesse sentido? Segue o código, com os créditos do chsestrem.

'Exemplo para envio de email em forma de Tabela
'By Charles Sestrem
'chsestrem@hotmail.com
'05 de Agosto de 2011

' na declaração Geral

Private Sub SolicitarMaterial_Click()
Dim StrDestinatario
Dim StrNomeDest As String
Dim stDocName As String
Dim StrMensagem As String
Dim StImage As String
Dim OutApp As Object
Dim OutMail As Object
Dim rs As DAO.Recordset
Dim strSQL As String
Dim txthtm As String

If fncOutlookInstalado = False Then
MsgBox "O Outlook não está instalado.", vbInformation, "Aviso"
Exit Sub
Else
If fncOutlookAberto = False Then
MsgBox "Mantenha o Outlook aberto para ser possível o envio do email.", vbInformation, "Aviso"
Exit Sub
'ou force a abertura do outlook
'Call Shell("outlook.exe", vbMinimizedNoFocus)
End If
End If

'Exportar uma tabela Access diretamente para o Corpo do Email

txthtm = "<HTML> "
txthtm = txthtm & "<HEAD>"
txthtm = txthtm & "<TITLE>Criando Tabelas</TITLE>"
txthtm = txthtm & "</HEAD>"
txthtm = txthtm & "<BODY>"
txthtm = txthtm & "<table width=200 border=0 cellspacing=0 cellpadding=0><tr><td><img src=http://www.site.com.br/email/email.jpg width=589 height=117 /></a></td>"
txthtm = txthtm & "</tr><tr><td>Assunto: Contrato</td>"
txthtm = txthtm & "</tr><tr><td>Cliente: " & [RAZAO] & "</td>"
txthtm = txthtm & "</tr><tr><td>Contrato: " & [nCONTRATO] & "</td>"
txthtm = txthtm & ""
txthtm = txthtm & "</tr><tr><td> </td></tr><tr><td>Prezado(a) Sr.(a) " & [AUTORIZANTE] & "</td>"
txthtm = txthtm & ""
txthtm = txthtm & "</tr><tr><td> </td></tr><tr><td>Segue abaixo as especificações de seu contrato: </td>"
txthtm = txthtm & ""
txthtm = txthtm & " "
txthtm = txthtm & "<table width=600 TABLE BORDER=1> "
txthtm = txthtm & "<TR bgcolor= ""#CFCFCF""><CENTER><TD>CAMPO1</TD><TD>CAMPO2</TD><TD>CAMPO3</TD>"
txthtm = txthtm & "<TD>CAMPO4</TD><TD>CAMPO5</TD></CENTER></TR>"

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_contratos_fechados WHERE nCONTRATO='" & Me.nCONTRATO & "';")

' Inicia o loop para exibir todos os registros

Do While Not rs.EOF
txthtm = txthtm & "<TR><! Cria a primeira linha da tabela>"

txthtm = txthtm & "<TD width=100>" & rs!CAMPO1 & " </TD>"
txthtm = txthtm & "<TD width=70>" & rs!CAMPO2 & " </TD>"
txthtm = txthtm & "<TD width=150>" & rs!CAMPO3 & " </TD>"
txthtm = txthtm & "<TD width=130>" & rs!CAMPO4 & " </TD>"
txthtm = txthtm & "<TD width=100>" & rs!CAMPO5 & "</TD></TR>"

rs.MoveNext
Loop
txthtm = txthtm & "</TABLE>"
txthtm = txthtm & "</BODY>"
txthtm = txthtm & "</HTML>"

txthtm = txthtm & " Atenciosamente,"
txthtm = txthtm & " " & Me.txtUser & " "
txthtm = txthtm & " Nome da Empresa "
txthtm = txthtm & " (21) 3555-2541 "
txthtm = txthtm & "email@email.com.br "

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "" & [EMAIL] & ""
.Subject = " - Ct. " & [nCONTRATO] & " - " & [FANTASIA]
.htmlbody = txthtm ' Corpo do Email
.display

End With

rs.Close

End Sub

criquio 21/8/2011, 02:01

criquio

criquio: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

Mensagem nº2

Re: [Resolvido]E-mails diferentes a vários destinatários

Mensagem criquio 21/8/2011, 02:01

Olá! Você já deu uma olhada nesse exemplo?

http://maximoaccess.forumeiros.com/t3878-envio-de-email-por-cdo-com-muito-mais-recursos

Nele, você pode escolher os emails em uma listbox. Pode seguir o mesmo raciocínio para personalizar o nome e mensagem.

.................................................................................

Meu novo site: www.vcssistemas.com.br

Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
1 - faça uma cópia do aplicativo
2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
3 - use o Compactar/Reparar
4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
Positive as mensagens que achar útil, no canto superior direito delas.

gumz 21/8/2011, 04:38

gumz

gumz: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 103
Registrado : 30/07/2011

Mensagem nº3

Re: [Resolvido]E-mails diferentes a vários destinatários

Mensagem gumz 21/8/2011, 04:38

Olá, criquio! Obrigado pela resposta.

Estava acertando aqui meu formulário para poder postar aqui. Servirá para o repositório - já tinha sido solicitado quando precisei de ajuda nele - postarei lá depois, como visto aqui: http://maximoaccess.forumeiros.com/t3661-resolvidoobter-varios-registros-em-tabela-e-enviando-por-e-mail-no-outlook

Bom, baixei o exemplo que você me sugeriu, mas ele trabalha de maneira diferente do que tenho feito.

Salvei minha base em access 2002-2003 para você poder dar uma olhada. Dei uma limpada no desnecessário e está só com o básico, as funções. Pus uma caixa acima do form que mostra os registros e um botão do lado que envia o email.

O que gostaria de fazer é poder selecionar vários registros e enviar os mesmos.

Enquanto isso, testarei enviar o email de forma oculta, talvez. Só precisaria de uma janela de status ou um registro do que foi enviado.

Eis o link: http://dl.dropbox.com/u/23984788/exemplo_email_tabela2002-2003.zip

**vieirasoft** 21/8/2011, 12:02

vieirasoft

vieirasoft: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010

Mensagem nº4

Re: [Resolvido]E-mails diferentes a vários destinatários

Mensagem vieirasoft 21/8/2011, 12:02

Veja se este exemplo está mais de acordo com o que pretende

http://dl.dropbox.com/u/8157744/Emailgrupo.rar

gumz 21/8/2011, 17:55

gumz

gumz: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 103
Registrado : 30/07/2011

Mensagem nº5

Re: [Resolvido]E-mails diferentes a vários destinatários

Mensagem gumz 21/8/2011, 17:55

Olá, Vieira - boa tarde!

Bom, eu já havia visto este exemplo - ele envia o mesmo e-mail para todos os destinatários selecionados. E da forma que estou enviando, o form gera um email com os campos personalizados e a listagem do que existe no subform do registro, como uma lista de pedidos. Então, cada e-mail é único e personalizado, não sendo possível enviar o mesmo e-mail para mais de um destinatário.

Estou testando o Syspen do Harysohn - estou precisando fazer algo na linha deste - de forma que envie os emails para a caixa de saída, da mesma forma personalizada, e salve uma listagem do que foi para lá. Ainda não consegui definir a rotina deste processo todo.

Se alguém puder auxiliar com qualquer dica, agradeço aqui.

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]E-mails diferentes a vários destinatários

Tópicos semelhantes

Tópicos semelhantes