Dúvidas com a função SendMail

Question

Prezados, boa noite!

Foi desenvolvida uma macro, onde utilizamos a função SendMail (email, assunto, corpo, anexo).

Quando essa macro é executada pela interface DESKTOP, o email é enviado com sucesso, sem erros

Quando a macro é executada na interface WEB, o email é enviado, porém o assunto está junto no corpo do texto. E para o assunto, o sistema assume "BennerWeb - Nome do relatório".

Poderiam me ajudar a solucionar esse problema? Veja os e-mails abaixo

.

Segue a macro:

Public Sub Main
    Call EnviarEmailAutoriz
End Sub

____________________________________________________________

Public Sub EnviarEmailAutoriz
  Dim viHandleRelatorio As Integer
  Dim qRelatorio        As Object
  Dim rep                 As CSReportPrinter
  Dim qRel                 As Object
  Set qRel = NewQuery
  Dim autoriz As String
  Dim nome As String
  Dim handleAutoriz As Integer


  qRel.Add("SELECT TA.RELATORIOAUTORIZACAO , B.NOME, C.K_EMAILCONTATO, A.DATAAUTORIZACAO  ")
  qRel.Add("  FROM SAM_TIPOAUTORIZ TA                                ")
  qRel.Add("  JOIN SAM_AUTORIZ A  ON (TA.HANDLE = A.TIPOAUTORIZACAO) ")
  qRel.Add("  JOIN SAM_BENEFICIARIO B  ON (B.HANDLE = A.BENEFICIARIO)")
  qRel.Add("  JOIN WEB_AUTORIZ C ON (C.NUMEROAUTORIZACAO = A.HANDLE) ")
  qRel.Add("WHERE A.HANDLE = :HANDLE")
  qRel.ParamByName("HANDLE").AsInteger = CurrentQuery.FieldByName("HANDLE").AsInteger

  qRel.Active = True


  nome = qRel.FieldByName("NOME").AsString
  autoriz = CurrentQuery.FieldByName("AUTORIZACAO").AsString
  assunto = "AUT" & autoriz & " - "& nome
  anexo = "AUT" & autoriz & " - "& nome & ".pdf"
  corpo = " Autorização n°" & autoriz & "beneficiário:" & nome & "data solicitação:" & qRel.FieldByName("DATAAUTORIZACAO").AsString & "."

  If qRel.FieldByName("K_EMAILCONTATO").AsString = "" Then 
    'exibe a caixa de dialogo
    Begin Dialog UserDialog 400,203 ' %GRID:10,7,1,1
        Text 10,14,340,28,"Informe abaixo para qual endereço de e-mail deseja enviar o relatório"
        OKButton 20,91,120,21
        CancelButton 220,91,120,21
        TextBox 20,56,310,21,.email
    End Dialog
    Dim dlg As UserDialog
    Dialog dlg

    email = dlg.email

  Else

      email = "luana.sousa@brcsaude.com.br"'qRel.FieldByName("K_EMAILCONTATO").AsString

  End If

  If qRel.FieldByName("RELATORIOAUTORIZACAO").IsNull Then
    InfoDescription = "Não encontrado o relatório para guias de consulta com o tipo de autorização selecionado"
    Set qRel = Nothing
  Else
    viHandleRelatorio = qRel.FieldByName("RELATORIOAUTORIZACAO").AsInteger
    SessionVar("WEBHandleFiltro") = autoriz

    Set qRel = Nothing

    Set rep = NewReport(viHandleRelatorio)

    rep.SendMail(email, assunto, corpo, anexo)

    Set rep = Nothing


  End If

    InfoDescription = "E-mail enviado com sucesso!"


End Sub

 

Answer 1

Um problema simular a "SMS 702398 - Comportamento diferente do ReportPrinter quando executado no provider"

Estarei providenciando a correção com a "SMS 805379 Comportamento diferente na execução de ReportExport no Runner e na interface WEB."

Previsão de liberação é 08/08/2014