make outlook.exe process close properly

dgr7 · April 10th, 2007, 01:08 PM

hello,
I have some VB code that automatically composes an send an e-mail via Outlook 2002 and I've been having the problem of after the VB code executable has finished running the Outlook.exe process is left running in the background, which I can see when I look in the Processes tab of Windows Task Manager.
What changes do I have to do to the code to make the Outlook.exe process properly close after the e-mail has been sent and the VB code has finished executing?
thanks in advance,
david
------------

Code:

Dim OutApp As Object
    Dim OutMail As Object
    Dim SigString As String
    Dim Signature As String

    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)

    'figure out how to randomize the number to go between 2 and whatever # I'm up to'
    SigString = "C:\Documents and Settings\Admin\Application Data\Microsoft\Signatures\dgr2.htm"

    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
       Signature = "where's the signature?"
    End If

    On Error Resume Next
    With OutMail
        .To = "[email protected]"
        .CC = "[email protected]"
        .BCC = ""
        .Subject = "CABCALLS & CABLETTERS record counts for " & Format(Date, "mm/dd/yy")
        .HTMLBody = "Hello Pam:<br><br>" & _
                "For " & Format(Date, "mm/dd/yy") & ":&nbsp;#160;&nbsp;#160;&nbsp;#160;&nbsp;#160;&nbsp;#160;# of Records<br>" & _
                "CABLETTERS.TXT&nbsp;#160;&nbsp;#160;" & CABLETTERSlineCount & "<br>" & _
                "CABCALLS.TXT&nbsp;#160;&nbsp;#160;&nbsp;#160;&nbsp;#160;" & CABCALLSlineCount & "<br><br>" & Signature
        .Display
    End With

    On Error GoTo 0

    TimeDelay (4)
    AppActivate OutMail
    VbSendKeys "^{ENTER}"
    AppActivate OutMail
    VbSendKeys "%{F4}"
    AppActivate OutMail
    VbSendKeys "Y"

    Set OutMail = Nothing
    Set OutApp = Nothing

------------

BrianWren · April 10th, 2007, 02:25 PM

Perhaps

Code:

        On Error Resume Next       ' <ââ<<< This is a bad idea.  You
        With OutMail               '        should trap anticipated 
        .To = "[email protected]" '        errors, issuing any ap- 
        .CC = "[email protected]"   '        propriate Resume Next
        .BCC = ""                  '        statements from the error
                                   '        handler.
        .Subject = "CABCALLS & CABLETTERS record counts for " & _
                   Format(Date, "mm/dd/yy")
        .HTMLBody = "Hello Pam:<br><br>" & _
                    "For " & Format(Date, "mm/dd/yy") & _
                    ":&nbsp;#160;&nbsp;#160;&nbsp;#160;&nbsp;#160;" & _
                    "&nbsp;#160;# of Records<br>" & _
                    "CABLETTERS.TXT&nbsp;#160;&nbsp;#160;" & _
                    CABLETTERSlineCount & "<br>" & _
                    "CABCALLS.TXT&nbsp;#160;&nbsp;#160;&nbsp;#160;" & _
                    "&nbsp;#160;" & CABCALLSlineCount & "<br><br>" & _
                    Signature
        .Display
    End With

    On Error GoTo 0 ' 

    TimeDelay (4)
    AppActivate OutMail
    VbSendKeys "^{ENTER}"
    AppActivate OutMail
    VbSendKeys "%{F4}"
    AppActivate OutMail
    VbSendKeys "Y"

    OutApp.Quit   ' I believe this is the one that will do the trick.
    OutMail.Exit  ' These others might be what you need though.
    OutMail.Close ' Itâll be one of these 3.

    Set OutMail = Nothing
    Set OutApp = Nothing

dgr7 · April 18th, 2007, 02:11 PM

modifying the last few lines of the code like this worked well for me....thank you

Code:

   VbSendKeys "Y"
    TimeDelay (4)
    Set OutMail = Nothing
    OutApp.Quit
    TimeDelay (4)
    Set OutApp = Nothing

BrianWren · April 18th, 2007, 03:51 PM

Good. Glad I was helpful.

See the following:

Code:

    VbSendKeys "Y"
    TimeDelay (4)          ' VB interprests parens as indicating that
    Set OutMail = Nothing  ' there will be a return value.  Donât use 
    OutApp.Quit            ' parens for arguments to Subs.
    TimeDelay 4            ' <ââââ<<<  This line does nothing for you.
    Set OutApp = Nothing   '           (See explanation, below.)

When you use the key word âSet,â you establish a reference; all that does is give you a way to refer toâ and communicate with an object.

The Operating System counts references. If there are any references to a given object, the OS will not destroy that object.

(In the case of a reference to a running application, the running instance is a referenceâso to speak.) When all the refernces are gone, and the app is closed, the memory and resources it used are released.

When a reference variable that refers to an application is set to nothing, all you do is lose the ability to communicate with the app through that variable. You need not wait for the app to close to set it to Nothing, and you need not set it to Nothing just because the app has been told to quit.

In your case, setting OutApp to Nothing is the right thing to do, but the time delay between .Quit and setting the OutApp to Nothing does nothing for you but slow your app down.