[resolvido] Campo "Assunto" do e-mail preenchido dinamicamente

Moderador: Avelino Sampaio

Robério
Mensagens: 2
Registrado em: 17 Ago 2015, 20:30

[resolvido] Campo "Assunto" do e-mail preenchido dinamicamente

Mensagempor Robério » 17 Ago 2015, 20:54

Boa tarde a todos!

Estou utilizando uma macro para enviar e-mail's, no entanto, gostaria de saber se é possível desenvolver alguma forma de alterar o campo assunto do e-mail dinamicamente, sem a necessidade de se criar uma macro para cada assunto.

Por exemplo: Vamos supor que tenho que testar vários motores elétricos de uma determinada empresa, onde o resultado de cada motor é enviado por e-mail. Os motores são cadastrados no banco de dados e o relatório a ser enviado é padrão para todos os motores. Mas, meu cliente quer receber os e-mail's com o campo "assunto" igual ao nome do motor. Deste modo, teríamos:

E-mail
Assunto: Motor 1

E-mail
Assunto: Motor XYZ... E assim por diante.

Ocorre que, existem mais de 5000 motores na empresa e sempre que queimar um motor é necessário substituí-lo, com isso, é realizado um novo cadastro que, nesta lógica, me obrigaria a gerar outra macro (ou linha na macro já existente) com o campo "assunto" identificado com o nome do novo motor.

Se fosse possível desenvolver uma rotina que procurasse o assunto em uma tabela, talvez, resolveria esta questão. Alguém teria alguma ideia?

Desde já, agradeço a atenção!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1897
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Campo "Assunto" do e-mail preenchido dinamicamente

Mensagempor Avelino Sampaio » 18 Ago 2015, 11:46

Robério, benvindo a REDE!

Sim, é possível mas vai exigir um pouco de programação. Vamos supor que vc tenha na tabela um campo de nome Enviar para que vc marque todos os motores que deseja enviar por e-mail.

Código:
Dim rs as Dao.Recordset
Dim strSql as string
'Monta a consulta que irá retornar somente com os motores a serem enviados
strSql = "SELECT NomeMotor FROM tblMotores WHERE enviar =-1;"
'Abre a consulta filtrada
set rs = CurrentDb.OpenRecordset(strSql)
'percorre os registros da consulta um a um para poder capturar o nome do Motor
Do While Not rs.Eof
'Envia o e-mail com o nome do motor no assunto
docmd.SendObject acSendReport ,"rltTesteMotor",acFormatPdf,EmailCliente,,,rs!NomeMotor,strMensagem,false
' pula para o próximo registro
rs.MoveNext
loop
rs.close
set rs = nothing
msgbox "Envio dos e-mails concluído..."


Nota: Os provedores limitam a quantidade de envio de e-mails. Se ultrapassar o limite seu e-mail será bloqueado pelo provedor de forma temporária. Se insistir eles bloqueiam a sua conta. Por exemplo, meu provedor permite que eu passe 100 e-mails a cada hora. Vc pode pagar ao provedor uma taxa para poder passar uma grande quantidade de e-mail por vez.

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Robério
Mensagens: 2
Registrado em: 17 Ago 2015, 20:30

Re: Campo "Assunto" do e-mail preenchido dinamicamente

Mensagempor Robério » 18 Ago 2015, 13:35

Muito obrigado pela ajuda Avelino!

Funcionou perfeitamente!

Desde já muito obrigado!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Access x Outlook”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante