7 Replies Latest reply: Oct 20, 2015 8:21 AM by Marcos Freire RSS

    Box para digitar uma mensagem qualquer

    JOAO CARLOS RAMIRES

      Pessoal como faço para criar uma caixa onde possa digitar uma mensagem antes de enviar por email?

       

      Tenho a tabela abaixo, com vários campos, gostaria de antes de clicar no botão ENVIAR EMAIL eu possa digitar a mensagem que quero que vá no email, selecionando alguns campos. Exemplo abaixo na imagem.

       

      O meu Qlikview é Desktop (free), se puderem enviar no formato que eu possa enxergar, agradeço.

       

      SMSMARKETING.JPG

      O meu script de enviar email, ele funciona com a msg fixa que coloquei. Agora queria ter a opção de digitar a msg.

       

       

      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"
      'Destinatario = 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") = True
      .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
      .Update
      '---------------------------------------------------------------------
      End With
      objEmail.To = Destinatario
      objEmail.From = Origem
      ' objEmail.Subject = "Caro "&NMCLIENTE&"pague sua parcela de vcto "&Data&",R$"&Valor&chr(10)&" com cod.de barras " & Linha
      objEmail.HTMLBody = "Caro "&NMCLIENTE&"pague sua parcela de vcto "&Data&",R$"&Valor&chr(10)&" com cod.de barras " & Linha
      objEmail.Send

      ActiveDocument.GetApplication.Sleep 1000
      Next
      ActiveDocument.Fields("NUPARCELA").Clear
      End Sub