SQL and Email Problems

USE HelloWorld
GO
EXEC sp_configure 'clr enabled' , '1'

GO

RECONFIGURE

GO
Alter Database HelloWorld Set TrustWorthy On

GO
CREATE ASSEMBLY [System.Windows.Forms] FROM 'C:\Windows\Microsoft.NET\Framework\v2.0.50727\System.Windows.Forms.dll'
With Permission_Set=Unsafe

GO

CREATE ASSEMBLY SqlEmailDownloaderAssembly FROM 'E:\mail\SqlEmailDownloader.dll'

With Permission_Set=Unsafe

GO

CREATE PROCEDURE GetEmails

AS EXTERNAL NAME SqlEmailDownloaderAssembly.StoredProcedures.GetEmails

GO

Imports System.Data
Imports Microsoft.SqlServer.Server
Imports Limilabs.Client.IMAP
Imports Limilabs.Mail
Public Class Class1
    Public Class StoredProcedures<Microsoft.SqlServer.Server.SqlProcedure()> _
        Public Shared Sub GetEmails()
            Dim record As New SqlDataRecord({ _
                New SqlMetaData("UID", SqlDbType.BigInt), _
                New SqlMetaData("Subject", SqlDbType.NVarChar, 128)})

            Using client As New Imap()
                client.Connect("Imap.gmail.com")
                client.Login("username", "password")
                client.SelectInbox()

                SqlContext.Pipe.SendResultsStart(record)
                For Each uid As Long In client.Search(Flag.Unseen)
                    Dim eml As String = client.PeekHeadersByUID(uid)
                    Dim email As IMail = New MailBuilder() _
                    .CreateFromEml(eml)

                    record.SetSqlInt64(0, uid)
                    record.SetSqlString(1, email.Subject)
                    SqlContext.Pipe.SendResultsRow(record)
                Next
                client.Close()
                SqlContext.Pipe.SendResultsEnd()
            End Using
        End Sub
    End Class