The Microsoft Visual Basic® Sub SendMailMsg creates a Data Transformation Services (DTS) step and a SendMailTask object. It configures the task to send an e-mail message with attachment to a recipient named  "IT Managers"  and CC to  "Data Center Operations" :

Private Sub SendMailMsg(ByVal objPackage As DTS.Package2)
Dim objStep         As DTS.Step
Dim objTask         As DTS.Task
Dim objSendMail     As DTS.SendMailTask

'create step and task
Set objStep = objPackage.Steps.New
Set objTask = objPackage.Tasks.New("DTSSendMailTask")
Set objSendMail = objTask.CustomTask

'configure send mail task
With objSendMail
    .Name =  "ErrorMailTask" 
    .Profile =  "Microsoft Outlook" 
    .ToLine =  "IT Managers" 
    .CCLine =  "Data Center Operations" 
    .Subject =  "Error in DTS Nightly Job" 
    .MessageText =  "An error occurred loading data "  & _
                 "warehouse.  See attachment for details." 
    .FileAttachments =  "D:\DTS_UE\Messages\DTSError.txt" 
    .IsNTService = True
    .SaveMailInSentItemsFolder = True
End With

'link step to task
objStep.TaskName = objSendMail.Name
objStep.Name =  "ErrorMailStep" 
objPackage.Steps.Add objStep
objPackage.Tasks.Add objTask
End Sub

Sub SentMail(varRecip,varAttach,strSubject,strMessage)
Set golApp = Wscript.CreateObject( "Outlook.Application" )
	Set objNewMail = golApp.CreateItem( 0 )
		objNewMail.Recipients.Add varRecip 
		objNewMail.Attachments.Add varAttach
		objNewMail.Subject= strSubject
		objNewMail.body= strMessage
		If objNewMail.Recipients.ResolveAll Then objNewMail.Send
	Set golApp = Nothing
set objNewMail = Nothing
End Sub