Good afternoon,

I have been trying to get this macro code to work in powerpoint show mode;
and would really appreciate some help.

Goal:  send a three slide powerpoint show to an audience that did not attend
a training session.  slide one is intro to training, slide two has the video
taped training session, slide three a link to either mouse over or click.

clicking or mousing over the link on slide three activates VB macro code to
send preformatted email to inform training official that the person
completed viewing the show.

Problem:  VB macro works when viewing the three slides as a presentation,
but not a show.  Mousing over the link activates the macro, which triggers
the outlook security window popup asking permission for outlook to send the
email.  This pops up behind the show and is not visible.  I'd like the code
to send the email and then close the show so the outlook security window is
visible.

Heres the code:

Sub Sendemail()

' Macro created 1/24/2006 by Mr.
   Dim OL As Outlook.Application
   Dim Mail As MailItem

   Set OL = CreateObject("Outlook.Application")
   Set Mail = OL.CreateItem(olMailItem)
   Mail.Recipients.Add thecorrectemail@email.com
   Mail.Subject = "Training powerpoint completed"
   Mail.Body = "I completed viewing the required Training powerpoint
presentation.  Please mark me as training complete."
   Mail.Send
   Set Mail = Nothing
   Set OL = Nothing
' Quit PowerPoint.
  Application.Quit
' Close the object variable.
Set appPowerPoint = Nothing

End Sub