Friday, March 18, 2011

3 Months!

We have survived 3 months with two kids! Moments have been challenging. Such as the day where Levi had the flu and was pukey and sick, Luke was throwing up, I had pink eye and several doctors appointments I had to cancel and re-schedule. But for the most part having two boys has been so much fun! Levi loves Luke and Luke lights up everytime Levi talks to him. The second Luke cries Levi goes running to help Luke. He says when Luke wakes up, "YAY Luke awake!" "Luke, Sweet Dreams?" Luke is such a great baby! Don't ask Josh though on the "occasional" time he is awake at night if he is a good baby or not. We love our boys and we love having Luke. Here they are on St. Patrick's Day and Luke's three month old mark! As you can see in the pictures Luke would normally rather be alone than to be held!

Tuesday, March 8, 2011

Techie Post: How to forward your Outlook emails to another email address

Ok, so I realize most people reading this blog won't care about this topic, but I have a Blackberry cell phone and my company doesn't support syncing our Outlook work emails to Blackberry phones; however, sometimes it's very inconvenient when I am not at my computer but need to read work emails.

Here is one solution if all you need to do is forward emails at all times (if you only want emails forwarded during a time window, see below):

However, if the above solution doesn't work for you like it didn't for me as my company's email server blocks automatic forwarding, then you can use this solution below:

Below is a VBA script, a macro, that will forward emails received in your Outlook Inbox to an external email address. I needed this to forward work emails from Outlook to my Blackberry phone and it works.
To use it:

1. Start Outlook
2. Click Tools->Macro->Visual Basic Editor
3. If not already expanded, expand Microsoft Outlook Objects in the Project pane, then click on "ThisOutlookSession"
4. Copy the script below
5. Paste the script into the right-hand pane of the VB Editor
6. Edit the script making the changes as per the comments I included in the code
7. Click the diskette icon on the toolbar to save the changes
8. Close the VB Editor
9. Click Tools->Macro->Security
10. Set Security Level to Medium
11. Close Outlook
12. Start Outlook
13. A dialog-box will appear telling you the ThisOutlookSession contains macros and asking if you want to enable them. Say yes.
14. Test the macro
15. When the macro runs Outlook will present you with another dialog-box advising that a program is trying to access your mailbox and asking if you want to allow it to. Say yes.
16. If a message is received in the mailbox, and if the time is currently between the times you set, then the message will be forwarded to the designated email address. Otherwise, nothing will happen.
17. Once you've verified that the macro works as expected, then you need to sign the macro to avoid having Outlook security warn you each time the macro runs.
18.  Let me know if you need help.
Private WithEvents objInboxItems As Items

Private Sub Application_Startup()

Dim objNS As NameSpace

Set objNS = Application.GetNamespace("MAPI")

' instantiate Items collections for folders we want to monitor

Set objInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items

Set objNS = Nothing

End Sub

Private Sub Application_Quit()

' disassociate global objects declared WithEvents

Set objInboxItems = Nothing

End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)

Dim olItems As Items, _

olItem As Object, _

olMailItem As MailItem, _

olAttachmentItem As Attachment, _

bolTimeMatch As Boolean

Set olItems = objInboxItems.Restrict("[Unread] = True")

For Each olItem In olItems

If olItem.Class = olMail Then

Set olMailItem = olItem

'Change the times on the next line to those you want to use

bolTimeMatch = (Time >= #4:00:00 PM#) And (Time <= #8:30:00 AM#)

If bolTimeMatch Then

Dim objMail As Outlook.MailItem

Set objItem = olMailItem

Set objMail = objItem.Forward

objMail.To = ""


Set objItem = Nothing

Set objMail = Nothing

End If

End If


End Sub

Function IsNothing(Obj)

If TypeName(Obj) = "Nothing" Then

IsNothing = True


IsNothing = False

End If

End Function

Monday, March 7, 2011

Book of the Month Review: February - FISH!

Book of the month for February, 2011:

FISH!, by Stephen C. Lundin, Harry Paul, and John Christensen

February's book of the month was given to me by the CEO of my new firm, after which he said "A good business book is one you can read entirely on a plane flight from the East Coast to Denver."  Now, it took me longer than a few hours to read, but only because I didn't have that much time in one day to dedicate to reading.

RECOMMENDATION: Must read for anyone who struggles finding joy in their occupation or in motivating their employees.

PAGES: 110
It's a wet, cold, dark day in Seattle, and on the third floor of First Guarantee Financial, people have stopped believing they can make a difference. Teamwork and customer service are a distant memory. The staff is so disconnected from their work that their area is known as the "Toxic Energy Dump."

To new manager Mary Jane Ramirez, the challenge of bringing life back to the toxic energy dump seems overwhelming–until she discovers a workplace down the street that's dramatically different from her own.

These employees are so alive, so joyful, so passionate and so fully present in every moment that people actually come just to watch them work! With nothing to lose, Mary Jane decides to seek help from these unlikely business consultants—real-life fishmongers who transformed their once-dreary business with four simple but profound principles.
A moving parable about the power of personal choice, FISH! is the story of Mary Jane's journey of self-discovery. Along the way she and her team discover they have the power to create the workplace of their dreams through the choices they make every day. And now, each of us can make that same journey.

I really enjoyed reading this book!!  Not only is it written in story format (not just boring business principles) that includes romance, but it's quick and easy to read.  Even though it's easy to read, it made me really think about how I view my work, what I do for a living, and how I can learn to enjoy it if I don't already.  If fish mongers can learn to love what they do (gross), I can learn to love what I do.  If changing your career isn't something you can easily do and if you don't really "enjoy" what you're doing, this can be a life saver.

I hope you enjoy it as much as I did.