Email output
List of stuff due today 9/21/2007 :
ID : 100
ID : 101
etc...

Execute SQL Task
' General > Resultset = Full Result set
' Result Set > Result Name = 0, Variable Name = User::ObjectName

Script Task
' ReadWriteVariables = ObjectName

Imports System
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.Net.Mail
Imports System.Net
Imports System.Data
Imports System.IO
Imports Microsoft.SqlServer.Dts.Pipeline
Imports System.Text

Public Class ScriptMain
    Public Sub Main()
        Dim msg As MailMessage
        Dim smtp As SmtpClient

        Dim dt As Data.DataTable
        Dim ad As New Data.OleDb.OleDbDataAdapter
        dt = New System.Data.DataTable
        ad.Fill(dt, Dts.Variables("User::ObjectName").Value)

        Dim data As String

	' Iterate rows and concatenate into data variable
        For Each row As Data.DataRow In dt.Rows
            For Each column As Data.DataColumn In dt.Columns
                data = data & (column.ColumnName & " : " & row(column.Ordinal).ToString()) & "<br>"
            Next
        Next

        Dim sendNotify As String
        sendNotify = "<pre>List of stuff due today " & Today() & " : <br><br>" & data.ToString() & ""

        msg = New MailMessage( _
        "fromyouremail@mail.com", _
        "toyouremail@mail.com", _
        "Subject: Here's My Stuff", sendNotify)
        smtp = New SmtpClient("myServer")
        smtp.Credentials = CredentialCache.DefaultNetworkCredentials
        msg.IsBodyHtml = True
        smtp.Send(msg)
        Dts.TaskResult = Dts.Results.Success
    End Sub
End Class