Invio Email con VB NET

mercoledì 02 agosto 2006 - 11.32

max1850 Profilo | Junior Member

Salve.
Uso VB NET 2005.
Vorrei fare un piccolo programma che mi permette di inviare email. Penso che bisognerebbe utilizzare il namespace System.Net.Mail (col Framework 1.0, mi sembra, si utilizzava il System.Web.Mail) ma non riesco a trovare un codice di esempio.
Qualcuno potrebbe gentilmente postarlo o includere un link che indica dove posso trovarlo?

Grazie
Max!
Max!

19018 Profilo | Expert

E' facile, prima di tutto Imports System.Web.Mail.
Poi :

'Dichiari un oggetto SmtpMail
Dim obj As System.Web.Mail.SmtpMail

'Istanzi un oggetto MailMessage
Dim Mailmsg As New System.Web.Mail.MailMessage

'Imposti il server smtp da utilizzare
obj.SmtpServer = SMTPServer

'Imposti il destinatario
Mailmsg.To = To

'Imposti il mittente
Mailmsg.From = From

'Imposti il formato della mail htlm o text
Mailmsg.BodyFormat = MailFormat.Html

'Imposti l'oggetto
Mailmsg.Subject = txtSubject.Text

'Imposti il corpo
Mailmsg.Body = txtMessage.Text

'Spedisci
obj.Send(Mailmsg)

Dovrebbe funzionare

ciao

Stefano Passatordi

http://blogs.dotnethell.it/stem/

max1850 Profilo | Junior Member

Ciao!
Il fatto è che il namespace System.Web.Mail nel framework 2.0 non esiste più. Dovrebbe essere stato sostituito con System.Net.Mail. Confermi?
Ciao
Max!

19018 Profilo | Expert

Scusami mi era passato di mente che usi il 2005 sorry.
Comunque si confermo, in questo ( http://blogs.dotnethell.it/stem/Post_2109.aspx ) post del mio blog puoi trovare tutto quello che ti serve.
ciao

Stefano Passatordi

http://blogs.dotnethell.it/stem/

max1850 Profilo | Junior Member

Ottimo ragazzi!
A quel link è spiegata veramente bene!
Grazie a tutti dell' aiuto!
Ciao
Max!

Amodio Profilo | Expert

per caso sai se riesco a spedire mail con immagini ?
ancora devo iniziare a farlo ,quindi vorrei essere sicuro che lo faccia,

il mio dubbio deriva dal fatto che fino adora le ho spedite tramite un sito web asp.net, quindi le immagini risiedevano sul server e una volta spedito il tutto nella mail si scaricava l'immagine, ma da locale funziona allo stesso modo? nel senso che viene spedita anche una immagine contenuta nella mail?

grazie

19018 Profilo | Expert

Devi considerare che nel corpo di una mail formato html non risiede l'immagine ma solo un riferimento ad essa.Grazie ai tag html per visualizzare le immagini tu devi solo inserire un path valido di una immagine e sicuramente verrà visualizzata. Quello che voglio dire è che l'immagine può risiedere ovunque, l'importante è che sia sempre raggiungibile tramite il path che tu inserisci nel tag all'interno del corpo della mail.

ciao

Stefano Passatordi

http://blogs.dotnethell.it/stem/

ivanuccio Profilo | Junior Member

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(ByVal 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).Cells(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("TestaFattura").ApplyLogOnInfo(Logon)
frmAnteprima.FatturaPDF1.Database.Tables("CorpoFattura").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 = "PERCORSO DOVE RECUPERA IL IL VOLANTINO"
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).Cells(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(DataFattura)) + "_" + DenominazioneTextBox.Text + ".pdf"
Path = Path + "\" + FileName

Dim Logon As New CrystalDecisions.Shared.TableLogOnInfo

Logon.ConnectionInfo.DatabaseName = "XXXXXXXXXX"
Logon.ConnectionInfo.ServerName = "XXXXX"
Logon.ConnectionInfo.UserID = "XXXXX"
Logon.ConnectionInfo.Password = "XXXXX"
Logon.ConnectionInfo.IntegratedSecurity = False

frmAnteprima.FatturaPDF1.Database.Tables("TestaFattura").ApplyLogOnInfo(Logon)
frmAnteprima.FatturaPDF1.Database.Tables("CorpoFattura").ApplyLogOnInfo(Logon)

frmAnteprima.FatturaPDF1.RecordSelectionFormula = "{TestaFattura.NrFattura} = " & NrFattura
If Not System.IO.File.Exists(Path) Then
frmAnteprima.FatturaPDF1.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, Path)
frmAnteprima.Dispose()
End If
frmMail.DestinationAddress.Text = Me.MailTextBox.Text
frmMail.DestinationName.Text = "XXXXX" + Me.DenominazioneTextBox.Text
frmMail.ListBox1.Items.Add(Path)
frmMail.Attachments1.Items.Add(Path)
frmMail.ListBox1.Items.Add("XXXXXXXXXXXXXXX")
frmMail.Body.Text = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX " + _
CStr(NrFattura) + " del " + CStr(DataFattura) + " :" + ACapo + ACapo + _
"- FATTURA - " + FileName + ACapo + ACapo + "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX." + _
ACapo + ACapo + _
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" + ACapo + ACapo
If DataFattura <= #12/31/2007# Then
frmMail.Body.Text = frmMail.Body.Text + _
"XXXXXXXXXXXXXXX"
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" + ACapo + _
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" + ACapo
Else
frmMail.Body.Text = frmMail.Body.Text + _
"XXXXXXXXXXXXXXX" + ACapo + _
"XXXXXXXXXXXXXXX"
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX." + ACapo + _
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" + ACapo
End If
frmMail.MdiParent = frmSapri
frmMail.Show()

End Sub

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

Grazie mille per il vostro tempo . PER QUANTO RIGUARDA LE XXXXX SONO SOLO TESTO DESCRITTIVO CHE CREDO NON CI INTERESSI AL FINE DELLA RIASOLUZIONE DEL PROBLEMA...
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5