23 settembre 2006

Et in terra pax hominibus bonae voluntatis.

An excerpt from a christian prayer: "Gloria in excelsis Deo". The leitmotiv of personal productivity is "Effort doesn't count. Just results."

I can't agree. Efforts count regardless of results: you can obtain peace on earth by mean of your good will. And this is quite a result (no pun intended).

P.S.: In the english version of the "Gloria", they lost the meaning of this verse: "Peace to His people on earth" is less... ecumenic than "on earth peace to men of good will".

Powered by Qumana

17 settembre 2006

Jung Typology Test

From Guy Kawasaki's blog I noticed a comment by an italian reader, Nicola Mattina. Browsing his profile from his website, I found the word iNFj.

At a first glance, I thought it was a typo: few seconds after, I was compiling this test. I am an iNFj too. I took the test two more times just to be sure the result is not ever the same independently from your answer, and seems to be genuine.

If you have two spare minutes, take it. It's fun, and it's free (usually this kind of tests are not).

Powered by Qumana

09 settembre 2006

Promemoria allegati per Outlook - aggiornamento

Sulla scia del suggerimento di djfede ripubblico il codice aggiornato per Outlook. Con la modifica, viene segnalato un avviso nel caso in cui non sia presente un allegato ma nel corpo della mail ci sia la radice "alleg" o "attach".

Il post originale, comprensivo di citazione per l'autore della macro (no, non sono io), è qui.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim m As Variant
Dim strBody As String
Dim intIn As Integer, intAttachCount As Integer
Dim x As Integer

On Error GoTo handleError

intAttachCount = 0

strBody = LCase(Item.Body)

intIn = InStr(1, strBody, "original message")

If intIn = 0 Then intIn = Len(strBody)

intIn = InStr(1, Left(strBody, intIn), "alleg") + InStr(1, Left(strBody, intIn), "attach")

If intIn > 0 Then

For x = 1 To Item.Attachments.Count
If LCase(Item.Attachments.Item(x).DisplayName) <> "picture (metafile)" Then
intAttachCount = intAttachCount + 1
End If

If intAttachCount = 0 Then

m = MsgBox("Sembra proprio che tu voglia mandare un allegato," & vbCrLf & "ma non ci sono allegati in questo messaggio." & vbCrLf & vbCrLf & "Desideri inviarlo comunque?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)

If m = vbNo Then Cancel = True

End If

End If


If Err.Number <> 0 Then
MsgBox "Outlook Attachment Reminder Error: " & Err.Description, vbExclamation, "Outlook Attachment Reminder Error"
End If

End Sub

Powered by Qumana