No.10 envelope from letter size paper
Based on the Diagolope from Judikins, this envelope template fits on a regular letter size page. If you print the PDF, use the “Do Not Scale” printing option.

Lexmark C500 instructable
Got a cheap color laser on Craigslist. The outputs were terrible. Fixed it in about an hour. I posted my first Instructable here.
Outlook to SMS
I created a rule in Outlook to forward every message I receive to my phone — kind of a poor man’s Blackberry. The rule invokes the below script for each message received. This script requires the Outlook Redemption library, in order to avoid the security popups (add it to your project under Tools -> References in Outlook’s VB editor). Use the email-to-SMS gateway appropriate for your service.
Sub ForwardAsSMS(myEmail As MailItem)
Dim SafeEmail As Redemption.SafeMailItem, _
oEmail As Outlook.MailItem, _
msg As String, _
recipient As String
Set SafeEmail = CreateObject("Redemption.SafeMailItem")
Set oEmail = Application.CreateItem(olMailItem)
recipient = "Your.SMS.Address@your.SMS.gateway.com"
SafeEmail.Item = myEmail
msg = Mid(SafeEmail.SenderEmailAddress & "|" & _
SafeEmail.Subject & "|" & SafeEmail.Body, 1, 160) ' trim to fit SMS
SafeEmail.Item = oEmail
SafeEmail.Body = msg
SafeEmail.Recipients.Add recipient
SafeEmail.Send
End Sub
EDIT: here’s another one for forwarding meeting requests.
Sub ForwardMeetingAsSMS(myMeeting As MeetingItem)
Dim SafeEmail As Redemption.SafeMailItem, _
SafeMeeting As Redemption.SafeMeetingItem, _
oEmail As MailItem, _
msg As String, _
recipient As String, _
timezone As Integer
recipient = "Your.SMS.Address@your.SMS.gateway.com"
timezone = -5 ' e.g. This is New York time zone
Set SafeEmail = CreateObject("Redemption.SafeMailItem")
Set SafeMeeting = CreateObject("Redemption.SafeMeetingItem")
Set oEmail = Application.CreateItem(olMailItem)
SafeMeeting.Item = myMeeting
msg = Mid(SafeMeeting.Sender.Address & " " & SafeMeeting & " " & _
DateValue(DateAdd("h", timezone, SafeMeeting.Fields(&H600040))) & " " & _
Format(TimeValue(DateAdd("h", timezone, SafeMeeting.Fields(&H600040))), "h:mmAMPM") & "-" & _
Format(TimeValue(DateAdd("h", timezone, SafeMeeting.Fields(&H610040))), "h:mmAMPM"), 1, 160)
SafeEmail.Item = oEmail
SafeEmail.Body = msg
SafeEmail.Recipients.Add recipient
SafeEmail.Send
End Sub
