Sign in to follow this  
Followers 0
picea892

Outlook Widget - New Email / Today's Calendar

6 posts in this topic

#1 ·  Posted (edited)

Hi all

Download the zip and extract the script and two pngs to the same folder.

Make sure your outlook is running then execute the script.

You click on the New emails or Appointments on the bottom of the widget in order to switch.

If you don't like my png, rename any png to "perfect2.png" and it will be stretched to fit.

Improvement or suggestions welcomed.

Updated Oct 5th, 2009 - Widget moveable and will change size incrementally

Updated Oct 6th, 2009 - Demonstrate imbedding png in png and use Spudw2k idea

Updated Oct 10th, 2009 - Transparent font for calendar headers, clicking items will view them in outlook

owidget.zip

Edited by picea892

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Not bad. I had an error at first due to having more than 50 emails in my inbox. You should increment the array dynamically.

edit:

I like the idea though. Good job.

Edited by spudw2k

Share this post


Link to post
Share on other sites

Hi Spudw2k

Thanks for the positive feedback.

You must have 50 new emails, right? Anyways I changed the original array dim to 150. That should suit most people :) But can you explain what you mean by incrementing the array dynamically? Do you mean multiple redims?

Couple updates, I made the resizing of the widget more smooth and now the widget can be dragged around.

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

here's along the lines of what I was thinking.

Func inbox()
    Dim $inbox[1][2]
    
    $objOL = ObjCreate("Outlook.Application")
    $session = $objOL.GetNameSpace("MAPI")
    $inboxfldr = $session.GetDefaultFolder(6)
    
    For $m In $inboxfldr.items
        If $m.unread Then
            ReDim $inbox[UBound($inbox)+1][2]
            $inbox[UBound($inbox)-1][0]=$m.subject
            $inbox[Ubound($inbox)-1][1]=$m.ReceivedTime
        EndIf
    Next
    $inbox[0][0]=UBound($inbox)
    _ArraySort($inbox,0)
    $session.logoff
EndFunc

edit: untested

Edited by spudw2k

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

I made Spudw2k change.

There are now 3 files. I have now demonstrated how to embed one png in another and use it as a button.

Probably last improvement. I'm going to keep this somewhat clean as I believe it is a good learning example. At least it was for me.

I would have used a better quality 2nd png but size limitations wouldn't permit. I'll let you go hunt down a better quality png.

Picea

Edited by picea892

Share this post


Link to post
Share on other sites

Some really neat updates I wanted to share. I used a post by Malkey to make transparent font. Really neat.

http://www.autoitscript.com/forum/index.php?showtopic=89702&st=0&p=644998&hl=gdi%20transparent&fromsearch=1&#entry644998

Now clicking on any of the new email or appointment entries will view in outlook. This really is how it should function. I just plant it on my second monitor and find it very useful. Maybe you will too.

Picea

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0