Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. WinForms / WPF .NET
Invio Email con VB NET
mercoledì 02 agosto 2006 - 11.32
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
max1850
Profilo
| Junior Member
142
messaggi | Data Invio:
mer 2 ago 2006 - 11:32
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
502
messaggi | Data Invio:
mer 2 ago 2006 - 11:48
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
142
messaggi | Data Invio:
mer 2 ago 2006 - 11:56
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
502
messaggi | Data Invio:
mer 2 ago 2006 - 12:01
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
142
messaggi | Data Invio:
mer 2 ago 2006 - 12:12
Ottimo ragazzi!
A quel link è spiegata veramente bene!
Grazie a tutti dell' aiuto!
Ciao
Max!
Amodio
Profilo
| Expert
525
messaggi | Data Invio:
mer 2 ago 2006 - 16:20
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
502
messaggi | Data Invio:
mer 2 ago 2006 - 16:34
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
65
messaggi | Data Invio:
lun 29 giu 2009 - 17:16
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...
Torna su
Stanze Forum
Elenco Threads
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 !