Microsoft Outlook Script modification needed

I would like modification to the script in the following link:

http://www.experts-exchange.com/Software/Internet_Email/Q_28343780.html#a39906510

The code should  :


Show a powerpoint slide in read only mode rather than a pop up box.
Nicotine1Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

David LeeCommented:
Nick,

Will the slideshow be a single slide or multiple slides?  Do you want it to show fullscreen or in a window?
0
Nicotine1Author Commented:
a single slide on a full screen please
0
David LeeCommented:
Nick,

Add this code to the bottom of the code you have in part #2 of the previous question.

Sub ShowPowerPointSlide(strPathToPPTFile As String)
    Const msoTrue = -1
    Const msoFalse = 0
    Const ppShowTypeKiosk = 3
    Dim pptApp As Object, pptPre As Object
    Set pptApp = CreateObject("PowerPoint.Application")
    Set pptPre = pptApp.Presentations.Open(strPathToPPTFile, msoTrue, msoFalse, msoFalse)
    With pptPre.SlideShowSettings
        .ShowType = ppShowTypeKiosk
        .Run
    End With
    pptPre.Saved = msoTrue
    Set pptPre = Nothing
    Set pptApp = Nothing
End Sub

Open in new window


Now, edit line #91 of the code in part #2, changing it from

MsgBox "You have not received a message from " & objTrack.Sender & " with a subject of """ & objTrack.Subject & """ in the last " & objTrack.Interval & " minutes.", vbInformation + vbOKOnly + vbApplicationModal, "Message Not Received"

Open in new window


to

'On the next line edit the path to and name of the PowerPoint file you want to show
ShowPowerPointSlide "C:\Showfile.pptx"

Open in new window


Instead of the message-box dialog you'll now get the slide in the PowerPoint file.  Pressing ESC will clear the slide from the screen.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
OWASP Proactive Controls

Learn the most important control and control categories that every architect and developer should include in their projects.

Nicotine1Author Commented:
h
0
Nicotine1Author Commented:
I encounter the following error occassionally.pop up    debug
0
David LeeCommented:
Do you have a rule that's moving items to another folder?  That's the most likely cause.
0
Nicotine1Author Commented:
Yes there is, but it cannot be removed. Is there any work around?
0
David LeeCommented:
There are two options.

1.  Convert the code to run from a rule.  You would create a rule that fires for all messages except those moved by the other rule.  The new rule would run the macro.

2.  Convert the other rule into code and add it to what I posted above.

The former is probably the better choice, but I'll leave it up to you to decide which way to go.
0
Nicotine1Author Commented:
Seems like it Option 1 is the way to go.

I guess the new rule will have to be the very first rule in the mailbox, so it doesn't affect the other rules right?
0
David LeeCommented:
Ok.  I'm going to make that change in the original question since it really has nothing to do with the present question.
0
Nicotine1Author Commented:
Thanks Blue Devil Fan
0
David LeeCommented:
You're welcome, sir!
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Development

From novice to tech pro — start learning today.