Closing Application After User Reviews

[esutcliffe]

Greetings,

How do I close MS Outlook after use reviews the email before sending?

I open MS Outlook application and create an email. But at the end of
the function I do not Quit Outlook as I want the user to review the
email before sending.

Once the email is sent, an instance of Outlook is left hanging out
there open. I am not sure where or how to place the "Quit" once the
email is sent by the user. Any advice.

Code snippet.

' Variables to set up email
Dim objOutlook As Outlook.Application
Dim objSession As Outlook.Namespace
Dim objMailItem As Outlook.MailItem

'Determine if Outlook is Open
On Error Resume Next
'Get an instance of MS Outlook
Set objOutlook = GetObject(, "Outlook.Application")

'Check if Outlook is open
If Err = 429 Then
'If Outlook is not already open, get a new Outlook object
Set objOutlook = New Outlook.Application
End If

Set objSession = objOutlook.GetNamespace("MAPI")
Set objMailItem = objOutlook.CreateItem(olMailItem)

objSession.Logon

With objMailItem
.To = strEAddress
.Subject = strSubject
.Body = strBody
.Attachments.Add cstrInvoicing
.Attachments.Add cstrAgreement
.Attachments.Add cstrLetter
.Attachments.Add cstrInfo
.Display
End With

objSession.Logoff

Set objMailItem = Nothing
Set objSession = Nothing
Set objOutlook = Nothing

End Function