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

LWQHLWQH

我用程序发电子邮件，在家里电脑上每执行一次发电子邮件程序就会增加一个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 = "13908888888@139.com"
        .Send
    End With
    Set itmNewMail = Nothing
    Set ObjOL = Nothing
End Sub

LWQHLWQH

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

zhyzhsh

增加一条 ObjOL.quit 试试

dsd999

同意楼上的，楼主试没试？

LWQHLWQH

试了试，问题还是那样。
并且加了ObjOL.quit 语句后outlook打开时执行还会出现发件箱有内容，是否关闭字样的提示。

zhyzhsh

原帖由 LWQHLWQH 于 2010-11-21 12:16 发表
试了试，问题还是那样。
并且加了ObjOL.quit 语句后outlook打开时执行还会出现发件箱有内容，是否关闭字样的提示。

可能是由于安全性的原因导致.Send没有发送成功，可以试着.Show，然后发送Ctrl+Enter组合键来发送邮件。