Outlook Widget - New Email / Today's Calendar

[picea892]

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 October 10, 2009 by picea892

[spudw2k]

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 October 1, 2009 by spudw2k

[picea892]

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.

[spudw2k]

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 October 5, 2009 by spudw2k

[picea892]

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 October 6, 2009 by picea892

[picea892]

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