Macro's in PowerPoint

  • Thread starter Thread starter Russell Sage
  • Start date Start date
R

Russell Sage

I have written the following macro in Powerpoint which is
intended to automatically send an email to me if the user
clicks a button on the slide. I am attempting attach the
slide number to the email with out success. Any ideasSub
NewMail()
Dim faultyslide As PowerPoint.Slide
Dim currentslide As Long
Dim myApp As Outlook.Application
Dim myMailItem As Outlook.MailItem
currentslide = faultyslide.slidenumber
Set myApp = CreateObject("Outlook.Application")
Set myMailItem = myApp.CreateItem(olMailItem)
With myMailItem
.Subject = "Problem with CaDETMUX/2100 Manual"
.Recipients.Add "(e-mail address removed)"
.Importance = olImportanceHigh
.send
End With
End Sub

Regards

Russell Sage
 
I have written the following macro in Powerpoint which is
intended to automatically send an email to me if the user
clicks a button on the slide. I am attempting attach the
slide number to the email with out success. Any ideasSub
NewMail()
Dim faultyslide As PowerPoint.Slide
Dim currentslide As Long
Dim myApp As Outlook.Application
Dim myMailItem As Outlook.MailItem
currentslide = faultyslide.slidenumber
Click to expand...

currentslide = ActivePresentation.Windows(1).View.Slide.SlideIndex

will give you the index of the current slide, but I don't see that you use
it below:
 
Back
Top