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.

Here’s the PDF.

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