Create msgbox to confirm before Outlook closes

[zoso]

Hi there!

I have the following code:

Private Sub Application_Quit()
    Dim Response As Integer
    Dim Title As String
    Dim Message As String

   Title = "Confirm"
   Message = "Do you really want to quit Outlook?"
   Response = MsgBox(Message, vbYesNo, Title)
   If Response = vbNo Then
       ???????????????
   End If
End Sub

What I'm after is some code in place of the ???????? so that Outlook remains open.

Hope you can help - and thanks!

 

[Zack Barresse]

Sorry, I thought you understood from one of my earlier posts when I did this ..

In ThisOutlookSession paste:


<font face=Tahoma New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>

<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Application_Startup()

<SPAN style="color:#00007F">Call</SPAN> DisableExit
<SPAN style="color:#00007F">Call</SPAN> CreateMenu

<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

But you did get it working, beautiful.

 

[zoso]

Yeah - many thanks again for all your help Firefytr