VB script megoldás?

Azt szeretném, ha egy könyvtárba valami állományt másolnak(nyitott hálózat), arról én emailben értesítést kapjak.

Ha a figyelt könyvtárakban változás van egy Folder Spy nevű program elindítja az Outlookot és lefuttat egy VBscript makrót.

Ez a makró nem jól működik nekem. E makró el kell küldje az emailt, majd kis késleltetéssel be kell zárja az Outlookot. Ez a kis késleltetés nem jön össze, ezért az outlook problémázik kilépésnél, hogy még postázandó van.

Jelenleg ez a program:

Sub FileErkezett()

Dim OutApp As Object

Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail

.To = "john@doe.com"

.Subject = "Állományt töltöttek fel" & Now()

.Attachments.Add ("file_path")

.Send

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

Dim OL As Object

On Error Resume Next

Set OL = GetObject(, "Outlook.Application")

On Error GoTo 0

If OL Is Nothing Then

MsgBox "Outlook is not running!"

Else

OL.Quit

End If

End Sub