PowerPoint Automation

[russell.sage]

I have put together a PowerPoint presentation and on each
slide I place button which will run a macro. The idea
being that if the user finds a fault with the presentation
then the macro emails me automatically(got that bit to
work) but it would help if I could tell which slide they
were viewing when they clicked the button. I just cannot
find away of getting the id of the current slide.

Sub mailto()

Dim mySlideIndex As Long
Dim faultySlide As Slide
Dim myApp As Outlook.Application
Dim myMailItem As Outlook.MailItem
Set myApp = CreateObject("Outlook.Application")
Set myMailItem = myApp.CreateItem(olMailItem)
Set faultySlide = ActivePresentation.Slides(SlideID)
mySlideIndex = faultySlide.SlideIndex
MsgBox (mySlideIndex)
With myMailItem
.Subject = "Problem with CaDETMUX/CRAY 2100 manual" +
mySlideIndex
.Recipients.Add "(e-mail address removed)"
.Importance = olImportanceHigh
.Send
End With
End Sub

Any and all assistance greatly received.

Thank you

Russell Sage