为什么每发一次邮件就有一个Outlook进程驻留

我用程序发电子邮件，在家里电脑上每执行一次发电子邮件程序就会增加一个Outlook进程，但在另一个办公用的笔记本电脑上运行时正常，outlook进程能够正常关闭，不知何解。请问是否与运行环境有关，对增加进程时有什么代码可以关闭此增加的进程？
程序代码大体如下：
Sub Faxing()
    Dim ObjOL As Object, itmNewMail As Object, I As Integer
    Set ObjOL = CreateObject("Outlook.Application")
    DisablePrompt ObjOL
    Set itmNewMail = ObjOL.CreateItem(olMailItem)
    With itmNewMail
        .Subject = Time & "查收！"
        .Body = “Xingxi”
        .To = "[email protected]"
        .Send
    End With
    Set itmNewMail = Nothing
    Set ObjOL = Nothing
End Sub

今天新发现：如果将Outlook界面预先打开，则outlook进程不会增加。Outlook 2003 系统。