topic Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO in Brasil

ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

Fri, 02 Oct 2015 19:37:27 GMT

Boa tarde.

Estou tendo uma situação que nem sei por onde começar. Tenho uma tabela gráfico (abaixo) que preciso enviar email para cada linha dela com alguns dados dessas tabela.

Exemplo:

email da linha 1:

'Caro Sr/a '&cliente&' o seu boleto com vcto "&venc&' no valor R$'&vlparcela&'com linha digitavel '&linhadigitavel&'ja pode ser pago'

Email: Caro Sr/a Geiza o seu boleto com vcto 10/01/2015 no valor R$1901,63 com linha digitavel 00190.000.....19163 ja pode ser pago.

Enviar um email para cada linha abaixo, o email a ser enviado é a da 1a coluna.

Sou novato, o meu qlikview é desktop. Apreciaria muito a atencao de voces.

OBRIGADO.

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

Clever_Anjos — Sat, 03 Oct 2015 13:38:40 GMT

Precisa de algum anexo? ou somente o texto?

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

Sat, 03 Oct 2015 19:28:08 GMT

Somente o texto Clever.

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sat, 03 Oct 2015 23:01:34 GMT

Ramires, boa tarde.

Segue um modelo modelo para enviar o email somente texto, conforme imagem abaixo

No modelo, tem que configurar a conta de email que sera usada para envio

bem como setar as permissoes da macro....

Lembrar que existem alternativas melhores que a macro para o envio (e que tem custo de licenca), como o NPrinting e o BIMail (que inclusive trabalho com ela).

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sat, 03 Oct 2015 23:03:22 GMT

Quem sabe algum com habilidades melhores que a minha em macro (se a opção for permanecer em macro) que consigam reduzir o código, usando o campo da tabela ao invés das variáveis (tanto no QV como na macro).

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

Sun, 04 Oct 2015 00:55:58 GMT

Alessandro, sou novato. Poderia me dizer onde é que eles diz qual tabela abrir? e qual campo ler? como configurar a conta de email? e setar as variaveis.

Naõ consigo baixar o qvw porque o meu é desktop (free) e já estourou a quantidade de arquivo que consigo abrir de outro qlikview.

abçs.

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sun, 04 Oct 2015 01:30:42 GMT

Ramires,

vamos la......

Abre um modelo novo. Da um CTRL E (ou editar script) e cola o seguinte codigo

Titulos:

LOAD * INLINE [

Destinatario , Titulo , DataVencimento , Valor

xxx@nnnn.com.br , 12345 , 10/10/2015 , 1000.50

xxx@nnnn.com.br , 22345 , 15/10/2015 , 2000.50

xxx@nnnn.com.br , 32345 , 20/10/2015 , 5000.00

];

Da um ok

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sun, 04 Oct 2015 01:31:36 GMT

Agora da um CTRL M

e cola o seguinte codigo

function GetVariable(varName)

Dim v

set v = ActiveDocument.Variables(varName)

GetVariable = v.GetContent.String

end function

Sub Envio()

Set TabelaEmails = ActiveDocument.Fields("Titulo").GetPossibleValues(1000)

For contEmail = 0 to TabelaEmails.Count - 1

ActiveDocument.Fields("Titulo").Select TabelaEmails.Item(contEmail).Text

ActiveDocument.GetApplication.Sleep 1000

vRepositorio = GetVariable("vRepositorio")

Porta = GetVariable("smtpPorta")

Server = GetVariable("smtpServer")

Usuario = GetVariable("smtpUser")

Senha = GetVariable("smtpPWD")

Origem = GetVariable("smtpOrigem")

Destinatario = GetVariable("vDestinatario")

Data = GetVariable("vDataVencimento")

Valor = GetVariable("vValor")

Titulo = GetVariable("vTitulo")

'msgbox Destinatario

Set objEmail = CreateObject("CDO.Message")

Set objConf = objEmail.Configuration

Set objFlds = objConf.Fields

With objFlds

'---------------------------------------------------------------------

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Server

if len(Usuario) > 0 then

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Usuario

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Senha

else

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

end if

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Porta

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Update

'---------------------------------------------------------------------

End With

'Destinatarios = TabelaEmails.Item(contEmail).Text

objEmail.To = Destinatario

objEmail.From = Origem

objEmail.Subject = "Pagamento Titulo : " & Titulo & " com vencimento em " & Data & " no valor de R$ " & Valor

objEmail.HTMLBody = "Pagamento Titulo : " & Titulo & " com vencimento em " & Data & " no valor de R$ " & Valor

objEmail.Send

ActiveDocument.GetApplication.Sleep 1000

Set filesys = Nothing

ActiveDocument.Fields("Titulo").Clear

End Sub

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sun, 04 Oct 2015 01:33:23 GMT

Nao esquecer de setar a permissão dentro do CTRL M (em vermelho)

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sun, 04 Oct 2015 01:38:09 GMT

Criar as variaveis usadas....

CTRL ALT V

e criar com o mesmo nome e o conteudo com os seus dados....

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sun, 04 Oct 2015 01:42:04 GMT

e agora criar um botao para disparar o email

Se clicar o botao vai enviar para cada registro no inline (no script colocado no CTRL E e que deve ser colocado um email de teste).

O modelo que mandei estava testado bastando colocar os parametros da conta de email e questao de permissao da macro.

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

Sun, 04 Oct 2015 02:43:33 GMT

Alessandro segui os passos e toda vez que clico no botão ele abre para Editar o Modulo (macro).

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sun, 04 Oct 2015 02:51:43 GMT

Ramires,

se esta abrindo a macro é porque tem erro. Muda a sua senha/dados do e-mail e disponibiliza o modelo para eu descobrir o erro e te mando a correção.....

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

Sun, 04 Oct 2015 03:14:17 GMT

Alessandro esta em anexo. Valeu.

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sun, 04 Oct 2015 04:07:40 GMT

esta com senha para abrir o modelo

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

Sun, 04 Oct 2015 12:46:47 GMT

Sorry Alessandro, segue:

usuario: xxxxxx

pwd: xxxxxxxx

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sun, 04 Oct 2015 13:58:50 GMT

na macro faltava um campo para substituir o "Titulo" que estava na macro. Este campo tem que ser um campo unico que a cada um deste sera disparado o email. Eu coloquei NUPARCELA , mas deveria ser um campo com a juncao do NUTITULO e NUPARCELA, ou seja, unico.

function GetVariable(varName)

Dim v

set v = ActiveDocument.Variables(varName)

GetVariable = v.GetContent.String

end function

Sub Envio()

Set TabelaEmails = ActiveDocument.Fields("NUPARCELA").GetPossibleValues(1000)

For contEmail = 0 to TabelaEmails.Count - 1

ActiveDocument.Fields("NUPARCELA").Select TabelaEmails.Item(contEmail).Text

ActiveDocument.GetApplication.Sleep 1000

Porta = GetVariable("smtpPorta")

Server = GetVariable("smtpServer")

Usuario = GetVariable("smtpUser")

Senha = GetVariable("smtpPWD")

Origem = GetVariable("smtpOrigem")

Destinatario = "ramires@konsulter.com.br" 'GetVariable("vDestinatario")

Data = GetVariable("vDataVencimento")

Valor = GetVariable("vValor")

Titulo = GetVariable("vTitulo")

Linha = GetVariable("vLinha")

'msgbox Destinatario

Set objEmail = CreateObject("CDO.Message")

Set objConf = objEmail.Configuration

Set objFlds = objConf.Fields

With objFlds

'---------------------------------------------------------------------

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Server

if len(Usuario) > 0 then

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Usuario

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Senha

else

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0

end if

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Porta

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Update

'---------------------------------------------------------------------

End With

objEmail.To = Destinatario

objEmail.From = Origem

objEmail.Subject = "Pagamento Titulo : " & Titulo & " com vencimento em " & Data & " no valor de R$ " & Valor & chr(10) & " Linha Digitavel " & Linha

objEmail.HTMLBody = "Pagamento Titulo : " & Titulo & " com vencimento em " & Data & " no valor de R$ " & Valor & chr(10) & " Linha Digitavel " & Linha

objEmail.Send

ActiveDocument.GetApplication.Sleep 1000

ActiveDocument.Fields("NUPARCELA").Clear

End Sub

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Sun, 04 Oct 2015 14:02:59 GMT

Criei também uma nova variável vLinha que tem a linha digitável.

Observar também que as variáveis tem que ser adaptadas ao seu modelo, portanto as variáveis de valor, data,etc... tem que ter os campos do seu modelo.

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

Sun, 04 Oct 2015 22:43:13 GMT

Oi Alessandro, desculpe responder somente agora. Estive fora o dia todo.

Ele deu erro de "Falha de conexão do transporte com o servidor"

Se puder me ajudar, sei que ja estou abusando. Mas eu agradeço.

Re: ENVIAR EMAIL COM DADOS DE UMA TABELA GRÁFICO

afurtado — Mon, 05 Oct 2015 00:24:33 GMT

Ramires,

a porta nao é 587. Muda para 465 que vai funcionar. Nao precisa colocar o = na frente.