Yes, you need to add a reference to Microsoft DTSPackagae Object library. This is a quick sample from "professionl SQL Server 2000 DTS" a great book on the subject in general.

Option Explicit

Dim oDTS As DTS.Package
Dim oStep As DTS.Step
Dim oMail As DTS.SendMailTask
Dim oTaskobj As DTS.Task
Dim oMailTask As DTS.Task


Private Sub Command1_Click()
Set oDTS = New DTS.Package

oDTS.Name = "Test VB Project"

Set oStep = oDTS.Steps.New

Set oMailTask = oDTS.Tasks.New("DTSSendMailTask")

oMailTask.Name = "DTSSendMail_Added_At_Runtime"

Set oMail = oMailTask.CustomTask

oMail.MessageText = "This is a test mail."
oMail.ToLine = "testing@usa.com"
oMail.Subject = "Test Mail"

oStep.TaskName = oMail.Name
oStep.Name = "AutoMailSend"

oDTS.Steps.Add oStep
oDTS.Tasks.Add oMailTask

'Send the mail
oDTS.Steps("AutoMailsend").Execute


End Sub

Hopes this helps.

Jason P. Mahoney