É possivel enviar HTML com a função SendMail de ReportPrinter?

Fri, 07 Nov 2014 11:46:14 +0000

Através do BEF, preciso enviar um e-mail, com conteúdo em HTML e em anexo um relatório do sistema.
Estou usando a função SendMail de ReportPrinter.
Não encontrei uma propriedade para informar que o conteúdo está em HTML.
Há como devo fazer isto com SendMail, ou deveria usar MailMessage?

**O conteúdo em HTML também possui uma imagem incorporada

var relatorio = new ReportPrinter(946);
relatorio.FilterByCurrentCompany = true;
relatorio.CanSetupPrint = false;
relatorio.SendMail(mailRecipients: emails,
                mailSubject: fatura.Numero + " - Fatura de Cobrança de Frete",
                mailBody: conteudoEmHTML,
                fileName: "Fatura" + fatura.Numero + ".pdf");

Dúvidas com a função SendMail

Wed, 03 Sep 2014 21:01:53 +0000

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

Access Violation - Perguntas recentes com a tag sendmail

É possivel enviar HTML com a função SendMail de ReportPrinter?

Dúvidas com a função SendMail