<SCRIPT RunAt=Server Language=VBScript>

'FILE DESCRIPTION: Exchange Event Script for processing Email
'
' Author: Tom Floodeen, Jr. VeriBest, Inc. tmf@veribest.com

Option Explicit 

' Event Handlers

'This event fires when a new message is added to the folder

Public Sub Folder_OnMessageCreated
    Call SendMessage()
End Sub

'This event fires when a message in the folder is changed

Public Sub MessageOnChange
End Sub

' This event fires when a message is deleted from the folder

Public Sub Folder_OnMessageDeleted
End Sub

'This event fires when the timer on the folder expires

Public Sub Folder_OnTimer
End Sub

'Private Functions and Subroutines

'   Name: SendMessage
'   Desc: Get CDO objects and Send Message

'Get the details of the event that fired

Private Sub SendMessage()
    On Error Resume Next
	
    Dim CDOSession		'Session Object
    Dim oMsg			'Message Object
    Dim oFolder		'Current Folder Object
    Dim oFolderOutbox	'Outbox Folder Object
    Dim oMsgTarget		'Target Msg Object
    Dim oRec			'recipients
    Dim a			'Text File Object
    Dim fso			'File System Object
    Dim SendText		'Recipient Address
	
    Set CDOSession = EventDetails.Session
    Set oFolderOutbox = CDOSession.Outbox
    Set oFolder = _
        CDOSession.GetFolder(EventDetails.FolderID, Null )
    Set oMsgTarget = _
        CDOSession.GetMessage( EventDetails.MessageID, Null )
		
    'Open Text File
    Set fso = CreateObject("Scripting.FileSystemObject")
	
    'Read the text file
    Set a = fso.OpenTextFile("C:\Mail\CustomersDL.txt", 1)
    SendText = a.ReadLine
	
    Do
        'Create message in Outbox by forwarding to 
        'preserve attachments
        Set oMsg = oMsgTarget.Forward( )
        oMsg.Subject = oMsgTarget.Subject
        oMsg.Text = oMsgTarget.Text
		
        Set oRec = oMsg.Recipients
        oRec.Add SendText	'Add and resolve recipients
        oRec.Resolve
        oMsg.Send
        SendText = "-1"
        SendText = a.ReadLine
    Loop Until SendText = "-1"
	
    a.Close
	
    oMsgTarget.Delete  'Delete Original Message
	
End Sub
</SCRIPT>