Pakku’s Blog

(Probably) all of you get email, and just like this guy next to this text, we all are very happy with it :-p

I recently switched from VB.NET 2003 to 2008 and I wanted to do  something with e-mail. So here is a DLL to read/download (POP3) email and to send (SMTP) email.

For the ones who just want the code: (download below)

POP3



Imports System
Imports System.Net.Sockets
Imports System.Text
Imports System.IO

Public Class POP3

    Private Shared Server As TcpClient
    Private Shared NetStrm As NetworkStream
    Private Shared RdStrm As StreamReader

    Public Shared Function Connect(ByVal POP3Server As String, ByVal User As String, ByVal Password As String) As Boolean
        If POP3Server.Trim = “” Then
            Return False
        End If
        Try
            Server = New TcpClient(POP3Server.Trim, 110)
            NetStrm = Server.GetStream
            RdStrm = New StreamReader(Server.GetStream)
        Catch exc As Exception
            Return False
        End Try
        If RunQuery(”USER ” & User.Trim).Substring(0, 3) <> “+OK” Then
            Return False
        End If
        If RunQuery(”PASS ” & Password).Substring(0, 3) <> “+OK” Then
            Return False
        End If
        Return True
    End Function

    Public Shared Sub Disconnect()
        Dim data As String = “Quit ” & vbCrLf
        Dim szData() As Byte = System.Text.Encoding.ASCII.GetBytes(data.ToCharArray())
        NetStrm.Write(szData, 0, szData.Length)
        Dim tmpString As String = RdStrm.ReadLine()
    End Sub

    Public Shared Function DeleteMessage(ByVal msgIndex As Integer) As Boolean
        If RunQuery(”DELE ” & msgIndex.ToString).Substring(0, 4) = “-ERR” Then
            Return False
        Else
            Return True
        End If
    End Function

    Public Shared Function NumberOfMessages() As Integer
        If RunQuery(”STAT”).Substring(0, 4) = “-ERR” Then
            Return -1
        End If
        Dim Stat As String = RunQuery(”STAT”)
        If Stat.Substring(0, 4) = “-ERR” Then
            Return -1
        End If
        Dim Number() As String
        Number = Stat.Split(” “)

        Return CInt(Number(1))
    End Function

    Public Structure Message
        Dim _From As String
        Dim _To As String
        Dim _Date As String
        Dim _Subject As String
        Dim _CC As String
        Dim _BCC As String
        Dim _Body As String
        Dim _Received As String
    End Structure

    Public Function ReadMessage(ByVal MsgIndex As Integer) As Message
        Dim Response As String
        Dim MsgText As String = “”
        Dim MsgReturn As New Message
        Dim BrkPos As Integer
        Dim Header As String
        Dim Headers() As String
        Dim Body As String
        Dim HeaderName As String
        Dim HeaderValue As String

        Try
            Response = RunQuery(”RETR ” & MsgIndex.ToString)
            If Response.Substring(0, 4) <> “-ERR” Then
                While (Response <> “.”)
                    MsgText = MsgText & Response & vbCrLf
                    Response = RdStrm.ReadLine
                End While
            End If
        Catch exc As InvalidOperationException
            Throw New Exception(”Message Retrival Failed: ” & vbCrLf & Err.ToString())
            Exit Function
        End Try

        BrkPos = InStr(1, MsgText, vbCrLf & vbCrLf)
        If BrkPos Then
            Header = MsgText.Substring(0, BrkPos - 1)
            Body = MsgText.Substring(BrkPos + 1, _
            MsgText.Length - Header.Length - 3)
            MsgReturn._Body = Body
        Else
            Throw New Exception(”Invalid Message Format”)
            Exit Function
        End If

        Headers = Split(Header, vbCrLf)
        Dim _header As String
        For Each _header In Headers
            BrkPos = _header.IndexOf(”:”)
            If BrkPos >= 0 Then
                HeaderName = _header.Substring(0, BrkPos)
            Else
                HeaderName = “”
            End If
            HeaderValue = _header.Substring(BrkPos + 1)
            Select Case HeaderName.ToLower
                Case “received”
                    MsgReturn._Received = HeaderValue
                Case “from”
                    MsgReturn._From = HeaderValue
                Case “to”
                    MsgReturn._To = HeaderValue
                Case “cc”
                    MsgReturn._CC = HeaderValue
                Case “bcc”
                    MsgReturn._BCC = HeaderValue
                Case “subject”
                    MsgReturn._Subject = HeaderValue
                Case “date”
                    MsgReturn._Date = HeaderValue
            End Select
        Next

        Return MsgReturn
    End Function

    Private Shared Function RunQuery(ByVal Query As String) As String
        Query = Query & vbCrLf
        Dim Data() As Byte = System.Text.Encoding.ASCII.GetBytes(Query.ToCharArray())
        NetStrm.Write(Data, 0, Data.Length)
        Dim Response As String = RdStrm.ReadLine

        Return Response
    End Function

End Class

Imports System.Net.MailPublic

Class SMTPPublic

    Shared Function SendMail(ByVal MServer As String, _
      ByVal MFrom As String, _
      ByVal MTo As String, _
      ByVal MSubject As String, _
      ByVal MBody As String, _
      Optional ByVal MBodyHTML As Boolean = False, _
      Optional ByVal MCC As String = Nothing, _
      Optional ByVal MBCC As String = Nothing, _
      Optional ByVal MAttachment As String = Nothing, _
      Optional ByVal MServerUser As String = Nothing, _
      Optional ByVal MServerPass As String = Nothing, _
      Optional ByVal MServerPort As Integer = 25, _
      Optional ByVal MServerSLL As Boolean = False) As Boolean
        Try
            Dim Mail As New System.Net.Mail.MailMessage
            With Mail
                .From = New MailAddress(MFrom)
                .To.Add(MTo)
                .Subject = MSubject
                .IsBodyHtml = MBodyHTML
                .Body = MBody
                If MBCC = Not Nothing Then .Bcc.Add(MBCC)
                If MCC = Not Nothing Then .CC.Add(MCC)
                If MAttachment = Not Nothing Then
                    Dim attachments() As String = Strings.Split(MAttachment, “;”)
                    Dim i As Integer
                    For i = 0 To UBound(attachments)
                        .Attachments.Add(New Attachment(attachments(i)))
                    Next
                End If
            End With
            Dim SMTP As New SmtpClient(MServer)
            If MServerUser.Length + MServerPass.Length > 0 Then
                SMTP.Credentials = New Net.NetworkCredential(MServerUser, MServerPass)
            End If
            SMTP.Port = MServerPort
            SMTP.Host = MServer
            SMTP.EnableSsl = MServerSLL
            SMTP.Send(Mail)
            SMTP = Nothing
            Mail.Dispose()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
End Class

For the one of us who just want the DLL file, also download it, the DLL file is in the ‘bin’-folder.I created this DLL in VB.NET 2008 but it might be easily convertible to older copies.

Pakku