Yeraze's Domain 3.0

Supercomputers, Programming, and Life in Mississippi

Entries for April, 2008

Outlook Macro : Move to Specified Folder & Mark As Read

Apr.22, 2008 in Software Comments

As a victim of Microsoft Outlook, I hear alot about using it in the GTD philosophy.  One of my favorite websites, LifeHacker, extolls it’s virtues (GTD, not Outlook) on a daily basis.  Yesterday they posted an article about how to modify your toolbars to give you shortcut keys for "Copy to folder" and "Move to folder" actions.  I don’t know why I never thought of that before.

I quickly set that up, and then realized I could add an additional shortcut for "Mark as Read" (our IT staff has disabled the ability to Mark as Read when Previews).  With those in place, I decided I might actually try another GTD point: an empty inbox.  The key to an empty inbox is to have a place to dump mail you’ve read and responded to, but don’t really need anymore except for reference.  They call it an "Archived" or "Processed" folder.  While I could do this with the "Move to" shortcut, I had to select the folder everytime.  With a bit of googling, I was able to setup an Outlook VB Macro (Under the Tools Menu) to Mark the message as read and move it to my personal PST file, in a folder called "Ancient Archive".

For everyone else’s benefit, the VB code is as follows:

Sub MoveToArchive()
On Error Resume Next
    Dim objFolder As Outlook.MAPIFolder
    Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem

    Set objNS = Application.GetNamespace("MAPI")
    Set objFolder = objNS.Folders("Personal Folders").Folders("Ancient Archive")
‘Assume this is a mail folder
 
 
    If objFolder Is Nothing Then
        MsgBox "This folder doesn’t exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
    End If
 
 
    If Application.ActiveExplorer.Selection.Count = 0 Then
        ‘Require that this procedure be called only when a message is selected
        Exit Sub
    End If
 
    For Each objItem In Application.ActiveExplorer.Selection
        If objFolder.DefaultItemType = olMailItem Then
            If objItem.Class = olMail Then
                objItem.UnRead = False
                objItem.Move objFolder
            End If
        End If
    Next
 
    Set objItem = Nothing
    Set objFolder = Nothing
    Set objNS = Nothing
End Sub

[tag:outlook][tag:gtd][tag:lifehacker][tag:macro]

Freezerburn – Screenshots in Action

Apr.16, 2008 in Projects Comments

So, I’ve talked a good bit about the technical guts of Freezerburn, so I figure it’s about time to show what it looks like.  Here is a screenshot of the Job Details page (in IE6 unfortunately, so the transparent PNG’s are a big nasty). 

Up top you see some basic statistics about the server.  Right below that you see the progress of the entire job, and then the progress of all the frames.  Each little box indicates a frame.

  • Green box – Frame is completed
  • Striped box – It’s a Mental Ray frame, and the three stripes indicate percentage complete of either Photon Emission (top bar), Final Gather (middle bar), or Rendering (bottom bar)
  • Spotted Box – some other unrecognized render stage
  • Red box (not shown) – Errored frame
  • Grey box – unassigned frame

Below that you see some basic information about the job (output frame, frame size), and i’ve expanded out the renderframe chart (Generated via Google Charts).  Below that are dropdowns for Server selection & individual frame controls.  It’s a very clean & organized interface, largely thanks to some fine HTML & Graphics work by my co-worker Kevin. 

Comments?
[tag:freezerburn][tag:max][tag:queue][tag:render]

Laura is now an RHIT, CCS

Apr.14, 2008 in Family Comments

Just wanted to make a nice public announcement that now Laura is an RHIT, CCS!  She took her CCS Certification exam this weekend and passed with flying colors!  Congratulations Laura!

[tag:certification][tag:ahima][tag:ccs]

  

Welcome!

Welcome to Yeraze's Domain. I'm just a husband, dad to 2, working for the man, living back in the home state of Mississippi, using a Mac, and playing a Wii. Hope you find it entertaining, and make sure to come back often!