vb net invio e-mail con file allegato

[Commando]

Ragazzi devo creare da vb net un'e-mail e allegarci un file txt
come posso fare?

Avete qualche riga di codice da farmi vedere?

Grazie

[darkblOOd]

se usi la ricerca del forum forse trovi più di mille thread in cui se n'è parlato

[teto]

Originariamente inviato da Commando
Ragazzi devo creare da vb net un'e-mail e allegarci un file txt
come posso fare?

Avete qualche riga di codice da farmi vedere?

Grazie

prova a vedere qa

[teto]

Originariamente inviato da teto
prova a vedere qa

:tongue: scusate ho sbagliato discussione

[amodio]

Originariamente inviato da teto
:tongue: scusate ho sbagliato discussione

no anzi ottimo suggerimento per excel!
per me intendo:adhone:

[ivanaccio]

Spett. Colleghi.

Ho in problema che non riesco a risolvere, vi chiedo l'enorme aiuto per finire il mio programmino.
Sono in combutta con un programma per creare fatture ed inviarle via email, tutto funziona, quando genero la fattura per singolo cliente ma ora devo generare un ciclo che generi tutte le fatture di fine mese verifichi tutti i clienti ed in automatico mi invii le fatture a tutti per email. potete darmi una mano per piacere ???

Vi allego il codice che mi genera uno l'anteprima e l'altro genera la fattura.

1
++++++++++++++++++anteprima+++++++++++++++++++
Private Sub TestaFatturaDataGridView_CellContentDoubleClick(By Val sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles TestaFatturaDataGridView.CellContentDoubleClick
Dim NrFattura As Integer
Dim DataFattura As Date
Dim Anno As String
Dim Logon As New CrystalDecisions.Shared.TableLogOnInfo

DataFattura = TestaFatturaDataGridView.SelectedRows.Item(0).Cell s(1).Value
NrFattura = Int(TestaFatturaDataGridView.SelectedRows.Item(0). Cells(0).Value)
Anno = CStr(Year(DataFattura))
Logon.ConnectionInfo.DatabaseName = "xxxxxxx"
Logon.ConnectionInfo.ServerName = "xxxxxxx"
Logon.ConnectionInfo.UserID = "xxxxxxx"
Logon.ConnectionInfo.Password = "xxxxxxx"
Logon.ConnectionInfo.IntegratedSecurity = False
frmAnteprima.FatturaPDF1.Database.Tables("TestaFat tura").ApplyLogOnInfo(Logon)
frmAnteprima.FatturaPDF1.Database.Tables("CorpoFat tura").ApplyLogOnInfo(Logon)
frmAnteprima.FatturaPDF1.RecordSelectionFormula = "{TestaFattura.NrFattura} = " & NrFattura
frmAnteprima.ShowDialog()
frmAnteprima.Dispose()
End Sub
++++++++++++++++++generazione file in pdf+++++++++++++++++++

Private Sub btnInvioPDF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInvioPDF.Click
Dim NrFattura As Integer
Dim Path As String
Dim FileName As String
Dim DataFattura As Date
Dim Anno As String
Dim Mese As String
Dim ACapo As String
ACapo = Chr(13) + Chr(10)
Path = System.IO.Directory.GetCurrentDirectory + "\FATTUREPDF"
Path = "\\x205\FATTUREPDF"
If Not System.IO.Directory.Exists(Path) Then
System.IO.Directory.CreateDirectory(Path)
End If
NrFattura = Int(TestaFatturaDataGridView.SelectedRows.Item(0). Cells(0).Value)
DataFattura = TestaFatturaDataGridView.SelectedRows.Item(0).Cell s(1).Value
Anno = CStr(Year(DataFattura))
Mese = CStr(Format(DataFattura, "MMMM"))
Path = Path + "\" + Anno + "\" + Mese
If Not System.IO.Directory.Exists(Path) Then
System.IO.Directory.CreateDirectory(Path)
End If
FileName = CStr(NrFattura) + "_" + CStr(Year(DataFattura)) + CStr(Format(Month(DataFattura), "00")) + CStr(Microsoft.VisualBasic.DateAndTime.Day(DataFat tura)) + "_" + DenominazioneTextBox.Text + ".pdf"
Path = Path + "\" + FileName

' ************************** P R O V A ***************************
Dim Logon As New CrystalDecisions.Shared.TableLogOnInfo

Logon.ConnectionInfo.DatabaseName = "StacxSQL"
Logon.ConnectionInfo.ServerName = "X205"
Logon.ConnectionInfo.UserID = "sapri"
Logon.ConnectionInfo.Password = "sapri"
Logon.ConnectionInfo.IntegratedSecurity = False

frmAnteprima.FatturaPDF1.Database.Tables("TestaFat tura").ApplyLogOnInfo(Logon)
frmAnteprima.FatturaPDF1.Database.Tables("CorpoFat tura").ApplyLogOnInfo(Logon)


' ************************** P R O V A ***************************
frmAnteprima.FatturaPDF1.RecordSelectionFormula = "{TestaFattura.NrFattura} = " & NrFattura
If Not System.IO.File.Exists(Path) Then
frmAnteprima.FatturaPDF1.ExportToDisk(CrystalDecis ions.Shared.ExportFormatType.PortableDocFormat, Path)
frmAnteprima.Dispose()
End If
frmMail.DestinationAddress.Text = Me.MailTextBox.Text
frmMail.DestinationName.Text = "Amministrazione " + Me.DenominazioneTextBox.Text
' frmMail.ListBox1.Items.Add(Path)
frmMail.Attachments1.Items.Add(Path)
'frmMail.ListBox1.Items.Add("C:\spoolPDF\Volantino .pdf")
frmMail.Body.Text = "Con la presente Vi inviamo in allegato il seguente file, in formato pdf, della Fattura N. " + _
CStr(NrFattura) + " del " + CStr(DataFattura) + " :" + ACapo + ACapo + _
"- FATTURA - " + FileName + ACapo + ACapo + "Per vedere il contenuto del file allegato cliccare sulla graffetta e quindi scegliere l'opzione desiderata." + _
ACapo + ACapo + _
"Riportiamo, altresì, di seguito le coordinate bancarie utili per il pagamento della fattura allegata: " + ACapo + ACapo

'Fattura Diana
If DataFattura <= #12/31/2007# Then
frmMail.Body.Text = frmMail.Body.Text + _
"coordinate bancarie"
"Per la visualizzazione dei file pdf e' necessario il programma Acrobat Reader." + ACapo + _
"Per scaricare, cliccare qui: http://www.adobe.it/products/acrobat...lversions.html" + ACapo
Else
frmMail.Body.Text = frmMail.Body.Text + _
"Banco di Napoli S.P.A." + ACapo + _
"coordinate bancarie"
"Per la visualizzazione dei file pdf e' necessario il programma Acrobat Reader." + ACapo + _
"Per scaricare, cliccare qui: http://www.adobe.it/products/acrobat...lversions.html" + ACapo
End If
frmMail.MdiParent = frmSapri
frmMail.Show()

End Sub

++++++++++++++++++fine generazione file in pdf+++++++++++++++++++

Grazie mille per il vostro tempo

[Jeremy75]

Ciao

Originariamente inviato da Commando
Ragazzi devo creare da vb net un'e-mail e allegarci un file txt
come posso fare?

Avete qualche riga di codice da farmi vedere?

Grazie

Utilizzando le classi MailMessage ed SmtpClient.

Facci sapere...
Ciao

[alka]

La discussione dorme già da tempo: è prassi aprire una nuova discussione per nuovi problemi, almeno che non sia già stata indicata una soluzione valida, come da Regolamento.