SMTP Sender (Invio e-mail) VB.net

Questo tutorial vi permette di creare una piccola applicazione che permette l’invio di una e-mail, simulando l’invio tramite Telnet ma utilizzando un’interfaccia grafica.

Per prima cosa si devono disegnare gli oggetti all’interno della Form, quindi:

Ovviamente dovete denominare le TextBox ed il tasto così come ho indicato nella figura. Per quanto riguarda la txtContent si deve selezionare la casella MultiLine in modo da poter inserire più righe in quella TextBox.

Per prima cosa si devono importare alcune Referenze all’interno del codice, quindi:

Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.IO
Imports System.Threading
Imports System.Windows.Forms

Dopo averle importate, dichiarare le variabili quindi (le dichiarazioni vanno inserite dopo Public Class Form1):

Dim myTcpClient As New TcpClient()
Dim myNetworkStream As NetworkStream
Dim myThread As Thread

Facendo doppio click sul pulsante, quindi entrando nell’evento click di btnSend inserite:

myThread = New Thread(AddressOf SMTPMailProcess)
myThread.Start()

Qui si farà partire la procedura di invio dell’e-mail. In seguito si inserisce la procedura SMTPMailProcess:

Private Sub SMTPMailProcess()

Dim strFrom As String = txtFrom.Text
Dim strTo As String = txtTo.Text
Dim strSubject As String = txtSubject.Text
Dim strContent As String = txtContent.Text
Dim strCommand As String
Dim dteSendData() As Byte
Dim lngSize As Long

Try
myTcpClient.Connect(txtServer.Text, 465)
myNetworkStream = myTcpClient.GetStream
lngSize = myTcpClient.ReceiveBufferSize

ReDim dteSendData(lngSize)

myNetworkStream.Read(dteSendData, 0, lngSize)
strCommand = "HELO " + strFrom
SMTPCommandSend(strCommand)
strCommand = "MAIL FROM: <" + strFrom + ">"
SMTPCommandSend(strCommand)
strCommand = "RCPT TO: <" + strTo + ">"
SMTPCommandSend(strCommand)
strCommand = "DATA "
SMTPCommandSend(strCommand)

strCommand = "DATE: " + Date.Now.ToString + vbCrLf + _
"FROM: " + strFrom + vbCrLf + _
"TO: " + strTo + vbCrLf + _
"SUBJECT: " + strSubject + vbCrLf + vbCrLf + _
strContent + vbCrLf + "."

SMTPCommandSend(strCommand)
strCommand = "QUIT "
SMTPCommandSend(strCommand)

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Infine si inserisce l’ultima procedura che lancia i comandi per inviare l’email (Es. associare il tutto ad un socie, ecc…):

Private Sub SMTPCommandSend(ByVal strSend As String)

Dim bteSend() As Byte
Dim bteResponse() As Byte

Try
bteSend = Encoding.ASCII.GetBytes(strSend + vbCrLf)
myNetworkStream.Write(bteSend, 0, bteSend.Length)
ReDim bteResponse(myTcpClient.ReceiveBufferSize)
myNetworkStream.Read(bteResponse, 0, bteResponse.Length)

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Il Politometro

Ecco come calcolare il proprio orientamento rispetto ad alcuni temi chiave della campagna elettorale per le Politiche 2008. Il gioco è stato pubblicato da repubblica.it.

Asus Eeepc 900

Ecco il nuovo Asus Eeepc 900 con schermo a 9"...

Il biocellulare

Quanti di voi hanno un cellulare, credo proprio tutti. Quanto tempo vi "dura" un cellulare fra le mani, sinceramente il mio ultimo cellulare, per meglio dire palmare, mi è durato circa 6 mesi.

Ecco arrivare bamboo, un cellulare biodegradabile. In modo da gettarlo tranquillamente nella spazzatura, stando certi di non inquinare.

Tratto da punto-informatico: "Un miliardo di cellulari prodotti nel mondo ogni anno e solo il 10% viene riciclato - spiega la presentazione dell'apparecchio eco-compatibile - Un utente medio sostituisce il proprio telefonino ogni 18 mesi. Tutto questo ha un notevole impatto sull'ambiente: 36 kg di CO2 vengono utilizzati per produrre un telefonino di 90 grammi. Per ridurre questo impatto è ora di ripensare ai materiali di cui sono fatti i cellulari e a come li ricarichiamo".

Proprio da questo nasce Bamboo.

DVD su cellelari...

Si, è proprio così, sarà semplicissimo vedere film DVD sui propri cellulari, durante un viaggio, quando avete tempo libero e chi più ne ha più ne metta.
E' simile al vecchio floppy, è grande quanto una CompactFlash
ha una capacità di circa 1 GB.

Aggiornamento CrossLoop - Ver. 2.0

E' stata rilasciata la nuova versione di CrossLoop, un fantastico programma Open Source che ti permette di collegarti in modalità remora con un altro Pc.

Link dove poter effettuare il download http://www.crossloop.com/ipage.htm?id=download

Web 2.0

Facciamo un bel viaggio nel Web 2.0