dicembre 2004 Blog Posts
Inoltrare una pagina Web come e-mail:
Imports System.Net
Imports System.io
Imports System.Web.Mail
Imports System.Text
Imports System.Web
Public Class EmailUtility
Public Shared Sub SendEmail(ByVal from As String, ByVal [to] As String, _
ByVal subject As String, ByVal body As String, _
ByVal bodyFormat As MailFormat)
Dim message As New MailMessage
message.From = from
message.To = [to]
message.Subject = subject
message.Body = body
message.BodyFormat = bodyFormat
SmtpMail.SmtpServer = System.Configuration.ConfigurationSettings.AppSettings.Item("SmtpServer")
SmtpMail.Send(message)
Exit Sub
End Sub
Shared Sub New()
End Sub
Shared Sub InviareIlMessaggio()
SendEmail("Da", “Destinatario”, "Oggetto", readPage(“Pagina da leggere”, _
MailFormat.Html)
End Sub
Shared Function readPage(ByVal url As String) As String
Try
Dim result As...
http://desktop.google.com/?promo=app-gds-en-us
Molto, Molto interessante ....
Spesso l’istanza di una classe deve essere creata una volta in tutto il progetto.
E’ possibile creare all’interno della classe stessa un metodo “GetInstance” che ritorna una variabile shared la quale punta all’unica istanza. Esempio:
Namespace BusinessLogicLayer
Public Class MiaClasse
Shared pInstance As MiaClasse
Public Shared Function GetInstance() As MiaClasse
If pInstance Is Nothing Then pInstance = New MiaClasse
Return pInstance
End Function
Private Sub New()
'Codice per inizializzare la vostra classe
'La sub new è privata, per accedere alla classe si utilizza il metodo
GetInstance.
End Sub
End Class
End NameSpace
Cosi quando volete accedere alla...
Ho giocato abbastanza ... foto, logo e configurazione!
Domani magari scrivo anche qualcosa .... HIHI!!!
Notte!!!
Andrea
Ciao a tutti.
E' con immenso piacere che scrivo le mie prime righe.
Ciao a presto.
Andrea