ENVIAR DATAGRIDVIEW POR EMAIL
Ola, a ultima coisa que falta no meu programa...
Preciso de um botão que pegue o datagridview e mande ele como anexo pelo programa padrão de email da máquina.
Se alguém puder me ajudar.
Obrigado.
Preciso de um botão que pegue o datagridview e mande ele como anexo pelo programa padrão de email da máquina.
Se alguém puder me ajudar.
Obrigado.
Amigo, eu faço algo parecido com isso, mas eu utilizo o Crystal report para fazer isso, eu exporto o relatório para pdf e meu sistema mesmo anexa e envia o e-mail.
E como o seu sistema anexa e envia por email ??
Assim, eu exporto o relatório para o diretório passado pelo LocalExport, e depois exibo o relatório na tela.
Para enviar o email utilizo o exemplo que tem no link abaixo.,
www.maestrodotnet.com.br/?p=244
Public Sub GeraComprovante(Optional ByVal LocalExport As String = Nothing)
Dim Relat As New FrmComprovante
Try
Dim CR As New RptComprovante
CR.Subreports([Ô]RptEmpresa[Ô]).SetDataSource(DALPonto.SPRelatPonto([Ô]tb_Empresa[Ô], [Ô][Ô]).Tables(0))
Relat.CrystalReportViewer1.ReportSource = CR
If LocalExport <> Nothing Then
Dim CrExportOptions As ExportOptions
Dim CrDiskFileDestinationOptions As New _
DiskFileDestinationOptions()
Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
CrDiskFileDestinationOptions.DiskFileName = _
LocalExport
CrExportOptions = CR.ExportOptions
With CrExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
.DestinationOptions = CrDiskFileDestinationOptions
.FormatOptions = CrFormatTypeOptions
End With
CR.Export()
End If
Relat.ShowDialog()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Para enviar o email utilizo o exemplo que tem no link abaixo.,
www.maestrodotnet.com.br/?p=244
Tópico encerrado , respostas não são mais permitidas