Solved

Microsoft Outlook Script modification needed

Posted on 2014-03-06
12
325 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
Comment Utility
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
Comment Utility
a single slide on a full screen please
0
 
LVL 76

Accepted Solution

by:
David Lee earned 500 total points
Comment Utility
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
 

Author Comment

by:Nicotine1
Comment Utility
h
0
 

Author Comment

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

Expert Comment

by:David Lee
Comment Utility
Do you have a rule that's moving items to another folder?  That's the most likely cause.
0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 

Author Comment

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

Expert Comment

by:David Lee
Comment Utility
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
Comment Utility
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
Comment Utility
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
Comment Utility
Thanks Blue Devil Fan
0
 
LVL 76

Expert Comment

by:David Lee
Comment Utility
You're welcome, sir!
0

Featured Post

The problems with reply email signatures

Do you wish that you could place an email signature under a reply? Well, unfortunately, you can't. That great Exchange/Office 365 signature you've created will just appear at the bottom of an email chain. What a pain! Is there really no way to solve this? Well, there might be...

Join & Write a Comment

Whether you've completed a degree in computer sciences or you're a self-taught programmer, writing your first lines of code in the real world is always a challenge. Here are some of the most common pitfalls for new programmers.
Explore the encryption capabilities built into Google Apps and how these features can help you meet privacy policy and regulatory compliance, but are not a full solution. Understand and compare the most popular email encryption services for Google A…
The purpose of this video is to demonstrate how to set up Lists in Mailchimp. This will be demonstrated using a Windows 8 PC. Mailchimp will be used. Log into your Mailchimp account. : Click on Lists. Click on Create List Button : Choose the desi…
This Micro Tutorial demonstrates  how Internet marketers work with competitive analysis data, and a common task in data preparation is creating separate column for domains. You will then extract from a list of URLs.

771 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now