ENVIAR RELATORIO DO CRYSTAL 8.5 PARA EMAIL

ALEXANDREMORAIS 29/11/2006 17:43:31
#187025
Boa tarde comunidade Vbmania, estou com a seguinte dúvida como faço para enviar um relatório do crystal por email?Já procurei no site por vários exemplos e códigos, mas não achei nada que funcionasse se alguém souber de algo, desde já agradeço....
F001E 29/11/2006 17:59:37
#187029
kara...eu tbm estou procurando isso e nao achei....uma alternativa que fiz foi...quando abro o crystal pelo vb...abre a tela do crystal certo..?...entao..perto do botão imprimir tem um botão com ícone de um envelope "Exportar"...vc escolher o Format HTML 4.0(DHTML)...pois se vc escolher HTML 3.2...dependendo do relatório nao funciona direito a exportação....voltado...vc escolhe o HTML 4.0(DHTML) e pressione OK...geralmente essa exportação vai ficar em C:\HTML\.... dai eu abro o Email e envio como anexo essa exportação....é meio chato isso..mas foi a única maneira que eu achei......pois tentei mandar direto do Crystal..mas não consegui.....
ALEXANDREMORAIS 30/11/2006 08:33:30
#187103
Será que ninguém mais teria uma dica?
ALEXANDREMORAIS 30/11/2006 11:09:43
#187135
Galera eu fiz este código mas não está dando muito certo o que estaria errado?
Depois que ele gerasse o arquivo como pdf eu irria enviar o mesmo por email com o próprio Outlook Express.
Dim RelContasRece As CRAXDDRT.Report ', m_Application As New CRAXDDRT.Application
Dim m_Application As New CRAXDDRT.Application
Set RelContasRece = Nothing
Set RelContasRece = m_Application.OpenReport(App.Path + "\Orcamentos.rpt", 1)
'Set RelContasRece = Rel
'RelContasRece.ExportOptions
'RelContasRece.ExportOptions.DestinationType = crEDTEMailMAPI
'RelContasRece.ExportOptions.DestinationType = crEDTMicrosoftExchange
'RelContasRece.ExportOptions.MailMessage = Titulo
'RelContasRece.PromptForExportOptions
'RelContasRece.Export False
With RelContasRece
'.RecordSelectionFormula = "{OBnomes.codigo} = '" & txtCod.Text & "' "
.ExportOptions.DiskFileName = App.Path & Titulo & ".pdf"
.EnableParameterPrompting = False
.ExportOptions.FormatType = crEFTPortableDocFormat
.ExportOptions.PDFExportAllPages = True
.ExportOptions.DestinationType = crEDTDiskFile
'.ExportOptions.PDFExportAllPages = True
.ExportOptions.RTFExportAllPages = True
.Export False
End With
F001E 30/11/2006 11:15:44
#187138
esse .Export False.....nao tem q ter um sinal de igual(=) entre eles....
.Export = False....?
ALEXANDREMORAIS 30/11/2006 13:10:43
#187182
Citação:

F001E escreveu:
esse .Export False.....nao tem q ter um sinal de igual(=) entre eles....
.Export = False....?


Acho que vc está enganado a sintaxe e está mesma.....
ALEXANDREMORAIS 01/12/2006 13:16:02
#187402
Achei uma forma eu e bem como eu queria não mais tem o mesmo efeito.....
[c]
Dim m_Application As New CRAXDDRT.Application
Set RelContasRece = Nothing
Set RelContasRece = m_Application.OpenReport(App.Path + "\Orcamentos.rpt", 1)

With RelContasRece
.ExportOptions.DiskFileName = App.Path & Titulo & ".RTF"
.EnableParameterPrompting = False
.ExportOptions.FormatType = crEFTExactRichText
.ExportOptions.DestinationType = crEDTDiskFile
.Export False
End With

'
MAPISession1.SignOn
MAPISession1.DownLoadMail = False
MAPIMessages1.SessionID = MAPISession1.SessionID

MAPIMessages1.Compose
MAPIMessages1.RecipAddress = IIf(Vazio(Email), "cliente@cliente.com.br", Email) 'Text1.Text
MAPIMessages1.MsgSubject = Titulo 'Text2.Text
MAPIMessages1.MsgNoteText = "" 'Text3.Text

'anexa no final da mensagem
MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)

define o tipo de dados do anexo
MAPIMessages1.AttachmentType = mapData

'define o caminho e nome do arquivo a anexar
MAPIMessages1.AttachmentPathName = App.Path & Titulo & ".RTF" 'Text4.Text

'envia o arquivo
MAPIMessages1.send True
MAPISession1.SignOff
Tópico encerrado , respostas não são mais permitidas
Voltar