ENVIAR DATAGRIDVIEW POR EMAIL

LOPESKUTI 31/05/2012 12:17:34
#403239
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.
ALTAIR148 31/05/2012 16:24:04
#403288
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.
LOPESKUTI 31/05/2012 17:15:07
#403294
E como o seu sistema anexa e envia por email ??
ALTAIR148 31/05/2012 17:50:34
#403300
Resposta escolhida
Assim, eu exporto o relatório para o diretório passado pelo LocalExport, e depois exibo o relatório na tela.

 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