Solved

Microsoft Outlook Script modification needed

Posted on 2014-03-06
12
344 Views
Last Modified: 2014-03-31
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.
0
Comment
Question by:Nicotine1
  • 6
  • 6
12 Comments
 
LVL 76

Expert Comment

by:David Lee
ID: 39908878
Nick,

Will the slideshow be a single slide or multiple slides?  Do you want it to show fullscreen or in a window?
0
 

Author Comment

by:Nicotine1
ID: 39909308
a single slide on a full screen please
0
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
ID: 39909405
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
Salesforce Has Never Been Easier

Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now

 

Author Comment

by:Nicotine1
ID: 39911408
h
0
 

Author Comment

by:Nicotine1
ID: 39916582
I encounter the following error occassionally.pop up    debug
0
 
LVL 76

Expert Comment

by:David Lee
ID: 39920061
Do you have a rule that's moving items to another folder?  That's the most likely cause.
0
 

Author Comment

by:Nicotine1
ID: 39920085
Yes there is, but it cannot be removed. Is there any work around?
0
 
LVL 76

Expert Comment

by:David Lee
ID: 39920155
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
 

Author Comment

by:Nicotine1
ID: 39920657
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
 
LVL 76

Expert Comment

by:David Lee
ID: 39921589
Ok.  I'm going to make that change in the original question since it really has nothing to do with the present question.
0
 

Author Closing Comment

by:Nicotine1
ID: 39966238
Thanks Blue Devil Fan
0
 
LVL 76

Expert Comment

by:David Lee
ID: 39966246
You're welcome, sir!
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
The advancement in technology has been a great source of betterment and empowerment for the human race, Nevertheless, this is not to say that technology doesn’t have any problems. We are bombarded with constant distractions, whether as an overload o…
The purpose of this video is to demonstrate how to use PicMonkey software to customize images for a Mailchimp campaign. Picmonkey is free and simple online software which can be used by users who don’t have robust editing software such as Photoshop,…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…

733 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question