Visualizzazione dei risultati da 1 a 8 su 8
  1. #1

    vb net invio e-mail con file allegato

    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
    i tedeschi abbandonarono perl harbor xche avevano finito le caramelle

  2. #2
    Utente di HTML.it L'avatar di darkblOOd
    Registrato dal
    Jul 2001
    Messaggi
    2,212
    se usi la ricerca del forum forse trovi più di mille thread in cui se n'è parlato

  3. #3
    Utente di HTML.it L'avatar di teto
    Registrato dal
    Nov 2002
    Messaggi
    102

    Re: vb net invio e-mail con file allegato

    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

  4. #4
    Utente di HTML.it L'avatar di teto
    Registrato dal
    Nov 2002
    Messaggi
    102

    Re: Re: vb net invio e-mail con file allegato

    Originariamente inviato da teto
    prova a vedere qa
    :tongue: scusate ho sbagliato discussione

  5. #5
    Utente bannato
    Registrato dal
    Mar 2002
    Messaggi
    1,811

    Re: Re: Re: vb net invio e-mail con file allegato

    Originariamente inviato da teto
    :tongue: scusate ho sbagliato discussione

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

  6. #6

    inviare N email a tutti i clienti con la fattura allegata in PDF

    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

  7. #7

    Re: vb net invio e-mail con file allegato

    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

  8. #8
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,463

    Moderazione

    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.
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.