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 !