Dim $accessApp

If Exist ("c:\cognos\data\update.csv")
	$accessApp = CreateObject("Access.Application")
;	$accessApp.visible = 1
	$accessApp.OpenCurrentDatabase("C:\AccessDatabase\list.mdb")
	$accessApp.DoCmd.RunMacro("import")
;     Del "c:\cognos\data\update.csv"


$rc = SetOption("NoMacrosInStrings","On")
$rc = SetOption("NoVarsInStrings","On")
	$Root = CreateObject("Outlook.Application")
	$Session = $Root.GetNamespace("MAPI")
	$DefaultProfile = Outlook
	$Session.Logon($DefaultProfile)	
	$Folder = $Session.GetDefaultFolder(olFolderInbox)
	$Folder.Display

			$MailItem = $Root.CreateItem(0)
? "Root Creation: "+@Error
			$MailItem.Importance = 1
			$MailItem.Subject = "list Updated successfully!!!!."
			$MailItem.Sender = "sender@xxxplace.org"
			$MailItem.To = "receiver@xxxplace.org"
			$MailItem.Body = "list Updated successfully!!!!."
			$MailItem.Send
endif